Definition eq_dec: forall x y, {eq x y}+{~eq x y} := positive_eq_dec.
Definition le : t -> t -> Prop := Ple.

(* Specifications: *)
Lemma le_lteq : forall p q : t, le p q <-> lt p q \/ p = q.
apply Positive_as_OT.le_lteq. Qed.