reserve s for non empty typealg,
  T,X,Y,T9,X9,Y9 for FinSequence of s,
  x,y,z,y9,z9 for type of s;
reserve Tr for PreProof of s;
reserve p for Proof of s,
  v for Element of dom p;
reserve A for non empty set,
  a,a1,a2,b for Element of A*;
reserve s for non empty typestr,
  x for type of s;
reserve s for SynTypes_Calculus,
  T,X,Y for FinSequence of s,
  x,y,z for type of s;

theorem
  <*x*(y/"z)*> ==>. (x*y)/"z :: and analogously <*z\y*x*> > z\(y*x)
proof
A1: <*x*> ==>. x by Def18;
  <*y*> ==>. y by Def18; then
A2: <*x*>^<*y*> ==>. x*y by A1,Def18;
  <*z*> ==>. z by Def18;
  then <*x*>^<*y/"z*>^<*z*> ==>. x*y by A2,Lm2;
  then <*x*(y/"z)*>^<*z*> ==>. x*y by Lm8;
  hence thesis by Def18;
end;
