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 Th6:
  I[01]-TIMES.(x,y) = x*y
  proof
    x is Point of R & y is Point of R by PRE_TOPC:25;
    hence x*y = R^1-TIMES.(x,y) by Def5
    .= I[01]-TIMES.(x,y) by FUNCT_1:49,ZFMISC_1:87,BORSUK_1:40;
  end;
