Sindbad~EG File Manager

Length of proof is 16.  Level of proof is 6.
 
---------------- PROOF ----------------
 
7 [] -T(x,y,x)|x=y.
102 [] xp=xq| -Col(xp,xq,xr)|Col(xq,xp,xr).
109 [] M(xa,xm,xa)|xm!=xa.
147 [] -perpAt(xa,xb,xc,xp,xq)|Col(xa,xb,f813(xa,xb,xp,xq,xc)).
148 [] -perpAt(xa,xb,xc,xp,xq)|Col(xp,xq,g813(xa,xb,xp,xq,xc)).
149 [] -perpAt(xa,xb,xc,xp,xq)|xc!=f813(xa,xb,xp,xq,xc).
150 [] -perpAt(xa,xb,xc,xp,xq)|xc!=g813(xa,xb,xp,xq,xc).
151 [] -perpAt(xa,xb,xc,xp,xq)|R(f813(xa,xb,xp,xq,xc),xc,g813(xa,xb,xp,xq,xc)).
152 [] xa=xb|xp=xq| -Col(xp,xq,xcx)| -Col(xa,xb,xcx)| -Col(xa,xb,u)| -Col(xp,xq,v)|xcx=u|xcx=v| -R(u,xcx,v)|perpAt(xa,xb,xcx,xp,xq).
201 [] -M(xa,xm,xb)|T(xa,xm,xb).
213 [] -perpAt(y,z,x,y1,z1)|Col(y,z,x).
214 [] -perpAt(y,z,x,y1,z1)|Col(y1,z1,x).
215 [] -perpAt(y,z,x,y1,z1)|y!=z.
216 [] -perpAt(y,z,x,y1,z1)|y1!=z1.
221 [] -perp(xp,xq,xp1,xq1)|perpAt(xp,xq,il(xp,xq,xp1,xq1),xp1,xq1).
222 [] perp(xp,xq,xp1,xq1)| -perpAt(xp,xq,x,xp1,xq1).
224 [] perp(a,b,p,q).
225 [] -perp(b,a,p,q).
227 [] il(a,b,p,q)=c.
228 [binary,224.1,221.1,demod,227] perpAt(a,b,c,p,q).
254 [binary,225.1,222.1] -perpAt(b,a,x,p,q).
267 [binary,228.1,216.1] p!=q.
268 [binary,228.1,215.1] a!=b.
269 [binary,228.1,214.1] Col(p,q,c).
270 [binary,228.1,213.1] Col(a,b,c).
271 [binary,228.1,151.1] R(f813(a,b,p,q,c),c,g813(a,b,p,q,c)).
272 [binary,228.1,150.1] c!=g813(a,b,p,q,c).
273 [binary,228.1,149.1] c!=f813(a,b,p,q,c).
274 [binary,228.1,148.1] Col(p,q,g813(a,b,p,q,c)).
275 [binary,228.1,147.1] Col(a,b,f813(a,b,p,q,c)).
472 [binary,268.1,7.2] -T(a,b,a).
727 [binary,270.1,102.2,unit_del,268] Col(b,a,c).
1197 [binary,472.1,201.2] -M(a,b,a).
2930 [binary,1197.1,109.1] b!=a.
5721 [ur,152,2930,267,269,727,274,273,272,271,254] -Col(b,a,f813(a,b,p,q,c)).
5762 [binary,275.1,102.2,unit_del,268,5721] $F.