Defining dali and dante

> dparxfrodo:=simplify(subs({(x*c1)^p =0, c2^p =0, (y^2)^p =0, (x^3)^p = -p*frodo}, subs((y^2 -x^3 -x*c1 -c2)^p = 0, dparxx)));

> dparyfrodo:=normal(subs({(x*c1)^p =0, c2^p =0, (y^2)^p =0, (x^3)^p = -p*frodo}, subs((y^2 -x^3 -x*c1 -c2)^p = 0, dparyy)));

> dali:= - numer(dparxfrodo);

> dante:=numer(dparyfrodo);

>