fact: Definition path_sigma_uncurried_contra {A : Type} (P : A -> Type) (u v : sig P) (pq : {p : u.1 = v.1 & u.2 = p^ # v.2}) : u = v := (path_sigma_uncurried P v u (pq.1^;pq.2^))^.
imports: HoTT.Basics Types.Arrow Types.Paths