(* Lemma match_env_same_blocks: forall j e te, match_env j e te -> blocks_of_env te = Clight.blocks_of_env e. *)

Lemma match_env_same_blocks: forall j e te
(ENV: match_env j e te),
list_forall2
(fun (i_x : positive * (block * type)) (i_y : positive * (block * Z)) =>
fst i_x = fst i_y /\
j (fst (snd i_x)) = Some (fst (snd i_y), 0) /\
snd (snd i_y) = sizeof (snd (snd i_x)))
(PTree.elements e) (PTree.elements te).