Module SuccNat2Pos.
(** Composition of [Pos.of_succ_nat] and [Pos.to_nat] is successor on [nat] *)

(** Successor and comparison are morphisms with respect to [Pos.of_succ_nat] *)
Lemma inj_succ n : Pos.of_succ_nat (S n) = Pos.succ (Pos.of_succ_nat n).