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

Lemma get_post_wb_st_stsh_state : forall (id : block_id) (v : nat) (s : state) (p : path),
well_formed s ->
length p = LOP ->
blk_in_stash id v s ->
blk_in_state id v (get_post_wb_st s p).