theorem Th5:
  R^1 | (R^1 [#]REAL) = R^1
proof
  [#]R^1 = R^1([#]REAL) by TOPMETR:17;
  hence thesis by PRE_TOPC:def 5;
end;
