Definition on_path b o p :=
In b (concat (lookup_path_oram o p)).

Lemma stash_path_combined_rel_Wr_undef : forall (id id' : block_id) (v : nat) (s : state) (p_new : path),
id <> id' ->
well_formed s ->
undef id' s ->
undef id' ((get_pre_wb_st id (Write v) s
(calc_path id s) p_new)).