2

We can try approach that recommended by yarchik and implemented by
Henrik Schumacher here. We have
Needs["NDSolve`FEM`"];
reg1 = Triangle[{{2, 1}, {2, 3}, {0, 4}}]; reg2 =
ImplicitRegion[x^2 + y^3 < 2 && y > x^2, {x, y}];
f[reg_] :=
Module[{R, p, z0, ufun, vfun},
R = ToElementMesh[reg, "Me...