(module compare_float_noinstance
  (fn cmp
    (type (fn-type (params) (ret (con Ordering))))
    (params)
    (body (app compare 1.0 2.0))))