Sindbad~EG File Manager

Length of proof is 13.  Level of proof is 5.
 
---------------- PROOF ----------------
 
13 [] E(xa,xb,xa,xb).
50 [] -Col(xa,xb,xc)|Col(xa,xc,xb).
52 [] Col(xa,xb,xa).
112 [] -M(xp,xa,xq)|xq=s(xa,xp).
154 [] -perp(xa,xb,xp,xq)| -Col(xa,xb,xc)| -Col(xp,xq,xc)|perpAt(xa,xb,xc,xp,xq).
174 [] M(xa,midpoint(xa,xb),xb).
213 [] xa=xb|Col(xa,xb,midpoint(xp,reflect(xa,xb,xp))).
214 [] xa=xb|xp=reflect(xa,xb,xp)|perp(xa,xb,xp,reflect(xa,xb,xp)).
222 [] xa=xb| -Col(xa,xb,xp)|reflect(xa,xb,xp)=xp.
243 [] Col(xa,xb,xc)| -T(xa,xb,xc).
259 [] -M(xa,xm,xb)|T(xa,xm,xb).
269 [] -R(xa,xb,xc)|E(xa,xc,xa,s(xb,xc)).
275 [] -perpAt(y,z,x,y1,z1)| -Col(y,z,u)| -Col(y1,z1,v)|R(u,x,v).
299 [] a!=b.
300 [] Col(a,b,p).
301 [] -E(p,q,reflect(a,b,p),reflect(a,b,q)).
303 [] q1=reflect(a,b,q).
305 [] cy=midpoint(q,q1).
310 [] reflect(a,b,q)=q1.
312 [] midpoint(q,q1)=cy.
410 [para_into,301.1.3,222.3.1,demod,310,unit_del,299,300] -E(p,q,p,q1).
432 [para_from,303.1.2,214.2.2,demod,310,unit_del,299] q=q1|perp(a,b,q,q1).
435 [para_from,303.1.2,213.2.3.2,demod,312,unit_del,299] Col(a,b,cy).
453 [para_from,305.1.2,174.1.2] M(q,cy,q1).
534 [para_from,432.1.1,410.1.2,unit_del,13] perp(a,b,q,q1).
601 [binary,453.1,259.1] T(q,cy,q1).
604 [binary,453.1,112.1] q1=s(cy,q).
713 [binary,601.1,243.2] Col(q,cy,q1).
757 [para_from,604.1.2,269.2.4] -R(x,cy,q)|E(x,q,x,q1).
859 [binary,713.1,50.1] Col(q,q1,cy).
873 [binary,757.2,410.1] -R(p,cy,q).
891 [hyper,154,534,435,859] perpAt(a,b,cy,q,q1).
901 [ur,275,300,52,873] -perpAt(a,b,cy,q,x).
902 [binary,901.1,891.1] $F.