theorem Th76:
  K is having_valuation implies vp(v) is proper
  proof
    assume
A1: K is having_valuation;
    then 1.K is Element of ValuatRing v by Def12;
    hence vp(v) <> the carrier of ValuatRing v by A1,Th63;
  end;
