(module float_compare_smoke
  (fn main
    (doc "Float comparison via the named-fn surface that replaces the deleted operator names. Each float_* call lowers to a single fcmp via try_emit_primitive_instance_body.")
    (type (fn-type (params) (ret (own (con Unit))) (effects IO)))
    (params)
    (body
      (seq (seq (app print (app float_eq 1.5 1.5)) (do io/print_str "\n"))
      (seq (seq (app print (app float_lt 1.0 2.0)) (do io/print_str "\n"))
           (seq (app print (app float_eq 1.0 0.0)) (do io/print_str "\n")))))))