(***********)
(* Prelude *)
(***********)

(* export inj_pair without exporting the whole Eqdep library *)
Definition inj_pair2 := @inj_pair2.(* eta laws for pairs and units *)
Notation prod_eta := surjective_pairing.

(* Specifications: *)
Lemma prod_inj A B (x y : A * B) : x = y <-> (x.1, x.2) = (y.1, y.2).
Lemma compA A B C D (h : A -> B) (g : B -> C) (f : C -> D) : (f \o g) \o h = f \o (g \o h).