
theorem x1a:
for R being preordered Ring,
    P being Preordering of R
for a being P-ordered Element of R holds a is non P-negative iff 0.R <=P, a
proof
let R be preordered Ring, P be Preordering of R;
let a be P-ordered Element of R;
H: a in P \/ -P & P /\ -P = {0.R} by REALALG1:def 14,defppp;
hereby assume a is non P-negative;
   then per cases by XBOOLE_0:def 5;
   suppose not a in -P;
     hence 0.R <=P, a by H,XBOOLE_0:def 3;
     end;
   suppose a in {0.R};
     then a = 0.R by TARSKI:def 1;
     hence 0.R <=P, a by c1;
     end;
   end;
assume C: 0.R <=P, a;
  per cases;
  suppose a = 0.R;
    then a in {0.R} by TARSKI:def 1;
    hence a is non P-negative by XBOOLE_0:def 5;
    end;
  suppose D: a <> 0.R;
    now assume a in -P;
      then a in {0.R} by C,H;
      hence contradiction by D,TARSKI:def 1;
      end;
    hence a is non P-negative by XBOOLE_0:def 5;
    end;
end;
