When plotting the following,
p1 = Plot[{x, x^2}, {x, 0, 1}, PlotStyle -> Dashing[Tiny],PlotRange->{0,2}]
p2 = Plot[{x + 1, x^2 + 1}, {x, 0, 1}, PlotStyle -> Dashing[Medium]]
Show[p1, p2]
in Show I want to use dash style to indicated "intercept 0" and "intercept 1", and color style to indicate "linear" and "non-linear". Is it possible to achieve that?