theorem Th9:
  (qt, <*>IAlph)-response = <*>OAlph
proof
  len (qt, <*>IAlph)-response = len <*>IAlph by Def6
    .= 0;
  hence thesis;
end;
