Sindbad~EG File Manager

%  Tarski-Szmielew's axiom system
%  T is Tarski's B,  non-strict betweenness
%  E is equidistance
%  Names for the axioms as in SST.
%  Assumes up to 6.13 and proves Satz 6.15


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



assign(max_weight,25).
assign(max_distinct_vars,11).
assign(pick_given_ratio,4).
assign(max_proofs,2).

 
list(usable).
 E(x,y,y,x).                                   % A1 from page 10 of sst
 -E(x,y,z,v) | -E(x,y,z2,v2) | E(z,v,z2,v2).   % A2
 -E(x,y,z,z) | x=y.                            % A3
 T(x,y,ext(x,y,w,v)).                          % A4, first half
 E(y,ext(x,y,w,v),w,v).                        % A4, second half
 -E(x,y,x1,y1) | -E(y,z,y1,z1) | -E(x,v,x1,v1) | -E(y,v,y1,v1) |
-T(x,y,z) | -T(x1,y1,z1) | x=y | E(z,v,z1,v1).  % A5
 -T(x,y,x) | x=y.                              % A6
% A7, inner Pasch, two clauses.
-T(xa,xp,xc) | -T(xb,xq,xc) | T(xp,ip(xa,xp,xc,xb,xq),xb).   
-T(xa,xp,xc) | -T(xb,xq,xc) | T(xq,ip(xa,xp,xc,xb,xq),xa).   
-T(alpha,beta,gamma).  %A8,  three lines.
-T(beta,gamma,alpha).
-T(gamma,alpha,beta).
% We don't need more of Tarski's axioms than that here.
E(x,y,x,y).  % Satz2-1
-E(xa,xb,xc,xd) | E(xc,xd,xa,xb).  % Satz2-2
-E(xa,xb,xc,xd) | E(xb,xa,xc,xd).  % Satz2-4
-E(xa,xb,xc,xd) | -E(xc,xd,xe,xf) | E(xa,xb,xe,xf).  %Satz2-3
-E(xa,xb,xc,xd) | E(xa,xb,xd,xc).  % Satz2-5
E(x,x,y,y).  % Satz 2-8
-T(xa,xb,xc) | -T(xa1,xb1,xc1) | -E(xa,xb,xa1,xb1) |
-E(xb,xc,xb1,xc1) | E(xa,xc,xa1,xc1).  % Satz 2.11
xq = xa | -T(xq,xa,u) | -E(xa,u,xc,xd) | ext(xq,xa,xc,xd) = u.    % Satz 2.12
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
-IFS(xa,xb,xc,xd,xa1,xb1,xc1,xd1) | E(xb,xd,xb1,xd1).  % Satz 4.2
-T(xa,xb,xc) | -T(xa1,xb1,xc1) | -E(xa,xc,xa1,xc1)
 | -E(xb,xc,xb1,xc1) | E(xa,xb,xa1,xb1).  % Satz 4.3

  alpha != beta.  % Satz 3.13
  beta != gamma.
  alpha != gamma.
T(xa,xb,ext(xa,xb,alpha,gamma)).   % Satz 3.14, first half
xb != ext(xa,xb,alpha,gamma).    % Satz 3.14, second half
  % The following many clauses are Definition 4.1
-IFS(xa,xb,xc,xd,za,zb,zc,zd) | T(xa,xb,xc).
-IFS(xa,xb,xc,xd,za,zb,zc,zd) | T(za,zb,zc).
-IFS(xa,xb,xc,xd,za,zb,zc,zd) | E(xa,xc,za,zc).
-IFS(xa,xb,xc,xd,za,zb,zc,zd) | E(xb,xc,zb,zc).
-IFS(xa,xb,xc,xd,za,zb,zc,zd) | E(xa,xd,za,zd).
-IFS(xa,xb,xc,xd,za,zb,zc,zd) | E(xc,xd,zc,zd).
 -T(xa,xb,xc) | -T(za,zb,zc) | -E(xa,xc,za,zc) | -E(xb,xc,zb,zc)
 | -E(xa,xd,za,zd) | -E(xc,xd,zc,zd) | IFS(xa,xb,xc,xd,za,zb,zc,zd).

