rw [ ←Nat.add_sub_assoc (Nat.le_of_lt (toNat_lt a))]
case a
α : Type
inst✝¹ : (n : Nat) → OfNat α n
inst✝ : UInt α
a : α
⊢ (toNat a + (2 ^ length α - toNat a)) % 2 ^ length α = 0
case a
α : Type
inst✝¹ : (n : Nat) → OfNat α n
inst✝ : UInt α
a : α
⊢ (toNat a + 2 ^ length α - toNat a) % 2 ^ length α = 0