fact: Definition path_ex'_hprop {A} {P : A -> Prop} (P_hprop : forall (x : A) (p q : P x), p = q) (u1 v1 : A) (u2 : P u1) (v2 : P v1) (p : u1 = v1) : ex_intro P u1 u2 = ex_intro P v1 v2 := path_ex' u1 v1 u2 v2 p (P_hprop _ _ _).
imports: Fiat.Common.Equality