{A : pType} (f : pUnit ->* A) : pconst ==* f. Proof. srapply Build_pHomotopy. 1: intros []; exact (point_eq f)^. exact (concat_1p _)^. Defined.
Require Import Basics Types. Require Import Homotopy.IdentitySystems. Require Import WildCat. Require Import Truncations.Core. Require Import ReflectiveSubuniverse. Require Import Extensions.