cc4531cd1e
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@53 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
19 lines
1.0 KiB
Prolog
19 lines
1.0 KiB
Prolog
:- op(600,xfy,::).
|
|
:- op(600,fy,::).
|
|
:- op(600,fx,^^).
|
|
:- dynamic x0__ddcl/4.
|
|
:- dynamic x0__ddef/5.
|
|
x0_(x0__dcl,x0__def,x0__super,x0__sdcl,x0__sdef,x0__ddcl,x0__ddef).
|
|
x0__dcl(_5074,_5075,_5076,_5077):-fail.
|
|
x0__dcl(_5074,_5075,_5076,_5077,x,x):-x0__dcl(_5074,_5075,_5076,_5077).
|
|
x0__dcl(_5074,_5075,_5076,_5077,x,x):-x0__ddcl(_5074,_5075,_5076,_5077).
|
|
x0__dcl(_5074,_5075,_5076,_5077,x,_5079):-symdiffp0__dcl(_5074,_5075,_5076,_5077,_5079).
|
|
x0__def(diff(_5077),_5072,_5073,_5074,x0_diff1(_5077,_5072,_5073,_5074)).
|
|
x0__def(simplify(_5077),_5072,_5073,_5074,x0_simplify1(_5077,_5072,_5073,_5074)).
|
|
x0__def(_5074,_5075,_5076,_5077,_5078,x):-x0__def(_5074,_5075,_5076,_5077,_5078).
|
|
x0__def(_5074,_5075,_5076,_5077,_5078,x):-x0__ddef(_5074,_5075,_5076,_5077,_5078).
|
|
x0__super(_5074,_5075,_5076,_5077,_5078,_5079):-fail.
|
|
x0_diff1(1,_5072,_5073,_5074).
|
|
x0_simplify1(x,_5072,_5073,_5074).
|
|
:- initialization((lgt_assert_relation_clauses([lgt_current_object_(x,x0_,x0__dcl,x0__def,x0__super),lgt_implements_protocol_(x,symdiffp,public)]))).
|