theorem Th20:
  for V be non empty addLoopStr, v be Element of V holds ZeroLC(V) .v = 0
proof
  let V be non empty addLoopStr, v be Element of V;
  Carrier (ZeroLC(V)) = {} & not v in {} by Def5;
  hence thesis;
end;
