Admitted.
Definition twoAccesses2 blockId data :=
let* _ := access Wr blockId (Some data) in
access Rd blockId None.

Theorem PathORAM_simulates_RAM: forall (s0 : st_rand)(data: nat)(blockId: nat),
let ReadOut :=
(let twoAccesses :=
(let* _ := (access Wr blockId (Some data)) in
access Rd blockId None) in
fst (runState twoAccesses s0)
)
in ValEq data ReadOut.