proposition: Lemma to_of_lu d : to_lu (of_lu d) = lnorm d.
proof: Proof. induction d; [ reflexivity | .. ]; simpl_of_lu; rewrite ?Nat.add_succ_l, Nat.add_0_l, ?to_lu_succ, to_of_lu_sixteenfold by assumption; unfold lnorm; cbn; now destruct nztail. Qed.
imports: Hexadecimal HexadecimalFacts Arith