trm@{i j | } {A : Type@{i}} : A -> Trm@{i j} A := fun a P HP f => f a. Global Instance ishprop_Trm@{i j k | i <= k, j < k} `{Funext} (A : Type@{i}) : IsHProp (Trm@{i j} A). Proof. nrapply istrunc_forall@{k k k}; intro B. nrapply istrunc_forall@{j k k}; intro ishp. apply istrunc_forall@{k j k}. Defined.
Require Import HoTT.Basics. Require Import Universes.Smallness.