(* The safety property of the system TCG *)

Lemma lema_safeTCG : ForAll TrGlobal SiniTCG safeTCG.
Definition Inv9 (s : StGlobal) :=
match s with
| ((st, x), ((_, y), (_, z))) =>
st = Near /\ gt_Ck x kc1 \/ st = Inside -> eq_Ck y (plus_Ck z kc1)
end.