ShowSteps[exp_]:=WolframAlpha[ToString@HoldForm@InputForm@exp,TimeConstraint->Infinity,IncludePods->{"Input","Indefinite Integral","Root","Result","Limit"},PodStates->{"Step-by-step solution","Show all steps"}]
SetAttributes[ShowSteps,HoldAll]