proposition: Lemma all_nt_discrete : forall z u, Nat_Trans.axioms u -> osource u = discrete_cat z -> u = discrete_nt z (otarget u) (ntrans u).
proof: Proof. ir. ap eq_discrete_nt. ap discrete_nt_property_ntrans. am. am. am. am. tv. ir. tv. Qed.
imports: Arith ordinal nat_trans