|  |  D.4.22.17 equidimMax Procedure from libraryprimdec.lib(see  primdec_lib).
 
Example:Usage:
equidimMax(i); i ideal
Return:
ideal of equidimensional locus (of maximal dimension) of i.
 |  | LIB "primdec.lib";
ring  r = 32003,(x,y,z),dp;
ideal i = intersect(ideal(z),ideal(x,y),ideal(x2,z2),ideal(x5,y5,z5));
equidimMax(i);
==> _[1]=z
 | 
 
 |