let actions_to_range l =
let treat_one_action acc =
function
| Counter_init lv ->
let t = tlval lv in
(t,(Cil.lzero(), Fixed 1)) :: acc
| Counter_incr lv ->
let t = tlval lv in
(t, (t,Fixed 1)) :: acc
| Pebble_init(_,_,c) -> (* TODO: put post-conds on pebble sets *)
let t = Logic_const.tvar c in
(t,(t,Fixed 1)) :: acc
| Pebble_move _ -> acc (* TODO: put post-conds on pebble sets *)
| Copy_value (lv,t) ->
let loc = tlval lv in
(loc,(t,Fixed 0)) :: acc
in List.fold_left treat_one_action [] l