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