reserve n for Element of NAT,
  a, b for Real;

theorem Th4:
  |[a]|/.1 = a
proof
  reconsider y = a as Element of REAL by XREAL_0:def 1;
  thus |[a]|/.1 = <*y*>/.1 .= a by FINSEQ_4:16;
end;
