
theorem Th31:
  for T being non empty non void reflexive transitive TA-structure
  for t being type of T for a being adjective of T holds <*a*> ast t = a ast t
proof
  let T be non empty non void reflexive transitive TA-structure;
  let t be type of T;
  let a be adjective of T;
A1: len <*a*> = 1 by FINSEQ_1:40;
  apply(<*a*>, t) = <*t, a ast t*> by Th29;
  hence thesis by A1;
end;
