theorem Th52:
  K is having_valuation implies
  (0 <= v.a iff a is Element of ValuatRing v)
  proof
    assume K is having_valuation;
    then the carrier of ValuatRing v = NonNegElements v by Def12;
    hence thesis by Th47;
  end;
