Definition make_internal_isrefl_mor {C : category} {x : C} (R : internal_relation x) (r : x --> R) (p : r · internal_relation_src R = identity _) (q : r · internal_relation_tar R = identity _) : internal_isrefl_mor R := r ,, p ,, q.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Prelude. Require Import UniMath.CategoryTheory.Limits.Pullbacks. Require Import UniMath.CategoryTheory.Limits.Coequalizers. Require Import UniMath.CategoryTheory.RegularAndExact.RegularCategory.