(** Preservation by freeing *)

(* Specifications: *)
Lemma match_stacks_free_left:
forall F m m' stk stk' sp b lo hi m1,
match_stacks F m m' stk stk' sp ->
Mem.free m b lo hi = Some m1 ->
match_stacks F m1 m' stk stk' sp.
Lemma match_stacks_free_right:
forall F m m' stk stk' sp lo hi m1',
match_stacks F m m' stk stk' sp ->
Mem.free m' sp lo hi = Some m1' ->
match_stacks F m m1' stk stk' sp.
Lemma min_alignment_sound:
forall sz n, (min_alignment sz | n) -> Mem.inj_offset_aligned n sz.