Function Derivatives

fl={-Sin[x],Cos[-x],-Tan[x],Exp[-x]};
dfl=Table[D[fl[[i]],x],{i,4}];
Plot[{fl,dfl},{x,-1,1},PlotLegends->"Expressions",
PlotStyle->Table[{Dashing[.006i],
Hue[Sin[Pi/8+Pi*i/2]]},{i,8}],Frame->True,
GridLines->Automatic,ImageSize->600]