fact: Definition create (o m:E) (c : E2) (i:E1) (s:E):= denote Objects o ( denote Underlying m ( denote Composition (L m (fun u => L (Z m (fun v => source u = target v)) (c u))) ( denote Identity (L o i) ( denote Structure s ( stop))))).
imports: Arith universe