{-# htermination (>) :: Float -> Float -> Bool #-}