:- 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)]))).