Module PairDecidableType(D1 D2:DecidableType) <: DecidableType.
Definition t := prod D1.t D2.t.
Definition eq x y := D1.eq (fst x) (fst y) /\ D2.eq (snd x) (snd y).

Lemma eq_trans : forall x y z : t, eq x y -> eq y z -> eq x z.