theorem Th18:
  <*y/"((y/"x)\y)*> ==>. y/"x
proof
  <*x*> ==>. (y/"x)\y by Th13;
  hence thesis by Th17;
end;
