Can somebody tell me why Mathematica fails to use Plot inside a Block
Block[{vars, eq, ineqs}, vars = Complement[{x, y, z}, {y, z}];
eq = 5 x + 3; ineqs = x > 2 && x < 5;
If[Length[vars] == 1,
Plot[eq, {vars} \[Element] ImplicitRegion[ineqs, vars]]]]