fact: Definition ap_fst_path_prod {A B : Type} {z z' : A * B} (p : fst z = fst z') (q : snd z = snd z') : ap fst (path_prod _ _ p q) = p.
imports: Basics.Overture Basics.Equivalences Basics.PathGroupoids Basics.Tactics Basics.Trunc Basics.Decidable Types.Empty