proposition: Lemma punit_pmap_pconst {A : pType} (f : pUnit ->* A) : pconst ==* f.
proof: Proof. srapply Build_pHomotopy. 1: intros []; exact (point_eq f)^. exact (concat_1p _)^. Defined.
imports: Basics Types PathAny WildCat Truncations.Core ReflectiveSubuniverse Extensions