(A : pType) := { pfam_pr1 :> A -> Type; dpoint : pfam_pr1 (point A)}.
Require Import Basics Types. Require Import Homotopy.IdentitySystems. Require Import WildCat. Require Import Truncations.Core. Require Import ReflectiveSubuniverse. Require Import Extensions.