Sindbad~EG File Manager

%  T is Tarski's B,  non-strict betweenness
%  E is equidistance
%  Names for the axioms as in SST.
% Proves Lemma 5A, a simple case of extensionality of Col.
% This is used for Lemma 12.6A, which we could not do all at once.
% In the positive form:
%   -Col(xa,xb,v) | xa=xb |  -Col(xa,v,z) | xa=v  Col(xa,xb,z).


set(hyper_res).
clear(order_hyper).
set(para_into).
set(para_from).
set(binary_res).
%set(neg_hyper_res).
set(ur_res).
set(para_from).
set(para_into).
%  set(unit_deletion).
set(order_history).
assign(report,5400).
%  assign(max_seconds, 36000).
assign(max_mem,840000).
%clear(print_kept).
% set(very_verbose).
set(input_sos_first).
%  set(ancestor_subsume).
set(back_sub).
% set(sos_queue).



assign(max_weight,25).
assign(max_distinct_vars,1).
assign(pick_given_ratio,2).
assign(max_proofs,1).

assign(bsub_hint_wt,-1).
%assign(fsub_hint_wt,-1).
set(keep_hint_subsumers).


weight_list(pick_and_purge).
end_of_list.

list(hot).    
-T(xa,xb,xc) | T(xc,xb,xa).  % Satz 3.2.   
end_of_list.
 

list(usable).      

x=x.
T(x,y,y).    % Satz 3.1
-T(xa,xb,xc) | T(xc,xb,xa).  % Satz 3.2.
T(xa,xa,xb).  % Satz 3.3
-T(xa,xb,xc) | -T(xb,xa,xc) | xa = xb.  % Satz 3.4.
-T(xa,xb,xd) | -T(xb,xc,xd) | T(xa,xb,xc). % Satz 3.51.
-T(xa,xb,xd) | -T(xb,xc,xd) | T(xa,xc,xd). % Satz 3.52.
-T(xa,xb,xc) | -T(xa,xc,xd) | T(xb,xc,xd). % Satz 3.61.
-T(xa,xb,xc) | -T(xa,xc,xd) | T(xa,xb,xd). % Satz 3.61.
-T(xa,xb,xc) | -T(xb,xc,xd) | xb = xc | T(xa,xc,xd).  % Satz 3.71
-T(xa,xb,xc) | -T(xa,xc,xd) | T(xa,xb,xd). % Satz 3.62.
-T(xa,xb,xc) | -T(xb,xc,xd) | xb = xc | T(xa,xc,xd).  % Satz 3.71
-T(xa,xb,xc) | -T(xb,xc,xd) | xb = xc | T(xa,xb,xd).  % Satz 3.72
 

 
 % following is Definition 4.10
-Col(xa,xb,xc) | T(xa,xb,xc) | T(xb,xc,xa) | T(xc,xa,xb).
Col(xa,xb,xc) | -T(xa,xb,xc).
Col(xa,xb,xc) | -T(xb,xc,xa).
Col(xa,xb,xc) | -T(xc,xa,xb).
 
 
% Following is Satz 5.1
xa = xb | -T(xa,xb,xc) | -T(xa,xb,xd) | T(xa,xc,xd) | T(xa,xd,xc).
% Following is Satz 5.2
xa = xb | -T(xa,xb,xc) | -T(xa,xb,xd)| T(xb,xc,xd) | T(xb,xd,xc).
% Following is Satz 5.3
-T(xa,xb,xd) | -T(xa,xc,xd) | T(xa,xb,xc) | T(xa,xc,xb).

end_of_list.  


list(hints2).    
T(a,c,p)|T(c,p,a)|T(p,a,c).
-T(p,a,b).
-T(b,p,a).
-T(a,b,p).
-T(b,a,p).
-T(a,p,b).
T(c,p,a)|T(p,a,c)| -T(a,c,x)|T(a,x,p)|T(a,p,x).
T(c,p,a)|T(p,a,c)| -T(x,a,c)|T(x,a,p).
T(a,c,p)|T(c,p,a)| -T(a,x,c)|T(p,x,c).
-T(x,p,a)| -T(x,a,b).
-T(p,a,x)| -T(a,b,x).
-T(x,p,a)| -T(b,a,x).
-T(p,a,x)| -T(x,b,a).
-T(b,x,a)| -T(x,p,a).
-T(a,p,x)| -T(a,b,x).
-T(a,b,x)| -T(a,x,p).
-T(a,b,x)| -T(x,p,a).
-T(a,x,p)| -T(x,b,a).
-T(b,c,a)|T(p,a,c)| -T(a,c,x)|T(a,x,p)|T(a,p,x).
T(p,a,c)| -T(a,c,x)|T(a,x,p)|T(a,p,x)| -T(a,c,b).
T(p,a,c)| -T(a,c,b).
T(p,a,c)| -T(x,a,c)|T(x,a,p)| -T(b,a,c).
T(p,a,c)| -T(b,a,c).
-T(b,a,c)|T(c,a,p).
-T(a,c,b)| -T(a,c,x)|T(p,a,x).
-T(a,c,b).
-T(b,c,a).
-T(b,a,c)|c=a| -T(c,a,x)|T(a,x,p)|T(a,p,x).
c=a| -T(c,a,x)|T(a,x,p)|T(a,p,x)| -T(c,a,b).
c=a| -T(c,a,b).
-T(c,a,b).
T(a,b,c).
T(c,b,a).
T(a,c,p)|T(c,p,a).
T(c,p,a).
-T(a,b,c).
  
end_of_list.

list(passive).
 
end_of_list.  
 

list(sos). 
a != b.
a != c.
Col(a,b,c).
Col(a,c,p).
-Col(a,b,p).

 
 
 

 
 
end_of_list.