Proposition mor_to_tripos_power_eq {H : tripos} (X : ty H) (Γ : ty H) (R : form (X ×h Γ)) (x := π₁ (tm_var (X ×h Γ))) (γ := π₂ (tm_var (X ×h Γ))) : R = (x ∈ ({{ R }} [ γ ]tm)). Proof. exact (pr2 (pr22 (pr2 H X) Γ R)). Qed.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Prelude. Require Import UniMath.CategoryTheory.DisplayedCats.Core. Require Import UniMath.CategoryTheory.DisplayedCats.Isos. Require Import UniMath.CategoryTheory.DisplayedCats.Univalence. Require Import UniMath.CategoryTheory.DisplayedCats.Functors. Require Import UniMath.CategoryTheory.DisplayedCats.Fibrations. Require Import UniMath.CategoryTheory.DisplayedCats.Fiber. Require Import UniMath.CategoryTheory.DisplayedCats.Projection. Require Import UniMath.CategoryTheory.Hyperdoctrines.Hyperdoctrine. Require Import UniMath.CategoryTheory.Hyperdoctrines.FirstOrderHyperdoctrine.