Definition Inv8 (s : StGlobal) :=
  match s with
  | ((st, x), ((sc, _), (sg, _))) =>
      st = Near /\ gt_Ck x kt1 \/ st = Inside -> sg = Closed
  end.

(* Specifications: *)
Lemma lema_Inv8 : ForAll TrGlobal SiniTCG Inv8.