theorem Th5:
  [:R^1,R^1:] | [:R^1([.0,1.]),R^1([.0,1.]):] = [:I[01],I[01]:]
  proof
A1: II is SubSpace of RR by BORSUK_3:21;
    the carrier of II = [:A,A:] by BORSUK_1:def 2,40;
    hence thesis by A1,TSEP_1:5,PRE_TOPC:8;
  end;
