proposition: Lemma cancel_φ {A: C}{B: C'} (f g : L A --> B): φ f = φ g -> f = g.
proof: Proof. intro Hyp. apply (invmaponpathsweq (adjunction_hom_weq (pr2 is_left_adj_L) _ _)). exact Hyp. Qed.
imports: UniMath.Tactics.EnsureStructuredProofs UniMath.Foundations.PartD UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Limits.Initial UniMath.CategoryTheory.FunctorAlgebras UniMath.CategoryTheory.Categories.HSET.Core UniMath.CategoryTheory.opp_precat UniMath.CategoryTheory.yoneda UniMath.CategoryTheory.Adjunctions.Core