Hint Resolve Ple_refl Plt_Ple Ple_succ Plt_strict: coqlib.
Ltac xomega := unfold Plt, Ple in *; zify; omega.
Ltac xomegaContradiction := exfalso; xomega.
(** Peano recursion over positive numbers. *)
Section POSITIVE_ITERATION.

Lemma Plt_wf: well_founded Plt.
Variable A: Type.