proposition: Lemma opp_ShortShortExactData_Eq {C : category} {Z : Zero C} (SSED : ShortShortExactData (op_category C) (Zero_opp C Z)) : Mor1 (opp_MorphismPair SSED) · Mor2 (opp_MorphismPair SSED) = ZeroArrow Z (Ob1 (opp_MorphismPair SSED)) (Ob3 (opp_MorphismPair SSED)).
proof: Proof. use (pathscomp0 (@ShortShortExactData_Eq (op_category C) (Zero_opp C Z) SSED)). rewrite <- ZeroArrow_opp. apply idpath. Qed.
imports: UniMath.Foundations.PartD UniMath.Foundations.Propositions UniMath.Foundations.Sets UniMath.MoreFoundations.Notations UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.opp_precat UniMath.CategoryTheory.Limits.Zero UniMath.CategoryTheory.Limits.Opp