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;
