proposition: Proposition fully_faithful_precomp_inv_left : fully_faithful_precomp_inv · EF x y = identity _.
proof: Proof. unfold fully_faithful_precomp_inv. refine (_ @ z_iso_inv_after_z_iso ψ). rewrite !assoc'. apply maponpaths. refine (!(id_right _) @ _). rewrite <- (z_iso_inv_after_z_iso ψ). rewrite !assoc. refine (_ @ id_left _). apply maponpaths_2. rewrite !assoc'. apply z_iso_after_z_iso_inv. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Prelude UniMath.CategoryTheory.EnrichedCats.Enrichment UniMath.CategoryTheory.EnrichedCats.EnrichmentFunctor UniMath.CategoryTheory.EnrichedCats.EnrichmentTransformation UniMath.CategoryTheory.Monoidal.Categories