fact: Definition pequiv_hopf_total_join `{Univalence} (X : pType) `{IsHSpace X} `{forall a, IsEquiv (a *.)} `{forall a, IsEquiv (.* a)} : psigma (hopf_construction X) <~>* pjoin X X.
imports: Types Basics Pointed Truncations HSpace Suspension ExactSequence HomotopyGroup WildCat.Core WildCat.Universe WildCat.Equiv Modalities.ReflectiveSubuniverse Modalities.Descent HSet Spaces.Nat.Core Homotopy.Join Colimits.Pushout