+ 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 mem_step_nextblock':
forall m m',
mem_step m m' ->
(Mem.nextblock m <= Mem.nextblock m')%positive.