let n be Ordinal; :: thesis: for T being connected TermOrder of n
for L being non trivial right_complementable almost_left_invertible associative commutative well-unital distributive add-associative right_zeroed doubleLoopStr
for G, I being Subset of (Polynom-Ring n,L) st ( for b being bag of st b in HT I,T holds
ex b' being bag of st
( b' in HT G,T & b' divides b ) ) holds
HT I,T c= multiples (HT G,T)

let T be connected TermOrder of n; :: thesis: for L being non trivial right_complementable almost_left_invertible associative commutative well-unital distributive add-associative right_zeroed doubleLoopStr
for G, I being Subset of (Polynom-Ring n,L) st ( for b being bag of st b in HT I,T holds
ex b' being bag of st
( b' in HT G,T & b' divides b ) ) holds
HT I,T c= multiples (HT G,T)

let L be non trivial right_complementable almost_left_invertible associative commutative well-unital distributive add-associative right_zeroed doubleLoopStr ; :: thesis: for G, I being Subset of (Polynom-Ring n,L) st ( for b being bag of st b in HT I,T holds
ex b' being bag of st
( b' in HT G,T & b' divides b ) ) holds
HT I,T c= multiples (HT G,T)

let P, I be Subset of (Polynom-Ring n,L); :: thesis: ( ( for b being bag of st b in HT I,T holds
ex b' being bag of st
( b' in HT P,T & b' divides b ) ) implies HT I,T c= multiples (HT P,T) )

assume A1: for b being bag of st b in HT I,T holds
ex b' being bag of st
( b' in HT P,T & b' divides b ) ; :: thesis: HT I,T c= multiples (HT P,T)
now
let u be set ; :: thesis: ( u in HT I,T implies u in multiples (HT P,T) )
assume A2: u in HT I,T ; :: thesis: u in multiples (HT P,T)
then consider p being Polynomial of n,L such that
A3: ( u = HT p,T & p in I & p <> 0_ n,L ) ;
reconsider u' = u as Element of Bags n by A3;
consider b' being bag of such that
A4: ( b' in HT P,T & b' divides u' ) by A1, A2;
thus u in multiples (HT P,T) by A4; :: thesis: verum
end;
hence HT I,T c= multiples (HT P,T) by TARSKI:def 3; :: thesis: verum