simp [toNat_sub, toNat_zero]
case a
α : Type
inst✝¹ : (n : Nat) → OfNat α n
inst✝ : UInt α
a : α
⊢ toNat (a - a) = toNat 0
case a
α : Type
inst✝¹ : (n : Nat) → OfNat α n
inst✝ : UInt α
a : α
⊢ (toNat a + (2 ^ length α - toNat a)) % 2 ^ length α = 0