
theorem Th26:
  for L be right_zeroed non empty addLoopStr for p be sequence
  of L holds p+0_.(L) = p
proof
  let L be right_zeroed non empty addLoopStr;
  let p be sequence of L;
  now
    let n be Element of NAT;
    thus (p+0_.(L)).n = p.n + (0_.(L)).n by NORMSP_1:def 2
      .= p.n + 0.L by FUNCOP_1:7
      .= p.n by RLVECT_1:def 4;
  end;
  hence thesis;
end;
