%---------------------------------------------------------------------------%
% vim: ts=4 sw=4 et ft=mercury
%---------------------------------------------------------------------------%

:- module fundeps.
:- interface.

:- typeclass foo(A, B) <= (A -> B) where [].

:- type bar
    --->    some [A, B] bar(A) => foo(A, B).