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 <> [])