reserve T for BinContinuous unital TopSpace-like non empty TopGrStr,
  x,y for Point of I[01],
  s,t for unital Point of T,
  f,g for Loop of t,
  c for constant Loop of t;

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;
