new procedure mpz_square_mat_negate()