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