Proposition precomp_is_wedge {a : D} (w : wedge) (f : a --> w) : is_wedge (precomp_wedge_data w f). Proof. intros x y g ; cbn. rewrite !assoc'. rewrite eq_of_wedge. apply idpath. 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.