:: deftheorem defines Up GROEB_3:def 4 :
for n being Ordinal
for T being connected TermOrder of n
for L being non empty right_complementable add-associative right_zeroed addLoopStr
for p being Polynomial of n,L
for i being Nat holds Up (p,T,i) = p | (Upper_Support (p,T,i));