resultant(F:POLY, G:POLY, X:INDET):POLY
/**/ Use R ::= QQ[p,q,x]; /**/ F := x^3+p*x-q; G := Der(F, x); /**/ resultant(F, G, x); 4*p^3 +27*q^2