{F X Y : pType} {i : F ->* X} {f : X ->* Y} (cx : IsComplex i f) : pfib f o* cxfib cx ==* i. Proof. srapply Build_pHomotopy. - reflexivity. - cbn. rewrite ap_pr1_path_sigma; hott_simpl. Defined.
Require Import Basics Types. Require Import SuccessorStructure. Require Import WildCat. Require Import Pointed. Require Import Modalities.Identity Modalities.Descent. Require Import Truncations. Require Import HFiber. Require Import ObjectClassifier.