Lemma iso_comp_left_isweq {C : precategory} {a b : ob C} (h : iso a b) (c : C) : isweq (fun f : c --> a => f · h). Proof. intros. apply (isweq_iso _ (λ g, g · inv_from_iso h)). - intro x. rewrite <- assoc. apply remove_id_right. apply iso_inv_after_iso. apply idpath. - intro y. rewrite <- assoc. apply remove_id_right. apply iso_after_iso_inv. apply idpath. Defined.
Require Import UniMath.Foundations.PartA. Require Import UniMath.Foundations.Propositions. Require Import UniMath.Foundations.Sets. Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.CategoryTheory.Core.Categories.