{A : pType} `{IsHomogeneous A} : forall a, A <~>* [A,a] := fun a => ishomogeneous a o*E (ishomogeneous (point A))^-1*.
Require Import Basics Types Pointed WildCat.Core. Require Import Truncations.Core Truncations.Connectedness.