Notation no_invT :=
(fun s : S_Ck ST =>
match s with
| (st, x) => st = Near /\ ~ lt_Ck x kt2 \/ st = Inside /\ ~ lt_Ck x kt2
end) (only parsing).

(* Specifications: *)
Lemma No_invT :
forall s : S_Ck ST,
~ InvT s ->
(fun s : S_Ck ST =>
match s with
| (st, x) => st = Near /\ ~ lt_Ck x kt2 \/ st = Inside /\ ~ lt_Ck x kt2
end) s.