proposition: Lemma forall_isotoid (A : category) (a_is : is_univalent A) (a a' : A) (P : z_iso a a' -> UU) : (∏ e, P (idtoiso e)) → ∏ i, P i.
proof: Proof. intros H i. rewrite <- (idtoiso_isotoid _ a_is). apply H. Defined.
imports: UniMath.Foundations.PartA UniMath.Foundations.Sets UniMath.MoreFoundations.PartA UniMath.MoreFoundations.Tactics UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos