theorem Th99:
  <*d1,d2*> in 2-tuples_on D
proof
  <*d1,d2*> in the set of all
 <*c1,c2*> where c1 is (Element of D), c2 is Element of D;
  hence thesis by Th97;
end;
