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

% assign(max_weight, 28).

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

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

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