Definition compat_pointer_chunks (chunk1 chunk2: memory_chunk) : Prop :=
match chunk1, chunk2 with
| (Mint32 | Many32), (Mint32 | Many32) => True
| (Mint64 | Many64), (Mint64 | Many64) => True
| _, _ => False
end.

Theorem storev_float64al32:
forall m a v m',
storev Mfloat64 m a v = Some m' -> storev Mfloat64al32 m a v = Some m'.