Notation no_invC :=
  (fun s : S_Ck SC =>
   match s with
   | (sc, y) => sc = Sc2 /\ ~ le_Ck y kc1 \/ sc = Sc4 /\ ~ lt_Ck y kc2
   end) (only parsing).

(* Specifications: *)
Lemma No_invC : forall s : S_Ck SC, ~ InvC s -> (fun s : S_Ck SC => match s with | (sc, y) => sc = Sc2 /\ ~ le_Ck y kc1 \/ sc = Sc4 /\ ~ lt_Ck y kc2 end) s.