Sindbad~EG File Manager

Length of proof is 22.  Level of proof is 7.
 
---------------- PROOF ----------------
 
13 [] E(xa,xb,xa,xb).
25 [] -T(xa,xb,xc)|T(xc,xb,xa).
49 [] -Col(xa,xb,xc)|Col(xb,xa,xc).
70 [] le(xa,xb,xc,xd)|le(xc,xd,xa,xb).
107 [] -M(xa,xm,xb)|M(xb,xm,xa).
131 [] -E(xc,xa,xc,xb)|M(xa,isomidpoint(xa,xb,xc),xb).
142 [] -perp(xa,xb,xp,xq)|perp(xp,xq,xa,xb).
165 [] -perp(xa,xb,xp,xq)|perp(xb,xa,xp,xq).
170 [] xa=xb|perp(xa,xb,erect(xa,xb,xc),xa).
171 [] xa=xb|Col(xa,xb,erectAux(xa,xb,xc)).
172 [] xa=xb|T(xc,erectAux(xa,xb,xc),erect(xa,xb,xc)).
173 [] -le(xa,xp,xb,xq)| -perp(xa,xb,xa,xp)| -perp(xa,xb,xb,xq)| -T(xp,xt,xq)| -Col(xa,xb,xt)|M(xa,midpointAux(xa,xb,xp,xq,xt),xb).
233 [] -M(a,x,b).
235 [] P=erect(b,a,a).
236 [] Q=erect(a,b,P).
237 [] tt=erectAux(a,b,P).
247 [] erectAux(a,b,P)=tt.
277 [binary,233.1,131.2] -E(x,a,x,b).
278 [binary,233.1,107.2] -M(b,x,a).
294 [para_from,235.1.2,170.2.3] b=a|perp(b,a,P,b).
302 [para_from,236.1.2,172.2.3,demod,247] a=b|T(P,tt,Q).
303 [para_from,236.1.2,170.2.3] a=b|perp(a,b,Q,a).
311 [para_from,237.1.2,171.2.3] a=b|Col(a,b,tt).
375 [para_from,294.1.1,277.1.4,unit_del,13] perp(b,a,P,b).
381 [para_from,303.1.1,277.1.2,unit_del,13] perp(a,b,Q,a).
394 [para_from,311.1.1,277.1.2,unit_del,13] Col(a,b,tt).
397 [binary,375.1,142.1] perp(P,b,b,a).
401 [binary,381.1,165.1] perp(b,a,Q,a).
409 [binary,394.1,49.1] Col(b,a,tt).
417 [binary,397.1,165.1] perp(b,P,b,a).
420 [binary,401.1,142.1] perp(Q,a,b,a).
426 [binary,417.1,142.1] perp(b,a,b,P).
430 [binary,420.1,165.1] perp(a,Q,b,a).
432 [binary,426.1,165.1] perp(a,b,b,P).
435 [binary,430.1,142.1] perp(b,a,a,Q).
441 [binary,435.1,165.1] perp(a,b,a,Q).
753 [para_from,302.1.1,277.1.2,unit_del,13] T(P,tt,Q).
771 [binary,753.1,25.1] T(Q,tt,P).
782 [ur,173,426,435,753,409,278] -le(b,P,a,Q).
807 [hyper,173,70,441,432,771,394,unit_del,233,782] $F.