do Carmo problem 3-3.4

ContourPlot[ArcSinh[u]-ArcSinh[v],{u,-1,1},{v,-1,1}]

ContourPlot[ArcSinh[u]+ArcSinh[v],{u,-1,1},{v,-1,1},Contours->20]