theorem Th25:
  0-equivalent qa, qb
proof
  let w be FinSequence of IAlph;
  assume len w <= 0;
  then
A1: w = <*>IAlph;
  hence (qa,w)-response=<*>OAlph by Th9
    .=(qb,w)-response by A1,Th9;
end;
