Module Z2Nat.
(** [Z.to_nat] is a bijection between non-negative [Z] and [nat], with [Pos.of_nat] as reciprocal. See [nat2Z.id] above for the dual equation. *)
(** [Z.to_nat] is hence injective for non-negative integers. *)
(** [Z.to_nat], basic equations *)

Lemma inj_pos n : Z.to_nat (Zpos n) = Pos.to_nat n.