(* Some invariants of the system TCG *)

Definition Inv1 (s : StGlobal) :=
  match s with
  | ((st, _), ((sc, _), (sg, _))) =>
      st = Near \/ st = Inside -> sc = Sc3 -> sg = Closed \/ sg = Lowering
  end.

(* Specifications: *)
Lemma lema_Inv1 : ForAll TrGlobal SiniTCG Inv1.