reserve AFV for WeakAffVect;
reserve a,b,c,d,e,f,a9,b9,c9,d9,f9,p,q,r,o,x99 for Element of AFV;

theorem Th18:
  Mid a,b,a iff a = b or MDist a,b
by Th6;
