theorem Th37:
  s ==>* t, S implies u^s^v ==>* u^t^v, S
proof
  assume s ==>* t, S;
  then u^s ==>* u^t, S by Th36;
  hence thesis by Th36;
end;
