 reserve a for non empty set;
 reserve b, x, o for object;
reserve R for right_zeroed add-associative right_complementable Abelian
  well-unital distributive associative non trivial non trivial doubleLoopStr;

theorem
    for f be Polynomial of 0,R holds ex a being Element of R st f = a |(0,R)
    proof
      let f be Polynomial of 0,R;
      f is Constant by Th17;
      hence thesis by POLYNOM7:17;
    end;
