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).