reserve n for Nat;

theorem lemacf1:
for R being domRing,
    p being non zero non with_roots Polynomial of R
holds BRoots p = EmptyBag(the carrier of R)
proof
let R be domRing, p be non zero non with_roots Polynomial of R;
Roots p is empty;
then support BRoots p = {} by UPROOTS:def 9;
hence thesis by PRE_POLY:81;
end;
