Definition eval_partial_setoid_form : form (prod_partial_setoid X (exp_partial_setoid X Y) ×h Y) := let x := π₁ (π₁ (tm_var ((X ×h ℙ (X ×h Y)) ×h Y))) in let f := π₂ (π₁ (tm_var ((X ×h ℙ (X ×h Y)) ×h Y))) in let y := π₂ (tm_var ((X ×h ℙ (X ×h Y)) ×h Y)) in (exp_partial_setoid_is_function [ f ]) ∧ ⟨ x , y ⟩ ∈ f.
Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Prelude. Require Import UniMath.CategoryTheory.Hyperdoctrines.Hyperdoctrine. Require Import UniMath.CategoryTheory.Hyperdoctrines.FirstOrderHyperdoctrine. Require Import UniMath.CategoryTheory.Hyperdoctrines.Tripos. Require Import UniMath.CategoryTheory.Hyperdoctrines.GenericPredicate. Require Import UniMath.CategoryTheory.Hyperdoctrines.PartialEqRels.PERs. Require Import UniMath.CategoryTheory.Hyperdoctrines.PartialEqRels.PERMorphisms. Require Import UniMath.CategoryTheory.Hyperdoctrines.PartialEqRels.PERCategory. Require Import UniMath.CategoryTheory.Hyperdoctrines.PartialEqRels.ExponentialPER.