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