Clear[gg,c,d,x,z] gg[c_.+d_.*x_,x_]:=big[c,d,x] /; c>d gg[c_.+d_.*x_,x_]:=littlec[c,d,x] /; c