theorem Th40:
  S c= T & s ==>* t, S implies s ==>* t, T
by Th26,REWRITE1:22;
