Question: Plot complex region

Hello!

I just want to plot a complex region:

abs(z - 1) > 1

abs(z + 1) > 1

Im(z) > 0

In Mathemactica it's really easy (ComplexRegionPlot[
 Abs[z - 1] > 1 && Abs[z + 1] > 1 && Im[z] > 0, {z, -5 - 5 I,
  5 + 5 I}])

But I like Maple and I want to use it. Could you help me please...

This way that I can found here not working:

ineq1 := 1 < abs(z - 1);
ineq2 := 1 < abs(z + 1);
ineq3 := 0 < Im(z);
plots[implicitplot]([eval(ineq1, z = x + y*I), eval(ineq2, z = x + y*I), eval(ineq3, z = x + y*I)], x = -10 .. 10, y = -10 .. 10, gridrefine = 3, scaling = constrained);

Please Wait...