theorem Th24:
  Carrier(L) = {v} implies Sum(L) = L.v * v by VECTSP_6:20;
