{A : pType} (B : A -> pType) : pFam A := Build_pFam (pointed_type o B) (point (B (point A))).
Require Import Basics Types. Require Import Homotopy.IdentitySystems. Require Import WildCat. Require Import Truncations.Core. Require Import ReflectiveSubuniverse. Require Import Extensions.