theorem
  for r being Element of (the Sorts of T).s holds the_sort_of r = s by SORT;
