fact: Definition path_sig_hprop_iff {A} {P : A -> Prop} (P_hprop : forall (x : A) (p q : P x), p = q) (u v : @sig A P) : u = v <-> (proj1_sig u = proj1_sig v) := conj (f_equal proj1_sig) (path_sig_hprop P_hprop u v).
imports: Fiat.Common.Equality