let mk_kf_any_assigns_info () = 
  let a = { a_label = Logic_const.pre_label; (* a_fun = Assigns_Stmt; *)
            a_kind = StmtAssigns; a_assigns = WritesAny } in
  AssignsAny a