fact: Definition twoarrow_fun_data a u v := Build_fun_type_data (d:= twoarrow_data) a (fun x => match x with o1 => (source u) | o2 => (target u) end) (fun y => match y with i1 => id a (source u) | i2 => id a (target u) | a0 => u | a1 => v end).
imports: Arith cat_examples cardinal fc_limits