proposition: Lemma Pullback_of_z_iso {C:category} {a b c : C} {f : C ⟦b, a⟧} {g : C ⟦c, a⟧} (gis : is_z_isomorphism g) (pb : Pullback f g) : is_z_isomorphism (PullbackPr1 pb).
proof: Proof. use make_is_z_isomorphism. + use PullbackArrow. - exact (identity b). - exact (f · (is_z_isomorphism_mor gis)). - now rewrite assoc', (is_inverse_in_precat2 (is_z_isomorphism_is_inverse_in_precat gis)), id_left, id_right. + use make_is_inverse_in_precat. - use pathsinv0. use PullbackEndo_is_identity. * now rewrite (assoc' (PullbackPr1 pb)), PullbackArrow_PullbackPr1, id_right. * now rewrite (assoc' (PullbackPr1 pb)), PullbackArrow_PullbackPr2, assoc, PullbackSqrCommutes, assoc', (is_inverse_in_precat1 (is_z_isomorphism_is_inverse_in_precat gis)), id_right. - use PullbackArrow_PullbackPr1. Defined.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.TransportMorphisms UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Limits.Terminal UniMath.CategoryTheory.Limits.BinProducts UniMath.CategoryTheory.Limits.Equalizers UniMath.CategoryTheory.FunctorCategory UniMath.CategoryTheory.Monics