Definition eq_partial_setoid (X : ty H) : partial_setoid H. Proof. use make_partial_setoid. - exact X. - exact (eq_per X). Defined.
Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Prelude. Require Import UniMath.CategoryTheory.Hyperdoctrines.Hyperdoctrine. Require Import UniMath.CategoryTheory.Hyperdoctrines.FirstOrderHyperdoctrine.