theorem
  product <*D,D*> = 2-tuples_on D
proof
  thus product <*D,D*> = the set of all
<*d1,d2*> where d1 is Element of D, d2 is Element of
D by Th125
    .= 2-tuples_on D by FINSEQ_2:99;
end;
