# tomittag(x) convert to Mittag-Leffler function mittag();


tomittag(infsums(x_^k_,k_)):=mittags(0,x);
tomittag(infsums(1/(a_*k_)!*x_^k_,k_)):=mittags(a,x);
tomittag(infsums(1/(a_*k_)!*x_^(c_*k_),k_)):=mittags(a,x^c);
tomittag(infsums(1/(a_*k_+b_)!*x_^(c_*k_),k_)):=mittags(a,b+1,x^c);
tomittag(infsums(1/(a_*k_+b_)!*x_^k_,k_)):=mittags(a,b+1,x);
tomittag(infsums(1/Gamma(a_*k_+b_)*x_^k_,k_)):=mittags(a,b,x);

tomittag(cos(x_)):=mittags(2,-x^2);
tomittag(sin(x_)):= -i*mittags(2,2,-x^2)*x;
tomittag(cosh(x_)):=mittags(2,x^2);
tomittag(sinh(x_)):=mittags(2,2,x^2)*x;
tomittag(e^(x_)):=mittags(1,x);
tomittag(e^(x_^2)*erfc(-x_)):=mittags(1/2,x);
tomittag(1/(1-x_)):=mittags(0,x);