cases Nat.lt_or_ge i k
n k i : Nat
⊢ getBit (n <<< k) i = (decide (i ≥ k) && getBit n (i - k))
case inl
n k i : Nat
h✝ : i < k
⊢ getBit (n <<< k) i = (decide (i ≥ k) && getBit n (i - k))

case inr
n k i : Nat
h✝ : i ≥ k
⊢ getBit (n <<< k) i = (decide (i ≥ k) && getBit n (i - k))