proposition: Corollary istrunc_embedding_trunc {X Y : Type} {n : trunc_index} `{istr : IsTrunc n.+1 Y} (i : X -> Y) `{isem : IsEmbedding i} : IsTrunc n.+1 X.
proof: Proof. apply istrunc_S. exact (@in_SepO_embedding (Tr n) _ _ i isem istr). Defined.
imports: HoTT.Basics HoTT.Types HoTT.Cubical.DPath HFiber Extensions Factorization Limits.Pullback Modality Accessible Descent Truncations.Core Homotopy.Suspension