let memo_multi_state st =
match st.multi_state with
| None ->
let aux = Cil.makeGlobalVar (get_fresh "aorai_aux") Cil.intType in
let laux = Cil.cvar_to_lvar aux in
let set = Cil_const.make_logic_info (get_fresh (st.name ^ "_pebble")) in
let typ = Logic_const.make_set_type (Ctype Cil.intType) in
set.l_var_info.lv_type <- typ;
set.l_labels <- [ LogicLabel(None,"L")];
set.l_type <- Some typ;
set.l_body <-
LBreads
[ Logic_const.new_identified_term (Logic_const.tvar laux) ];
let multi_state = set,laux in
st.multi_state <- Some multi_state;
multi_state
| Some multi_state -> multi_state