fact: Fixpoint CardinalityRepresentative (n : nat) : Type0 := match n with | 0 => Empty | 1 => Unit | S n' => (CardinalityRepresentative n' + Unit)%type end.
imports: Category.Core DiscreteCategory IndiscreteCategory Types.Unit Trunc Types.Sum Types.Empty Basics.Nat