reserve x,y,z,w for ExtReal,
  r for Real;
reserve f,g for ExtReal;
reserve t for ExtReal;

theorem Th94:
  2*x = x+x
proof
  per cases by XXREAL_0:14;
  suppose
    x in REAL;
    then reconsider x as Real;
    2*x = x+x;
    hence thesis;
  end;
  suppose
A1: x = -infty;
    hence 2*x = -infty by Def5
      .= x+x by A1,Def2;
  end;
  suppose
A2: x = +infty;
    hence 2*x = +infty by Def5
      .= x+x by A2,Def2;
  end;
end;
