theorem Th18:
  for r being Complex holds Sum OddEvenPowers(r,1) = 1
  proof
    let r be Complex;
    OddEvenPowers(r,1) = <*1*> by Th17;
    hence thesis by RVSUM_1:73;
  end;
