LIB"AeCodPruebas.lib";
ring r = 0,(x,y),ds;
int i;

ideal f = x, xy+y6+y9;
ideal mappingf = f[1..nvars(r)];
//breakpoint(MaxPowerContained);

//AeNormal(f,maxideal(3));quit;

int k = MaxPowerContained(f);
int a = 0;
ideal aux1 = 0;
ideal aux2 = 0;
k;
while (size(aux1)==0 && size(aux2)==0)
{
    a++;
    aux1 = reduce(maxideal(k), std(mappingf^a));
    aux2 = reduce(maxideal(k-1), std(mappingf^a));
}

a;

if (size(aux1)!=0)
{
    "warning!";
}

AeNormal(f, maxideal(a));

//breakpoint(GenerateOYModule,464);
//breakpoint(MalgrFormVect);
/*
int k = MaxPowerContained(f);
int a = 1;
ideal mappingf = f[1..nvars(r)];
ideal auxred=reduce(mappingf^k, maxideal(1));

TargetIdeal(f,maxideal(5));
*/

//AeNormal(f, );

/*
def Q = MalgrRing(ideal(0),2,ideal(x,y2));
setring Q;

def f = imap(r,f);
def jf = imap(r,jf);

jf[1];

MalgrFormVect(matrix(jf[1]), maxOX^5);
*/

quit;