reserve x for set,
  R for non empty Poset;
reserve S1 for OrderSortedSign,
  OU0 for OSAlgebra of S1;
reserve s,s1,s2,s3,s4 for SortSymbol of S1;

theorem Th10:
  Constants(OU0) c= OSConstants(OU0)
proof
  let i be object;
  assume i in the carrier of S1;
  then reconsider s = i as SortSymbol of S1;
  (Constants(OU0)).s = Constants(OU0,s) & (OSConstants(OU0)).s =
  OSConstants( OU0,s) by Def5,MSUALG_2:def 4;
  hence thesis by Th6;
end;
