
theorem Th24:
for L being well-unital non empty doubleLoopStr
for p being even Polynomial of L
for x being Element of L
holds eval(p,-x) = eval(p,x)
proof
let L be well-unital non empty doubleLoopStr;
let p be even Polynomial of L;
let x be Element of L;
thus eval(p,-x) = Polynomial-Function(L,p).(-x) by POLYNOM5:def 13
               .= Polynomial-Function(L,p).x by Def3,Def5
               .= eval(p,x) by POLYNOM5:def 13;
end;
