theorem Th40:
  \delta (Double x, x _0) = x
proof
  thus \delta (Double x, x _0) = Expand (x, x) .= x by Th36;
end;
