%%%%%%%%%%%%%%%%%%%%%  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

assign(max_weight, 17).

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

list(usable).
x = x.
end_of_list.

list(sos).
(x * y) * z = x * (y * z).
e * x = x.
x * e = x.
@(x) * x = e.
x * @(x) = e.
@(x * y) = @(y) * @(x).
@(x) * (x * y) = y.
x * (@(x) * y) = y.
@(e) = e.
@(@(x)) = x.

a * a0 = b * b0.
c * a0 = d * b0.
a * c0 = b * d0.
end_of_list.

list(passive).
d * d0 != c * c0.
end_of_list.