fact: Definition nat_category (n : nat) := match n with | 0 => indiscrete_category 0 | 1 => indiscrete_category 1 | S (S n') => discrete_category (S (S n')) end.
imports: Category.Core DiscreteCategory IndiscreteCategory Types.Unit Trunc Types.Sum Types.Empty Basics.Nat