fact: Definition equiv_path_sigma_contra {A : Type} `(P : A -> Type) (u v : sig P) : {p : u.1 = v.1 & u.2 = p^ # v.2} <~> (u = v) := Build_Equiv _ _ (path_sigma_uncurried_contra P u v) _.
imports: HoTT.Basics Types.Arrow Types.Paths