theorem Th13:
  s ==>. t, S implies u^s^v ==>. u^t^v, S
proof
  assume s ==>. t, S;
  then u^s ==>. u^t, S by Th12;
  hence thesis by Th12;
end;
