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 transl_unop_correct:
forall op a tya c va v e le m,
transl_unop op a tya = OK c ->
sem_unary_operation op va tya m = Some v ->
eval_expr ge e le m a va ->
eval_expr ge e le m c v.