reserve n for Nat;

theorem pf1:
for R being domRing,
    B being non zero bag of the carrier of R,
    p being Ppoly of R,B
for a being Element of R
holds rpoly(1,a) `^ (B.a) divides p & not rpoly(1,a) `^ (B.a + 1) divides p
proof
let R be domRing, F be non zero bag of the carrier of R,
    p be Ppoly of R,F; let a being Element of R;
multiplicity(p,a) = F.a by dpp;
hence thesis by multip;
end;
