theorem Th37:
  K is having_valuation implies
  (v.a = 0 iff normal-valuation(v).a = 0)
  proof
    assume K is having_valuation;
    then v.a = (normal-valuation(v).a)*least-positive(rng v) by Def10;
    hence thesis;
  end;
