theorem Th17a:
  x ==> y implies x >><< y by Th17,Lem18a;
