Sindbad~EG File Manager

Length of proof is 7.  Level of proof is 5.
 
---------------- PROOF ----------------
 
7 [] -T(x,y,x)|x=y.
109 [] M(xa,xm,xa)|xm!=xa.
165 [] -perp(xa,xb,xp,xq)|perp(xb,xa,xp,xq).
179 [] -Col(xa,xb,xp)| -Col(xa,xb,xq)|xp=xq|xa=xb| -perpAt(xp,xq,xr,xc,xd)|perpAt(xa,xb,xr,xc,xd).
216 [] -M(xa,xm,xb)|T(xa,xm,xb).
236 [] -perp(xp,xq,xp1,xq1)|perpAt(xp,xq,il(xp,xq,xp1,xq1),xp1,xq1).
237 [] perp(xp,xq,xp1,xq1)| -perpAt(xp,xq,x,xp1,xq1).
239 [] Col(a,b,p).
240 [] Col(a,b,q).
241 [] p!=q.
242 [] a!=b.
243 [] perp(p,q,c,d).
244 [] -perp(a,b,c,d).
294 [binary,241.1,7.2] -T(p,q,p).
324 [binary,243.1,165.1] perp(q,p,c,d).
326 [binary,244.1,237.1] -perpAt(a,b,x,c,d).
500 [binary,294.1,216.2] -M(p,q,p).
702 [binary,500.1,109.1] q!=p.
1483 [ur,179,240,239,702,242,326] -perpAt(q,p,x,c,d).
2725 [binary,1483.1,236.2] -perp(q,p,c,d).
2726 [binary,2725.1,324.1] $F.