{A B : Type} (z z' : A * B) : (fst z = fst z') -> (snd z = snd z') -> (z = z') := fun p q => path_prod_uncurried z z' (p,q).
Require Import Basics.Overture Basics.Equivalences Basics.PathGroupoids Require Import Types.Empty.