(module test_22b2_constraint_declared_via_superclass
  (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 uses_eq_via_ord
    (type (forall (vars a) (constraints (constraint TOrd a)) (fn-type (params a a) (ret (con Bool)))))
    (params x y)
    (body (app teq x y))))