fact: Record Ordinal@{carrier relation +} := { ordinal_carrier : Type@{carrier} ; ordinal_relation : Lt@{carrier relation} ordinal_carrier ; ordinal_property : IsOrdinal@{carrier relation} ordinal_carrier (<) }.
imports: HoTT(TruncType ExcludedMiddle Modalities.ReflectiveSubuniverse abstract_algebra) HoTT(PropResizing.PropResizing) HoTT(Colimits.Quotient) HoTT(HSet)