cc4531cd1e
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@53 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
27 lines
2.4 KiB
Prolog
27 lines
2.4 KiB
Prolog
:- op(600,xfy,::).
|
|
:- op(600,fy,::).
|
|
:- op(600,fx,^^).
|
|
:- dynamic '**2__ddcl'/4.
|
|
:- dynamic '**2__ddef'/5.
|
|
'**2_'('**2__dcl','**2__def','**2__super','**2__sdcl','**2__sdef','**2__ddcl','**2__ddef').
|
|
'**2__dcl'(_37598,_37599,_37600,_37601):-fail.
|
|
'**2__dcl'(_37598,_37599,_37600,_37601,_37605**_37606,_37605**_37606):-'**2__dcl'(_37598,_37599,_37600,_37601).
|
|
'**2__dcl'(_37598,_37599,_37600,_37601,_37605**_37606,_37605**_37606):-'**2__ddcl'(_37598,_37599,_37600,_37601).
|
|
'**2__dcl'(_37598,_37599,_37600,_37601,_37605**_37606,_37603):-symdiffp0__dcl(_37598,_37599,_37600,_37601,_37603).
|
|
'**2__def'(diff(_37601),_37596,_37597,_37598,'**2_diff1'(_37601,_37596,_37597,_37598)).
|
|
'**2__def'(diff(_37601,_37602,_37603),_37596,_37597,_37598,'**2_diff3'(_37601,_37602,_37603,_37596,_37597,_37598)).
|
|
'**2__def'(simplify(_37601),_37596,_37597,_37598,'**2_simplify1'(_37601,_37596,_37597,_37598)).
|
|
'**2__def'(simplify(_37601,_37602,_37603),_37596,_37597,_37598,'**2_simplify3'(_37601,_37602,_37603,_37596,_37597,_37598)).
|
|
'**2__def'(_37598,_37599,_37600,_37601,_37602,_37605**_37606):-'**2__def'(_37598,_37599,_37600,_37601,_37602).
|
|
'**2__def'(_37598,_37599,_37600,_37601,_37602,_37605**_37606):-'**2__ddef'(_37598,_37599,_37600,_37601,_37602).
|
|
'**2__super'(_37598,_37599,_37600,_37601,_37602,_37603):-fail.
|
|
'**2_diff1'(_37598,_37599,_37603**_37604,_37601):-once('**2_diff3'(_37603,_37604,_37598,_37599,_37603**_37604,_37601)).
|
|
'**2_diff3'(_37598,_37599,_37599*_37598**_37612*_37606,_37601,_37602,_37603):-integer(_37599),_37612 is _37599-1,lgt_send_to_object(_37598,diff(_37606),_37602).
|
|
'**2_diff3'(_37598,_37599,_37599*_37598**_37612*_37606,_37601,_37602,_37603):-_37612=_37599-1,lgt_send_to_object(_37598,diff(_37606),_37602).
|
|
'**2_simplify1'(_37598,_37599,_37603**_37604,_37601):-once('**2_simplify3'(_37603,_37604,_37598,_37599,_37603**_37604,_37601)).
|
|
'**2_simplify3'(_37595,0,1,_37598,_37599,_37600).
|
|
'**2_simplify3'(_37595,1,_37595,_37598,_37599,_37600).
|
|
'**2_simplify3'(_37598,_37599,_37605**_37599,_37601,_37602,_37603):-integer(_37599),lgt_send_to_object(_37598,simplify(_37605),_37602).
|
|
'**2_simplify3'(_37598,_37599,_37605**_37606,_37601,_37602,_37603):-lgt_send_to_object(_37598,simplify(_37605),_37602),lgt_send_to_object(_37599,simplify(_37606),_37602).
|
|
:- initialization((lgt_assert_relation_clauses([lgt_current_object_(_37612**_37613,'**2_','**2__dcl','**2__def','**2__super'),lgt_implements_protocol_(_37621**_37622,symdiffp,public)]))).
|