Lemma idtoiso_inj (C : category) (H : is_univalent C) (a a' : ob C) (p p' : a = a') : idtoiso p = idtoiso p' -> p = p'. Proof. apply invmaponpathsincl. apply isinclweq. apply H. Qed.
Require Import UniMath.Foundations.PartA. Require Import UniMath.Foundations.Sets. Require Import UniMath.MoreFoundations.PartA. Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Isos.