reserve p,q,r for FinSequence,
  x,y for object;

theorem
  q <> {} implies <*x*>$^q = q
proof
  {}^<*x*> = <*x*> & {}^q = q by FINSEQ_1:34;
  hence thesis by Th2;
end;
