(* The safety property of the system TCG *)

(* Lemmas, definitions and auxiliar tactics for the NonZeno property *)
Lemma InvT' :
forall s : S_Ck ST,
match s with
| (st, x) =>
st = Far \/ st = Near /\ lt_Ck x kt2 \/ st = Inside /\ lt_Ck x kt2 ->
InvT s
end.