theorem
  -<e1> = |[ -1,0,0 ]|
proof
  -<e1> = |[ (-1)*<e1>.1, (-1)*<e1>.2, (-1)*<e1>.3 ]| by Lm1
      .= |[ -1,0,0 ]|;
  hence thesis;
end;
