+ intros. xomega.
+ induction 1.
- apply Mem.nextblock_storebytes in H;
rewrite H; xomega.
- apply Mem.nextblock_alloc in H.
rewrite H. clear. xomega.
- apply nextblock_freelist in H.
rewrite H; xomega.
- xomega.
Qed.

Lemma ple_store:
forall ch m v1 v2 m' m1
(PLE: perm_lesseq m m1),
Mem.storev ch m v1 v2 = Some m' ->
exists m1', perm_lesseq m' m1' /\ Mem.storev ch m1 v1 v2 = Some m1'.