fact: Definition prod_eq_dec A B eq_A eq_B (A_bl : forall x y : A, eq_A x y = true -> x = y) (B_bl : forall x y : B, eq_B x y = true -> x = y) (A_lb : forall x y : A, x = y -> eq_A x y = true) (B_lb : forall x y : B, x = y -> eq_B x y = true) (x y : A * B) : {x = y} + {x <> y}.
imports: Coq.Classes.Morphisms