% Following 4 are definition 4.4 for n=3
-E3(xa1,xa2,xa3,xb1,xb2,xb3) | E(xa1,xa2,xb1,xb2).
-E3(xa1,xa2,xa3,xb1,xb2,xb3) | E(xa1,xa3,xb1,xb3).
-E3(xa1,xa2,xa3,xb1,xb2,xb3) | E(xa2,xa3,xb2,xb3).
-E(xa1,xa2,xb1,xb2) | -E(xa1,xa3,xb1,xb3) | -E(xa2,xa3,xb2,xb3) 
| E3(xa1,xa2,xa3,xb1,xb2,xb3).
% Following three lines are Satz 4.5
-T(xa,xb,xc) | -E(xa,xc,xa1,xc1) | T(xa1,insert(xa,xb,xa1,xc1),xc1).
-T(xa,xb,xc) | -E(xa,xc,xa1,xc1) | E3(xa,xb,xc,xa1,insert(xa,xb,xa1,xc1),xc1).
insert(xa,xb,xa1,xc1) = ext(ext(xc1,xa1,alpha,gamma),xa1,xa,xb).
-E3(x,y,z,u,v,w) | E3(x,z,y,u,w,v).   % See sst4q.in, not in Szmielew
-T(xa,xb,xc) | -E3(xa,xb,xc,xa1,xb1,xc1) | T(xa1,xb1,xc1).  % Satz 4.6

