generalize (randNatAux (RandomGen.range g).fst ((RandomGen.range g).snd - (RandomGen.range g).fst + 1) ((hi - lo + 1) * 1000) (0, g)).fst = x
gen : Type u
inst : RandomGen gen
g : gen
lo hi : Nat
h : lo ≤ hi
⊢ lo ≤
      lo +
        (randNatAux (RandomGen.range g).fst ((RandomGen.range g).snd - (RandomGen.range g).fst + 1)
              ((hi - lo + 1) * 1000) (0, g)).fst %
          (hi - lo + 1) ∧
    lo +
        (randNatAux (RandomGen.range g).fst ((RandomGen.range g).snd - (RandomGen.range g).fst + 1)
              ((hi - lo + 1) * 1000) (0, g)).fst %
          (hi - lo + 1) ≤
      hi
gen : Type u
inst : RandomGen gen
g : gen
lo hi : Nat
h : lo ≤ hi
x : Nat
⊢ lo ≤ lo + x % (hi - lo + 1) ∧ lo + x % (hi - lo + 1) ≤ hi