
theorem
  for n being Ordinal, L being Abelian left_zeroed right_zeroed
  add-associative right_complementable well-unital associative commutative
  distributive non trivial doubleLoopStr, p being Polynomial of n,L, a being
  Element of L, x being Function of n,L holds eval(p*a,x) = eval(p,x) * a
proof
  let n be Ordinal, L be Abelian left_zeroed right_zeroed add-associative
  right_complementable well-unital associative commutative distributive non
  trivial doubleLoopStr, p be Polynomial of n,L, a be Element of L, x be
  Function of n,L;
  thus eval(p*a,x) = eval(p*'(a |(n,L)),x) by Th28
    .= eval(p,x) * a by Lm5;
end;
