reserve o,m for set;
reserve C for Cartesian_category;
reserve a,b,c,d,e,s for Object of C;

theorem
  a[x]b is_a_product_wrt pr1(a,b),pr2(a,b) by Def8;
