theorem Th10:
  |.s.| = {} implies emp s
  proof assume |.s.| = {} & not emp s; then
    {} = <*top s*>^|.pop s.| by Th6;
    hence thesis;
  end;
