Module Pair (X: PO) (Y: PO) <: PO.
Definition T := (X.T * Y.T)%type.
Definition le p1 p2 := X.le (fst p1) (fst p2) /\ Y.le (snd p1) (snd p2).
Hint Unfold le.
info auto.
Qed.

Lemma le_trans : forall p1 p2 p3 : T, le p1 p2 -> le p2 p3 -> le p1 p3.