(module test_22b2_missing_constraint_subclass
  (class TEq
    (param a)
    (method teq
      (type (fn-type (params a a) (ret (con Bool))))))
  (class TOrd
    (param a)
    (superclass (class TEq) (type a))
    (method tlt
      (type (fn-type (params a a) (ret (con Bool))))))
  (fn needs_ord_but_only_has_eq
    (type (forall (vars a) (constraints (constraint TEq a)) (fn-type (params a a) (ret (con Bool)))))
    (params x y)
    (body (app tlt x y))))