fact: Definition Book_3_14 : forall A (P : ~~A -> Type), (forall a, P (fun na => na a)) -> (forall x y (z : P x) (w : P y), transport P (path_ishprop x y) z = w) -> forall x, P x.
imports: HoTT(Basics Types HProp HSet Projective TruncType Truncations Modalities.Notnot Modalities.Open Modalities.Closed BoundedSearch Equiv.BiInv Spaces.Nat Spaces.Torus.TorusEquivCircles Metatheory.Core Metatheory.FunextVarieties)