This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/packages/chr/Tests/passive_check2.chr
2015-10-13 08:17:51 +01:00

13 lines
252 B
Plaintext

:- module(passive_check2,[passive_check2/0]).
:- use_module(library(chr)).
:- chr_constraint a/1, b/2.
:- chr_option(debug,off).
:- chr_option(optimize,full).
a(X) # ID, b(X,R) <=> R = 1 pragma passive(ID).
passive_check2 :-
a(X), b(X,R), R == 1.