conv => lhs; arg 1; change 2^k*2/2; simp
i : Nat
h_ind : ∀ (k : Nat), getBit (2 ^ k) i = decide (k = i)
k : Nat
⊢ getBit (2 ^ succ k / 2) i = decide (succ k = succ i)
i : Nat
h_ind : ∀ (k : Nat), getBit (2 ^ k) i = decide (k = i)
k : Nat
⊢ getBit (2 ^ k) i = decide (succ k = succ i)