%      Production system KORE/IE (version 12.48)
%
%          (C)1992 Institute for New Generation Computer Technology
%                          (Read COPYRIGHT for detailed information)
%
%      1992.7 Check and refine every programs 
%                             for IFS (ICOT Free Software) release.
%
%%%%% nega_wm/3
nega_wm(*,X,_) :-
	!,
	X.
nega_wmOA(_,X,Y) :-
	!,
	\+((X,Y)).

%%%%% nega_wm/2
nega_wm(*,_) :-
	!.
nega_wm(_,X) :-
	\+ X.
