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/trigger_no_active_occurrence.chr

14 lines
249 B
Plaintext
Raw Normal View History

2015-10-13 08:17:51 +01:00
:- module(trigger_no_active_occurrence,[trigger_no_active_occurrence/0]).
:- use_module(library(chr)).
:- chr_constraint a/1, b/2.
a(X) # ID , b(X,R) <=> R = 1 pragma passive(ID).
trigger_no_active_occurrence :-
a(X),
X = 1,
b(1,R),
R == 1.