mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-19 19:33:46 +00:00
27 lines
650 B
Mathematica
27 lines
650 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module constrained_poly_insts3.
|
|
:- interface.
|
|
|
|
:- import_module list.
|
|
|
|
:- type thing == list(list(int)).
|
|
:- inst thing == list_skel(ground).
|
|
|
|
:- pred p1(thing::in(I), thing::out(I)) is det.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
p1(X, Y) :-
|
|
q(X, Y).
|
|
|
|
:- pred q(thing:in(thing), thing::out(thing)) is det.
|
|
|
|
q(X, X).
|
|
|
|
%---------------------------------------------------------------------------%
|