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"