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. exact (mor_to_end_comm (make_wedge _ H) x). Qed.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.OppositeCategory.Core. Require Import UniMath.CategoryTheory.PrecategoryBinProduct. Require Import UniMath.CategoryTheory.Limits.Products. Require Import UniMath.CategoryTheory.Limits.Equalizers.