theorem :: FVALUAT1:57
for K being non empty non degenerated right_complementable distributive Abelian add-associative right_zeroed associative Field-like doubleLoopStr
for v being Valuation of K st K is having_valuation holds
1. (ValuatRing v) = 1. K by Def12;