`{PropResizing} {A : Ordinal} {a : A} (x : A) (H : x < a) : ↓a := (x; (equiv_smalltype _)^-1 H).
From HoTT Require Import TruncType ExcludedMiddle Modalities.ReflectiveSubuniverse abstract_algebra. From HoTT Require Import Universes.Smallness. From HoTT Require Import Colimits.Quotient. From HoTT Require Import HSet.