{A : Type} {F : A -> pType} (a : A) : pproduct F ->* F a. Proof. snrapply Build_pMap. - intros x. exact (x a). - reflexivity. Defined.
Require Import Basics Types. Require Import Homotopy.IdentitySystems. Require Import WildCat. Require Import Truncations.Core. Require Import ReflectiveSubuniverse. Require Import Extensions.