theorem
  Rea z <= |.z.|
proof
  0 <= (Rea z)^2 by XREAL_1:63; then
  A1: sqrt ((Rea z)^2) <= sqrt ((Rea z)^2 + (Im1 z)^2 + (Im2 z)^2 + (Im3 z )^2)
  by Lm26,SQUARE_1:26;
  per cases;
  suppose Rea z >= 0;
    hence thesis by A1,SQUARE_1:22;
  end;
  suppose
A2: Rea z < 0;
    then - Rea z <= |.z.| by A1,SQUARE_1:23;
    hence thesis by A2;
  end;
end;
