reserve x,y,z for Real,
  x3,y3 for Real,
  p for Point of TOP-REAL 3;

theorem Th4:
  0.TOP-REAL 3 = |[ 0,0,0 ]|
proof
  0.TOP-REAL 3 = 0*3 by EUCLID:70
    .= 3 |-> 0 by EUCLID:def 4
    .= <* 0, 0, 0 *> by FINSEQ_2:62;
  hence thesis;
end;
