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

% (v,^) is a weakly associative lattice.

x ^ x = x.
x ^ y = y ^ x.
((x v z) ^ (y v z)) ^ z = z.

x v x = x.
x v y = y v x.
((x ^ z) v (y ^ z)) v z = z.

% add equations to make (v,*) a weakly associative lattice.

x * x = x.
x * y = y * x.
((x v z) * (y v z)) * z = z.

((x * z) v (y * z)) v z = z.

A ^ B != A * B.
end_of_list.

list(passive).
end_of_list.

