theorem Th80:
  T = (adjs T) ast the_base_of T;
