let store_state_after_during_dataflow s succ =
    ((match s.skind with Instr _ -> true | _ -> false&&
       (match succ.preds with [_] -> false | _ -> true))
    || (let b1 = Kernel_function.find_enclosing_block s
       and b2 = Kernel_function.find_enclosing_block succ in
       not (Cil_datatype.Block.equal b1 b2) && b1.blocals <> [])