theorem Th43:
  s ==>* t, ==>.-relation(S) implies s ==>* t, S
by Th31;
