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

:- module transitive_instance.
:- interface.

:- type t.

:- implementation.

:- import_module transitive_instance.transitive_instance_helper_2.

:- type t
    --->    some [T] c(T) => c2(T).

%---------------------------------------------------------------------------%
    :- module transitive_instance.transitive_instance_helper_1.
    :- interface.

    :- typeclass c1(T) where [].
    :- instance c1(int).

    :- implementation.

    :- instance c1(int) where [].

    :- end_module transitive_instance.transitive_instance_helper_1.
%---------------------------------------------------------------------------%

%---------------------------------------------------------------------------%
    :- module transitive_instance.transitive_instance_helper_2.
    :- interface.

    :- import_module transitive_instance.transitive_instance_helper_1.
    :- typeclass c2(T) <= c1(T) where [].

    :- instance c2(int).

    :- implementation.

    :- instance c2(int) where [].

    :- end_module transitive_instance.transitive_instance_helper_2.
%---------------------------------------------------------------------------%