Remark make_ptrofs_of_int_correct:
  forall e le m a i si,
  eval_expr ge e le m a (Vint i) ->
  eval_expr ge e le m (if Archi.ptr64 then make_longofint a si else a) (Vptrofs (ptrofs_of_int si i)).Remark make_ptrofs_of_int64_correct:
  forall e le m a i,
  eval_expr ge e le m a (Vlong i) ->
  eval_expr ge e le m (if Archi.ptr64 then a else Eunop Ointoflong a) (Vptrofs (Ptrofs.of_int64 i)).

Lemma match_env_alloc_variables: forall cunit, linkorder cunit prog -> forall e1 m1 vars e2 m2, Clight.alloc_variables ge e1 m1 vars e2 m2 -> forall tvars te1, mmap (transl_var cunit.(prog_comp_env)) vars = OK tvars -> match_env e1 te1 -> exists te2, Csharpminor.alloc_variables te1 m1 tvars te2 m2 /\ match_env e2 te2.