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.

Lemma le_refl : forall p : T, le p p.