
theorem
  for L be Abelian add-associative right_zeroed right_complementable
  well-unital commutative distributive non empty doubleLoopStr for p be
  Polynomial of L holds p`^1 = p
proof
  let L be Abelian add-associative right_zeroed right_complementable
  well-unital commutative distributive non empty doubleLoopStr;
  let p be Polynomial of L;
  reconsider p1=p as Element of Polynom-Ring L by POLYNOM3:def 10;
  thus p`^1 = (power Polynom-Ring L).(p1,0+1)
    .= (power Polynom-Ring L).(p1,0)*p1 by GROUP_1:def 7
    .= (1_Polynom-Ring L)*p1 by GROUP_1:def 7
    .= p;
end;
