let mk_loop_any_assigns_info s = 
  let a = { a_label = Clabels.mk_logic_label s; (* a_fun = Assigns_Loop; *)
            a_kind = LoopAssigns; a_assigns = WritesAny } in
  AssignsAny a