(module test_22b2_constraint_declared
  (class TShow
    (param a)
    (method tshow
      (type (fn-type (params (own a)) (ret (own (con Str)))))))
  (fn describe
    (type (forall (vars a) (constraints (constraint TShow a)) (fn-type (params (own a)) (ret (own (con Str))))))
    (params x)
    (body (app tshow x))))
