theorem Th18:
  ZeroLC(V).v = 0.R
proof
  Carrier(ZeroLC(V)) = {} & not v in {} by Def4;
  hence thesis;
end;
