:: deftheorem Def5 defines vars POLYNOM9:def 5 :
for X being set
for S being ZeroStr
for p being Series of X,S
for b4 being Subset of X holds
( b4 = vars p iff for x being object holds
( x in b4 iff ex b being bag of X st
( b in Support p & b . x <> 0 ) ) );