simp [toNat_complement]
case a
α : Type
inst✝¹ : (n : Nat) → OfNat α n
inst✝ : UInt α
a : α
⊢ toNat (~~~~~~a) = toNat a
case a
α : Type
inst✝¹ : (n : Nat) → OfNat α n
inst✝ : UInt α
a : α
⊢ 2 ^ length α - (2 ^ length α - (toNat a + 1) + 1) = toNat a