have : 2^length α - 1 - UInt.toNat x = (2^length α - 1) ^^^ UInt.toNat x := by
  apply Nat.sub_eq_xor
  rw [Nat.land_comm, Nat.land_exp2_sub_one, Nat.mod_eq_of_lt (UInt.toNat_lt x)]
α : Type
inst✝¹ : (n : Nat) → OfNat α n
inst✝ : UInt α
x : α
i : Nat
⊢ Nat.getBit (2 ^ length α - 1 - toNat x) i = (Nat.getBit (toNat x) i != decide (i < length α))
α : Type
inst✝¹ : (n : Nat) → OfNat α n
inst✝ : UInt α
x : α
i : Nat
this : 2 ^ length α - 1 - toNat x = 2 ^ length α - 1 ^^^ toNat x
⊢ Nat.getBit (2 ^ length α - 1 - toNat x) i = (Nat.getBit (toNat x) i != decide (i < length α))