theorem Th22:
  for A being OSSubset of OU0, s being SortSymbol of S1 holds
  OSSubSort(A,s) c= SubSort(A,s)
proof
  let A be OSSubset of OU0, s be SortSymbol of S1;
  let x be object;
  assume x in OSSubSort(A,s);
  then
A1: ex B being OSSubset of OU0 st B in OSSubSort(A) & x = B.s by Def10;
  OSSubSort(A) c= SubSort(A) by Th16;
  hence thesis by A1,MSUALG_2:def 13;
end;