% 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 are Satz 4.11
-Col(x,y,z) | Col(y,z,x).
-Col(x,y,z) | Col(z,x,y).
-Col(x,y,z) | Col(z,y,x).
-Col(x,y,z) | Col(y,x,z).
-Col(x,y,z) | Col(x,z,y).
% following is Satz 4.12
Col(x,x,y).
% following is Satz 4.13
-Col(xa,xb,xc) | - E3(xa,xb,xc,xa1,xb1,xc1) | Col(xa1,xb1,xc1).
% following is Satz 4.14
-Col(xa,xb,xc) | -E(xa,xb,xa1,xb1) | E3(xa,xb,xc,xa1,xb1,insert5(xa,xb,xc,xa1,xb1)).
% following is Definition 4.15
-FS(xa,xb,xc,xd,xa1,xb1,xc1,xd1) | Col(xa,xb,xc).
-FS(xa,xb,xc,xd,xa1,xb1,xc1,xd1) | E3(xa,xb,xc,xa1,xb1,xc1).
-FS(xa,xb,xc,xd,xa1,xb1,xc1,xd1) | E(xa,xd,xa1,xd1).
-FS(xa,xb,xc,xd,xa1,xb1,xc1,xd1) | E(xb,xd,xb1,xd1).
-Col(xa,xb,xc) | - E3(xa,xb,xc,xa1,xb1,xc1) | - E(xa,xd,xa1,xd1) | -E(xb,xd,xb1,xd1) | FS(xa,xb,xc,xd,xa1,xb1,xc1,xd1).
% Following is Satz 4.16
-FS(xa,xb,xc,xd,xa1,xb1,xc1,xd1) | xa = xb | E(xc,xd,xc1,xd1).
% Following is Satz 4.17
xa = xb | -Col(xa,xb,xc) | -E(xa,xp,xa,xq) | -E(xb,xp,xb,xq) | E(xc,xp,xc,xq).
% Following is Satz 4.18
xa = xb | -Col(xa,xb,xc) | -E(xa,xc,xa,xc1) | -E(xb,xc,xb,xc1) | xc = xc1.
% Following is Satz 4.19
-T(xa,xc,xb) | -E(xa,xc,xa,xc1) | -E(xb,xc,xb,xc1) | xc = xc1.
% 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).
% Following is Definition 5.4
-T(xc,y,xd) | -E(xa,xb,xc,y) | le(xa,xb,xc,xd).
-le(xa,xb,xc,xd) | T(xc,ins( xa,xb,xc,xd),xd). %ab inserted into cd
-le(xa,xb,xc,xd) | E(xa,xb,xc,ins(xa,xb,xc,xd)).
% Following is Satz 5.5a
-le(xa,xb,xc,xd) | T(xa,xb,ins(xc,xd,xa,xb)).
-le(xa,xb,xc,xd) | E(xa,ins(xc,xd,xa,xb),xc,xd).
% Following is Satz 5.5b
-T(xa,xb,x) | -E(xa,x,xc,xd) | le(xa,xb,xc,xd).
% Following is Satz 5.6
-le(xa,xb,xc,xd) | -E(xa,xb,xa1,xb1) | - E(xc,xd,xc1,xd1) | le(xa1,xb1,xc1,xd1).
% Following is Satz 5.7
le(xa,xb,xa,xb).
% Following is Satz 5.8
-le(xa,xb,xc,xd) | - le(xc,xd,xe,xf) | le(xa,xb,xe,xf).
% Following is Satz 5.9
-le(xa,xb,xc,xd) | -le(xc,xd,xa,xb) | E(xa,xb,xc,xd).
% Following is Satz 5.10
le(xa,xb,xc,xd) | le(xc,xd,xa,xb).
% Following is Satz 5.11
le(xa,xa,xc,xd).
% Following is Satz 5.12a
-Col(xa,xb,xc) | -T(xa,xb,xc) | le(xa,xb,xa,xc).
-Col(xa,xb,xc) | -T(xa,xb,xc) | le(xb,xc,xa,xc).
% Following is Satz 5.12b
-Col(xa,xb,xc) | -le(xa,xb,xa,xc) | -le(xb,xc,xa,xc) | T(xa,xb,xc).
% Following is definition 6.1: a and b are on the same side of p
-sameside(xa,xp,xb) | xa != xp.
-sameside(xa,xp,xb) | xb != xp.
-sameside(xa,xp,xb) | T(xp,xa,xb) | T(xp,xb,xa).
-T(xp,xa,xb) | xb=xp | xp=xa | sameside(xa,xp,xb).
-T(xp,xb,xa) | xb=xp | xp=xa | sameside(xa,xp,xb).
% following is Satz 6.2
xa = xp | xb = xp | xc = xp | -T(xa,xp,xc) | -T(xb,xp,xc) | sameside(xa,xp,xb).
xa = xp | xb = xp | xc = xp | -T(xa,xp,xc) | T(xb,xp,xc) | -sameside(xa,xp,xb).
% Following is Satz 6.3
-sameside(xa,xp,xb) | xa != xp.
-sameside(xa,xp,xb) | xb != xp.
-sameside(xa,xp,xb) | c63(xa,xp,xb) != xp.
-sameside(xa,xp,xb) | T(xa,xp,c63(xa,xp,xb)).
-sameside(xa,xp,xb) | T(xb,xp,c63(xa,xp,xb)).
% Following is Satz 6.4
-sameside(xa,xp,xb) | Col(xa,xp,xb).
-sameside(xa,xp,xb) | -T(xa,xp,xb).
-Cot(xa,xp,xb) | T(xa,xp,xb) | sameside(xa,xp,xb).
%Following is Satz 6.5
xa = xp | sameside(xa,xp,xa).
% Following is Satz 6.6
-sameside(xa,xp,xb) | sameside(xb,xp,xa).
% Following is Satz 6.7
-sameside(xa,xp,xb) | -sameside(xb,xp,xc) | sameside(xa,xp,xc).
% Following is Satz 6.11
xr = xa | xb = xc | sameside(insert(xb,xc,xa,xr),xa,xr).
xr = xa | xb = xc | E(xa,insert(xb,xc,xa,xr),xb,xc).
xr = xa | xb = xc | -sameside(x,xa,xr) | -sameside(y,xa,xr) | -E(xa,x,xb,xc) | -E(xa,y,xb,xc) | x=y.
% Following is Satz 6.13
-sameside(xa,xp,xb) | -le(xp,xa,xp,xb) | T(xp,xa,xb).
-sameside(xa,xp,xb) | -T(xp,xa,xb) | le(xp,xa,xp,xb).
end_of_list.

list(passive).
 
end_of_list.

list(sos).  % Satz 6.15
p != q.
p != r.
T(q,p,r).
Col(a,p,q).
a != p.
-sameside(a,p,q).
-sameside(a,p,r).
end_of_list.