theorem Th33:
  for t,s be bag of O holds
    Subst(t,x,p).Subst(t,x,s) = (p `^ (t.x) ).s by Def3;
