Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
13 lines (10 sloc) 294 Bytes
/************************************************************
* h14 anycon.suggest
* after dealing with C, boost any active con whose
* d/r uses C.
*/
h14(C) :-
get(C,[in_domain_of],D),
get(C,[in_range_of],R),
append(D,R,L),
boost_worth(L,100).