theorem Th18:
  K is having_valuation & a <> 0.K implies v.a <> +infty
  proof
    assume K is having_valuation & a <> 0.K;
    then v.a in INT by Def8;
    hence thesis;
  end;
