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.

Lemma lema_Inv9 : ForAll TrGlobal SiniTCG Inv9.