Sindbad~EG File Manager

Length of proof is 18.  Level of proof is 8.
 
---------------- PROOF ----------------
 
14 [] -E(xa,xb,xc,xd)|E(xc,xd,xa,xb).
15 [] -E(xa,xb,xc,xd)| -E(xc,xd,xe,xf)|E(xa,xb,xe,xf).
26 [] T(xa1,xa1,xb1).
32 [] -T(xa,xb,xc)| -T(xa,xc,xd)|T(xa,xb,xd).
74 [] -T(xa,xb,xc)| -E(xa,xc,xa,xb)|xc=xb.
109 [] M(xa,xm,xa)|xm!=xa.
112 [] -M(xp,xa,xq)|xq=s(xa,xp).
132 [] -R(xa,xb,xc)|R(xc,xb,xa).
133 [] -R(xa,xb,xc)|xa=xb| -Col(xb,xa,xa1)|R(xa1,xb,xc).
174 [] M(xa,midpoint(xa,xb),xb).
225 [] -R(xa,xb,xc)| -R(xa1,xb,xc)| -E(xa,xb,xa1,xb)|E(xa,xc,xa1,xc).
248 [] Col(xa,xb,xc)| -T(xc,xa,xb).
262 [] -M(xa,xm,xb)|T(xa,xm,xb).
272 [] -R(xa,xb,xc)|E(xa,xc,xa,s(xb,xc)).
301 [] s(xa,s(xa,xp))=xp.
302 [] R(a,b,c).
303 [] R(a1,b,c1).
304 [] E(a,b,a1,b).
305 [] E(b,c,b,c1).
306 [] -E(a,c,a1,c1).
307 [] b=midpoint(c,c1).
308 [] c!=c1.
310 [binary,302.1,225.2] -R(x,b,c)| -E(x,b,a,b)|E(x,c,a,c).
345 [binary,303.1,272.1] E(a1,c1,a1,s(b,c1)).
358 [binary,303.1,132.1] R(c1,b,a1).
408 [binary,304.1,14.1] E(a1,b,a,b).
476 [binary,305.1,74.2,unit_del,308] -T(b,c1,c).
593 [binary,306.1,14.2] -E(a1,c1,a,c).
629 [para_from,307.1.2,174.1.2] M(c,b,c1).
1001 [ur,32,26,476] -T(b,c1,b).
1023 [binary,629.1,262.1] T(c,b,c1).
1027 [binary,629.1,112.1] c1=s(b,c).
1502 [binary,1001.1,262.2] -M(b,c1,b).
1637 [binary,1023.1,248.2] Col(b,c1,c).
2852 [binary,1502.1,109.1] c1!=b.
3246 [hyper,133,358,1637,unit_del,2852] R(c,b,a1).
6404 [binary,3246.1,132.1] R(a1,b,c).
7986 [binary,6404.1,310.1,unit_del,408] E(a1,c,a,c).
20150 [para_from,1027.1.1,345.1.4.2,demod,301] E(a1,c1,a1,c).
34294 [ur,15,7986,593] -E(a1,c1,a1,c).
34295 [binary,34294.1,20150.1] $F.