theorem Th30:
  StoneS(H) c= bool F_primeSet(H)
proof
  let x be object;
   reconsider xx=x as set by TARSKI:1;
  assume x in StoneS(H);
  then consider p9 such that
A1: x=StoneH(H).p9 by Th13;
A2: x={F where F is Filter of H:F in F_primeSet(H) & p9 in F} by A1,Def6;
  xx c= F_primeSet(H)
  proof
    let y be object;
    assume y in xx;
    then
    ex F being Filter of H st y=F & F in F_primeSet(H) & p9 in F by A2;
    hence thesis;
  end;
  hence thesis;
end;
