proposition: Lemma CoproductOfArrowsIsos_aux (I : UU) (C : category) (a : I -> C) (CC : Coproduct I C a) (c : I -> C) (CC' : Coproduct I C c) (f : ∏ i : I, C⟦a i, c i⟧) (fi_iso :∏ i : I, is_z_isomorphism (f i)) : is_inverse_in_precat (CoproductOfArrows I C CC CC' f) (CoproductOfArrows I C CC' CC (λ i : I, pr1 (fi_iso i))).
proof: Proof. split. + etrans. { apply precompWithCoproductArrow. } apply pathsinv0, CoproductArrowUnique. intro i. refine (id_right _ @ ! id_left _ @ _). refine (_ @ assoc' _ _ _). apply maponpaths_2. apply pathsinv0, (pr2 (fi_iso i)). + etrans. { apply precompWithCoproductArrow. } apply pathsinv0, CoproductArrowUnique. intro i. refine (id_right _ @ ! id_left _ @ _). refine (_ @ assoc' _ _ _). apply maponpaths_2. apply pathsinv0, (pr2 (fi_iso i)). Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Limits.Coproducts UniMath.CategoryTheory.Limits.Graphs.Limits UniMath.CategoryTheory.Limits.Graphs.Colimits UniMath.CategoryTheory.Chains.All