Function: algneg
Section: algebras
C-Name: algneg
Prototype: DGG
Help: algneg({al},x): element -x in al (Hamilton quaternions if omitted).
Doc: Given an element $x$ in \var{al}, computes its opposite $-x$ in the
 algebra \var{al} (Hamilton quaternions if omitted).
 \bprog
 ? A = alginit(nfinit(y), [-1,-1]);
 ? algneg(A,[1,1,0,0]~)
 %2 = [-1, -1, 0, 0]~
 @eprog

 Also accepts a matrix with coefficients in \var{al}.
