Module N2Nat.
(** [N.to_nat] is a bijection between [N] and [nat], with [Pos.of_nat] as reciprocal. See [Nat2N.id] below for the dual equation. *)
(** [N.to_nat] is hence injective *)
(** Interaction of this translation and usual operations. *)

Lemma inj_iter a {A} (f:A->A) (x:A) :
N.iter a f x = Nat.iter (N.to_nat a) f x.