proposition: Lemma iso_between_equalizer_enriched_inv {a b : enriched_equalizer_cone} (Ha : is_equalizer_enriched a) (Hb : is_equalizer_enriched b) : map_between_equalizer_enriched Ha Hb · map_between_equalizer_enriched Hb Ha = identity _.
proof: Proof. unfold map_between_equalizer_enriched. use (underlying_Equalizer_arr_eq Ha). rewrite !assoc'. rewrite !underlying_Equalizer_arr_pr. rewrite id_left. apply idpath. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Monoidal.Categories UniMath.CategoryTheory.EnrichedCats.Enrichment UniMath.CategoryTheory.Limits.Equalizers