%%%%%%%%%%%%%%%%%%%%%  Basic options

op(400, xfx, [*,+,^,v,/,\,#]).  % infix operators
op(300,yf,@).                   % postfix operator

clear(print_kept).
clear(print_new_demod).
clear(print_back_demod).

assign(pick_given_ratio, 4).
assign(max_mem, 20000).

%%%%%%%%%%%%%%%%%%%%%  Standard for equational problems

set(knuth_bendix).
set(build_proof_object).

%%%%%%%%%%%%%%%%%%%%%  Modifications to strategy

op(400,xfy,*).  % infix operators
assign(max_weight, 31).
% clear(lrpo).

%%%%%%%%%%%%%%%%%%%%%  Clauses

list(usable).
x = x.
end_of_list.

list(sos).
*(*(x,y),z) = *(x,*(y,z)).
*(x,*(y,y)) = *(y,*(y,x)).
end_of_list.

list(passive).
*(A,*(B,*(A,*(B,*(A,*(B,*(A,B))))))) != *(A,*(A,*(A,*(A,*(B,*(B,*(B,B))))))).
end_of_list.