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

%%%%%%%%%%%%%%%%%%%%%  Standard options for hyperresolution

set(output_sequent).
set(hyper_res).
set(order_history).
set(unit_deletion).
set(para_from_units_only).
set(para_into_units_only).

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

op(400,xfy,*).  % infix operators

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

list(usable).
x = x.
A*B*A*B*A*B != A*A*A*B*B*B | B*B*B*A*A*A != A*A*A*B*B*B.
end_of_list.

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

% The following is so that if we derive anthing that subsumes
% either of the goals, it will be selected as given clause right away.

assign(bsub_hint_wt, 0).
list(hints).
x*y*x*y*x*y = x*x*x*y*y*y.
x*x*x*y*y*y = y*y*y*x*x*x.
end_of_list.