proposition: Proposition mor_to_end'_comm (w' : D) (fs : ∏ (x : C), w' --> F (x ,, x)) (H : is_wedge (make_wedge_data w' fs)) (x : C) : mor_to_end' w' fs H · mor_of_wedge w x = fs x.
proof: Proof. exact (mor_to_end_comm (make_wedge _ H) x). Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.OppositeCategory.Core UniMath.CategoryTheory.PrecategoryBinProduct UniMath.CategoryTheory.Limits.Products UniMath.CategoryTheory.Limits.Equalizers