apply Nat.le_of_lt_succ
case right
gen : Type u
inst : RandomGen gen
g : gen
lo hi : Nat
h : lo ≤ hi
x : Nat
⊢ x % (hi - lo + 1) ≤ hi - lo
case right.a
gen : Type u
inst : RandomGen gen
g : gen
lo hi : Nat
h : lo ≤ hi
x : Nat
⊢ x % (hi - lo + 1) < Nat.succ (hi - lo)