Sindbad~EG File Manager

Length of proof is 16.  Level of proof is 6.
 
---------------- PROOF ----------------
 
16 [] E(xa,xb,xa,xb).
28 [] -T(xa,xb,xc)|T(xc,xb,xa).
169 [] xa=xb|xc=xd| -Col(xa,xb,xc)| -Col(xa,xb,xd)| -Col(xc,xd,xp)|Col(xa,xb,xp).
206 [] xa=xb| -M(u,v,w)| -Col(xa,xb,u)| -Col(xa,xb,w)|Col(xa,xb,v).
213 [] xp=xq|Col(xp,xq,xr)|Col(xp,xq,xcs)|samesideline(xr,xcs,xp,xq)|opposite(xr,xp,xq,xcs).
284 [] Col(xa,xb,xc)| -T(xb,xc,xa).
301 [] -T(xa,xm,xb)| -E(xm,xa,xm,xb)|M(xa,xm,xb).
324 [] -opposite(xa,xp,xq,xb)|T(xa,il(xa,xb,xp,xq),xb).
325 [] -opposite(xa,xp,xq,xb)|Col(xp,xq,il(xa,xb,xp,xq)).
344 [] -parallel(xA,yA,xB,yB)|xA!=yA.
345 [] -parallel(xA,yA,xB,yB)|xB!=yB.
347 [] -parallel(xA,yA,xB,yB)| -Col(xA,yA,x)| -Col(xB,yB,x).
351 [] parallel(a1,a2,b1,b2).
352 [] Col(b1,b2,b3).
353 [] Col(b1,b2,b4).
354 [] -samesideline(b3,b4,a1,a2).
355 [] d=il(b3,b4,a1,a2).
377 [binary,351.1,347.1] -Col(a1,a2,x)| -Col(b1,b2,x).
379 [binary,351.1,345.1] b1!=b2.
380 [binary,351.1,344.1] a1!=a2.
420 [ur,347,351,352] -Col(a1,a2,b3).
433 [binary,353.1,169.3,unit_del,379] b4=x| -Col(b1,b2,x)| -Col(b4,x,y)|Col(b1,b2,y).
461 [ur,347,351,353] -Col(a1,a2,b4).
469 [binary,354.1,213.4,unit_del,380,420,461] opposite(b3,a1,a2,b4).
482 [para_from,355.1.2,325.2.3,unit_del,469] Col(a1,a2,d).
483 [para_from,355.1.2,324.2.2,unit_del,469] T(b3,d,b4).
649 [binary,482.1,377.1] -Col(b1,b2,d).
691 [binary,483.1,284.2] Col(b4,b3,d).
707 [binary,483.1,28.1] T(b4,d,b3).
743 [ur,206,379,353,353,649] -M(b4,d,b4).
760 [binary,691.1,433.3,unit_del,352,649] b4=b3.
809 [binary,743.1,301.3,unit_del,16] -T(b4,d,b4).
829 [para_from,760.1.2,707.1.3] T(b4,d,b4).
830 [binary,829.1,809.1] $F.