Definition state_lift' {S} {X} (Pre : S -> Prop)(Post : S -> Prop) (P : X -> Prop) : state S X -> Prop :=
      fun f => forall s, Pre s -> P (fst(runState f s)) /\ Post (snd (runState f s)).

Lemma twoAccesses2_correct blockId data {Pre}{Mid : st_rand -> Prop} {Post} : state_lift' Pre Post(eq data) (twoAccesses2 blockId data).