diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2015-05-06 11:26:27 +0200 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2015-05-06 11:26:27 +0200 |
commit | d741845da605f75a3cf650fe2915940ce58ddaa5 (patch) | |
tree | 6701a767cf4f646ad3b9bb636b8d1b6a3da8e269 | |
parent | e9fa9cbdc761f8c033e9b702f7485982faed3f7d (diff) | |
download | compcert-d741845da605f75a3cf650fe2915940ce58ddaa5.tar.gz compcert-d741845da605f75a3cf650fe2915940ce58ddaa5.zip |
Typo: Val.sun_inject -> Val.sub_inject.
-rw-r--r-- | arm/Op.v | 8 | ||||
-rw-r--r-- | common/Values.v | 2 |
2 files changed, 5 insertions, 5 deletions
@@ -878,10 +878,10 @@ Proof. apply Values.Val.add_inject; auto. apply eval_shift_inj; auto. apply Values.Val.add_inject; auto. - apply Values.Val.sun_inject; auto. - apply Values.Val.sun_inject; auto. apply eval_shift_inj; auto. - apply Values.Val.sun_inject; auto. apply eval_shift_inj; auto. - apply (@Values.Val.sun_inject f (Vint i) (Vint i) v v'); auto. + apply Values.Val.sub_inject; auto. + apply Values.Val.sub_inject; auto. apply eval_shift_inj; auto. + apply Values.Val.sub_inject; auto. apply eval_shift_inj; auto. + apply (@Values.Val.sub_inject f (Vint i) (Vint i) v v'); auto. inv H4; inv H2; simpl; auto. apply Values.Val.add_inject; auto. inv H4; inv H2; simpl; auto. diff --git a/common/Values.v b/common/Values.v index a4ead481..8877f9a7 100644 --- a/common/Values.v +++ b/common/Values.v @@ -1545,7 +1545,7 @@ Proof. repeat rewrite Int.add_assoc. decEq. apply Int.add_commut. Qed. -Remark sun_inject: +Remark sub_inject: forall v1 v1' v2 v2', inject f v1 v1' -> inject f v2 v2' -> |