let K, L be Field; :: thesis: for w being Element of L st K is Subring of L holds
Ann_Poly (w,K) is quasi-prime

let w be Element of L; :: thesis: ( K is Subring of L implies Ann_Poly (w,K) is quasi-prime )
assume A0: K is Subring of L ; :: thesis: Ann_Poly (w,K) is quasi-prime
set M = { p where p is Polynomial of K : Ext_eval (p,w) = 0. L } ;
for p, q being Element of (Polynom-Ring K) holds
( not p * q in Ann_Poly (w,K) or p in Ann_Poly (w,K) or q in Ann_Poly (w,K) )
proof
let p, q be Element of (Polynom-Ring K); :: thesis: ( not p * q in Ann_Poly (w,K) or p in Ann_Poly (w,K) or q in Ann_Poly (w,K) )
assume A1: p * q in Ann_Poly (w,K) ; :: thesis: ( p in Ann_Poly (w,K) or q in Ann_Poly (w,K) )
reconsider p1 = p, q1 = q as Polynomial of K by POLYNOM3:def 10;
p1 *' q1 in Ann_Poly (w,K) by A1, POLYNOM3:def 10;
then consider t being Polynomial of K such that
A5: t = p1 *' q1 and
A6: Ext_eval (t,w) = 0. L ;
(Ext_eval (p1,w)) * (Ext_eval (q1,w)) = 0. L by A0, Th24, A6, A5;
per cases then ( Ext_eval (p1,w) = 0. L or Ext_eval (q1,w) = 0. L ) by VECTSP_2:def 1;
suppose Ext_eval (p1,w) = 0. L ; :: thesis: ( p in Ann_Poly (w,K) or q in Ann_Poly (w,K) )
hence ( p in Ann_Poly (w,K) or q in Ann_Poly (w,K) ) ; :: thesis: verum
end;
suppose Ext_eval (q1,w) = 0. L ; :: thesis: ( p in Ann_Poly (w,K) or q in Ann_Poly (w,K) )
hence ( p in Ann_Poly (w,K) or q in Ann_Poly (w,K) ) ; :: thesis: verum
end;
end;
end;
hence Ann_Poly (w,K) is quasi-prime by RING_1:def 1; :: thesis: verum