proposition: Lemma iso_between_coproduct_enriched_inv {a b : enriched_binary_coprod_cocone} (Ha : is_binary_coprod_enriched a) (Hb : is_binary_coprod_enriched b) : map_between_coproduct_enriched Ha Hb · map_between_coproduct_enriched Hb Ha = identity _.
proof: Proof. unfold map_between_coproduct_enriched. use (is_binary_coprod_enriched_arrow_eq Ha). - rewrite !assoc. rewrite !is_binary_coprod_enriched_arrow_in1. rewrite id_right. apply idpath. - rewrite !assoc. rewrite !is_binary_coprod_enriched_arrow_in2. rewrite id_right. 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.BinProducts UniMath.CategoryTheory.Limits.BinCoproducts