induction k
n k : Nat
hn : n ≠ 0
hk : k > 0
⊢ shiftRight n k < n
case zero
n : Nat
hn : n ≠ 0
hk : zero > 0
⊢ shiftRight n zero < n

case succ
n : Nat
hn : n ≠ 0
n✝ : Nat
n_ih✝ : n✝ > 0 → shiftRight n n✝ < n
hk : succ n✝ > 0
⊢ shiftRight n (succ n✝) < n