End Nat2Pos.
(**********************************************************************)
(** Properties of the shifted injection from Peano natural numbers to binary positive numbers *)
Module Pos2SuccNat.
(** Composition of [Pos.to_nat] and [Pos.of_succ_nat] is successor on [positive] *)

Theorem id_succ p : Pos.of_succ_nat (Pos.to_nat p) = Pos.succ p.