`{n : trunc_index} {X Y : pType} (f : X ->* Y) `{IsEquiv _ _ f} : O_pcover (Tr n) X pt <~>* O_pcover (Tr n) Y pt := Build_pEquiv _ _ (pfunctor_pTr_pcover f) _.
Require Import Basics Types HFiber Truncations.Core Truncations.SeparatedTrunc Pointed