theorem Th53:
  TIMES(0) = [:TOP-REAL 0,TOP-REAL 0:] --> 0.TOP-REAL 0
  proof
    set T = TOP-REAL 0;
    let x be Element of the carrier of [:T,T:];
    thus TIMES(0).x = ([:T,T:] --> 0.T).x;
  end;
