Sindbad~EG File Manager

Length of proof is 17.  Level of proof is 4.
 
---------------- PROOF ----------------
 
14 [] -E(xa,xb,xc,xd)|E(xc,xd,xa,xb).
52 [] Col(xa,xb,xa).
57 [] xa=xb| -Col(xa,xb,xc)| -E(xa,xc,xa,xc1)| -E(xb,xc,xb,xc1)|xc=xc1.
103 [] xa=xb|xp=xq| -Col(xp,xq,xa)| -Col(xp,xq,xb)| -Col(xp,xq,xr)|Col(xa,xb,xr).
107 [] -M(xa,xm,xb)|M(xb,xm,xa).
112 [] -M(xp,xa,xq)|xq=s(xa,xp).
116 [] s(xa,xp)!=xp|xp=xa.
144 [] Col(xa,xb,xc)| -T(xb,xc,xa).
159 [] -M(xa,xm,xb)|T(xa,xm,xb).
160 [] -M(xa,xm,xb)|E(xm,xa,xm,xb).
170 [] M(p,a,q).
171 [] M(p,b,q).
172 [] a!=b.
173 [binary,170.1,160.1] E(a,p,a,q).
174 [binary,170.1,159.1] T(p,a,q).
175 [binary,170.1,112.1] q=s(a,p).
183 [binary,171.1,159.1] T(p,b,q).
184 [binary,171.1,112.1] q=s(b,p).
187 [binary,171.1,107.1] M(q,b,p).
201 [binary,172.1,103.1] x=y| -Col(x,y,a)| -Col(x,y,b)| -Col(x,y,z)|Col(a,b,z).
225 [binary,172.1,57.1] -Col(a,b,x)| -E(a,x,a,y)| -E(b,x,b,y)|x=y.
332 [binary,173.1,14.1] E(a,q,a,p).
387 [binary,174.1,144.2] Col(q,p,a).
557 [binary,183.1,144.2] Col(q,p,b).
760 [para_from,175.1.2,116.1.1] q!=p|p=a.
767 [binary,187.1,160.1] E(b,q,b,p).
1450 [para_from,184.1.2,116.1.1] q!=p|p=b.
20585 [para_into,1450.2.1,760.2.1,unit_del,172,factor_simp] q!=p.
20590 [binary,20585.1,225.4,unit_del,332,767] -Col(a,b,q).
20647 [ur,201,20585,387,557,52] Col(a,b,q).
20648 [binary,20647.1,20590.1] $F.