
theorem Th16:
  for T being non empty TA-structure holds types ({} the
  adjectives of T) = the carrier of T
proof
  let T be non empty TA-structure;
  thus types ({} the adjectives of T) c= the carrier of T;
  let x be object;
  assume x in the carrier of T;
  then reconsider t = x as type of T;
  for a being adjective of T st a in {} the adjectives of T holds t in types a;
  hence thesis by Def13;
end;
