(* Specifications: *)
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)).
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)).
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)).
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)).