fact: Definition composable_facts c u v := axioms c & are_composable c u v & mor c u & mor c v & mor c (comp c u v)& source u = target v & source (comp c u v) = source v & target (comp c u v) = target u.
imports: Arith universe