Sindbad~EG File Manager

Length of proof is 14.  Level of proof is 6.
 
---------------- PROOF ----------------
 
40 [] T(xa,xb,ext(xa,xb,alpha,gamma)).
41 [] xb!=ext(xa,xb,alpha,gamma).
49 [] -Col(xa,xb,xc)|Col(xb,xc,xa).
52 [] -Col(xa,xb,xc)|Col(xb,xa,xc).
55 [] Col(xa,xb,xa).
101 [] xp=xq|xp=xr| -T(xq,xp,xr)|xa!=xp|Col(xa,xp,xq).
105 [] xp=xq| -Col(xp,xq,xr)|Col(xq,xp,xr).
208 [] xa=xb| -samesideline(xp,xq,xa,xb)|samesideline(xq,xp,xa,xb).
343 [] -parallel(xA,yA,xB,yB)|xA!=yA.
345 [] -parallel(xA,yA,xB,yB)|samesideline(xB,yB,xA,yA).
346 [] -parallel(xA,yA,xB,yB)| -Col(xA,yA,x)| -Col(xB,yB,x).
347 [] xA=yA|xB=yB|parallel(xA,yA,xB,yB)|Col(xA,yA,e5(xA,yA,xB,yB))| -samesideline(xB,yB,xA,yA).
348 [] xA=yA|xB=yB|parallel(xA,yA,xB,yB)|Col(xB,yB,e5(xA,yA,xB,yB))| -samesideline(xB,yB,xA,yA).
350 [] parallel(a1,a2,b1,b2).
351 [] -parallel(a1,a2,b2,b1).
353 [] e5(a1,a2,b2,b1)=c.
378 [binary,350.1,346.1] -Col(a1,a2,x)| -Col(b1,b2,x).
379 [binary,350.1,345.1] samesideline(b1,b2,a1,a2).
381 [binary,350.1,343.1] a1!=a2.
392 [ur,346,350,55] -Col(a1,a2,b1).
393 [ur,346,350,55] -Col(b1,b2,a1).
413 [binary,379.1,208.2,unit_del,381] samesideline(b2,b1,a1,a2).
500 [binary,392.1,49.2] -Col(b1,a1,a2).
519 [binary,393.1,52.2] -Col(b2,b1,a1).
658 [ur,101,381,41,40,500] b1!=a1.
709 [ur,101,658,41,40,519] b2!=b1.
743 [ur,348,381,709,351,413,demod,353] Col(b2,b1,c).
744 [ur,347,381,709,351,413,demod,353] Col(a1,a2,c).
790 [binary,743.1,105.2,unit_del,709] Col(b1,b2,c).
818 [binary,744.1,378.1] -Col(b1,b2,c).
819 [binary,818.1,790.1] $F.