(** First bijection result *)

(* Specifications: *)
Lemma of_to (p:positive) : Pos.of_uint (Pos.to_uint p) = Npos p.
Definition to_lu n :=
match n with
| N0 => Decimal.zero
| Npos p => Pos.to_little_uint p
end.
Lemma of_to (p:positive) : Pos.of_hex_uint (Pos.to_hex_uint p) = Npos p.
Definition to_lu n :=
match n with
| N0 => Hexadecimal.zero
| Npos p => Pos.to_little_hex_uint p
end.