
theorem
  for L being add-associative right_zeroed right_complementable
well-unital right-distributive non empty doubleLoopStr, p being Polynomial of
  L holds p*'<%1.L%> = p
proof
  let L be add-associative right_zeroed right_complementable well-unital
  right-distributive non empty doubleLoopStr, p being Polynomial of L;
  thus p*'<%1.L%> = p*'1_.(L) by Th28
    .= p by POLYNOM3:35;
end;
