cases Nat.lt_or_eq_of_le (toNat_lt a)
α : Type
inst✝¹ : (n : Nat) → OfNat α n
inst✝ : UInt α
a : α
this : toNat 1 = 1 % 2 ^ length α
⊢ (2 ^ length α - (toNat a + 1) % 2 ^ length α) % 2 ^ length α = 2 ^ length α - (toNat a + 1)
case inl
α : Type
inst✝¹ : (n : Nat) → OfNat α n
inst✝ : UInt α
a : α
this : toNat 1 = 1 % 2 ^ length α
h✝ : Nat.succ (toNat a) < 2 ^ length α
⊢ (2 ^ length α - (toNat a + 1) % 2 ^ length α) % 2 ^ length α = 2 ^ length α - (toNat a + 1)

case inr
α : Type
inst✝¹ : (n : Nat) → OfNat α n
inst✝ : UInt α
a : α
this : toNat 1 = 1 % 2 ^ length α
h✝ : Nat.succ (toNat a) = 2 ^ length α
⊢ (2 ^ length α - (toNat a + 1) % 2 ^ length α) % 2 ^ length α = 2 ^ length α - (toNat a + 1)