theorem
  for L be add-associative right_zeroed right_complementable non empty
  addLoopStr for p be FinSequence of L st for i be Element of NAT st
  i in dom p holds p.i = 0.L holds Sum p = 0.L
  by Lm1;
