. cases ‹∃ i, i < length α ∧ UInt.getBit (UInt.lsb a) i = true› with
  | intro i hi => exact ⟨i, hi.right⟩
case inl
α : Type
inst✝¹ : (n : Nat) → OfNat α n
inst✝ : UInt α
a : α
ha : a ≠ 0
h✝ : ∃ i, i < length α ∧ UInt.getBit (UInt.lsb a) i = true
⊢ ∃ i, UInt.getBit (UInt.lsb a) i = true

case inr
α : Type
inst✝¹ : (n : Nat) → OfNat α n
inst✝ : UInt α
a : α
ha : a ≠ 0
h✝ : ∀ (i : Nat), i < length α → ¬UInt.getBit (UInt.lsb a) i = true
⊢ ∃ i, UInt.getBit (UInt.lsb a) i = true
case inr
α : Type
inst✝¹ : (n : Nat) → OfNat α n
inst✝ : UInt α
a : α
ha : a ≠ 0
h✝ : ∀ (i : Nat), i < length α → ¬UInt.getBit (UInt.lsb a) i = true
⊢ ∃ i, UInt.getBit (UInt.lsb a) i = true