`{PropResizing} {C : Type@{i}} (p : C -> HProp@{j}) : C -> HProp@{k}. Proof. exact (fun a => Build_HProp (smalltype@{k j} (p a))). Defined.
From HoTT Require Import TruncType ExcludedMiddle Modalities.ReflectiveSubuniverse abstract_algebra HSet. From HoTT Require Import Universes.Smallness. From HoTT Require Import Spaces.Card. From HoTT.Sets Require Import Ordinals Powers.