reserve w, w1, w2 for Element of ExtREAL;
reserve c, c1, c2 for Complex;
reserve A, B, C, D for complex-membered set;
reserve F, G, H, I for ext-real-membered set;
reserve a, b, s, t, z for Complex;
reserve f, g, h, i, j for ExtReal;
reserve r for Real;
reserve e for set;

theorem
  --(F"") = (--F)""
proof
  let i;
  hereby
    assume i in --F"";
    then -i in F"" by Th2;
    then consider w such that
A1: -i = w" and
A2: w in F;
    (-w)" = -w" & -w in --F by A2,XXREAL_3:99;
    hence i in (--F)"" by A1;
  end;
  assume i in (--F)"";
  then consider w such that
A3: i = w" and
A4: w in --F;
  (-w)" = -w" & -w in F by A4,Th2,XXREAL_3:99;
  then -i in F"" by A3;
  hence thesis by Th2;
end;
