theorem Th9:
  not emp s implies top s = |.s.|.1
  proof
    assume not emp s; then
    |.s.| = <*top s*>^|.pop s.| by Th6;
    hence top s = |.s.|.1 by FINSEQ_1:41;
  end;
