Require Coq.Bool.Bool.
Require Export POram.System.PathORAMDef.
Section PORAM_PROOF.
Context `{C : Config}.

Lemma stash_path_combined_rel_Rd : forall (id : block_id) (v : nat) (s : state) (p_new : path),
blk_in_state id v s ->
blk_in_stash id v ((get_pre_wb_st id Read s
(calc_path id s) p_new)).