(@ hypotenuse x y z +-                           (@ hypotenuse x y : +-
    ...                                              hypotenuse x y 0
+                                                )
    {I|F : +-} x y z
)

