let mk_invariant_StatesDisjunction () =
  let tmp_st = Cil_const.make_logic_var "_buch_st" Cil_types.Linteger in
  mk_global_invariant (
    Pexists(
      [tmp_st],
        unamed (Pand (
          unamed (
            (* 0 <= st <nbStates *)
            mk_logicvar_intervalle tmp_st 0 (getNumberOfStates ())
          ),
          unamed (
            Prel(Rneq,mk_offseted_array_lval_from_lval (host_state_term ()) tmp_st , mk_int_term 0)
          )
        ))
    )) "_Buch_st_disjunction"