Definition lam_image_form : form ((X ×h Y) ×h 𝟙 ×h Z) := let x := π₁ (π₁ (tm_var ((X ×h Y) ×h 𝟙 ×h Z))) in let y := π₂ (π₁ (tm_var ((X ×h Y) ×h 𝟙 ×h Z))) in let z := π₂ (π₂ (tm_var ((X ×h Y) ×h 𝟙 ×h Z))) in φ [ ⟨ ⟨ x , z ⟩ , y ⟩ ].
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.PERBinProducts. Require Import UniMath.CategoryTheory.Hyperdoctrines.PartialEqRels.ExponentialPER.