fact: Definition axioms a := (forall x, is_ob a x = is_ob_facts a x) & (forall u, is_mor a u = is_mor_facts a u) & (forall u v, are_composable a u v = are_composable_facts a u v) & (forall u v w, are_composable a u v -> are_composable a v w -> (comp a (comp a u v) w) = (comp a u (comp a v w))) & like a.
imports: Arith universe