proposition: Lemma uOF_identity {C:category} {X:[C^op,HSET]} (r:Representation X) : r \\ (identity X ⟳ r) = identity _.
proof: Proof. unfold nat_trans_id; simpl. unshelve refine (transportb (λ k, _ \\ k = _) (identityFunction' _ _) _). apply universalMapIdentity. Qed.
imports: UniMath.Foundations.Preamble UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.opp_precat UniMath.CategoryTheory.yoneda UniMath.CategoryTheory.Categories.HSET.Core UniMath.CategoryTheory.Categories.HSET.MonoEpiIso UniMath.CategoryTheory.RepresentableFunctors.Bifunctor UniMath.CategoryTheory.RepresentableFunctors.Precategories UniMath.MoreFoundations.Tactics