ContourPlot[ArcSin[x]*Gamma[1+y]==1, {x, 0.900, 0.905}, {y, 0.340, 0.610}]