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

Lemma kv_in_list_partition:
forall (id : block_id) (v : nat) (s : state) (del : list block),
blk_in_stash id v s ->
(In (Block id v)
(remove_list_sub eqb del (state_stash s))  \/
(In (Block id v) del)).