{A B : Type} {z z' : A * B} (p : z = z') : path_prod _ _(ap fst p) (ap snd p) = p. Proof. destruct p. reflexivity. Defined.
Require Import Basics.Overture Basics.Equivalences Basics.PathGroupoids Require Import Types.Empty.