diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2021-09-17 16:52:29 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2021-09-17 16:52:29 +0100 |
| commit | 4be142376801c205ffd701208fad8eedf2c08d90 (patch) | |
| tree | d2f4d54cc34319e380e349eddef61c2994202e8b /x86/Asmgenproof.v | |
| parent | 48a9dcbdc968bcf05b4eec17b8c7fd471fb80240 (diff) | |
| parent | c9fad7cd7bdc4e79fb06a1d39abfa0d5471623e5 (diff) | |
| download | compcert-4be142376801c205ffd701208fad8eedf2c08d90.tar.gz compcert-4be142376801c205ffd701208fad8eedf2c08d90.zip | |
Merge remote-tracking branch 'upstream/master'
Diffstat (limited to 'x86/Asmgenproof.v')
| -rw-r--r-- | x86/Asmgenproof.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/x86/Asmgenproof.v b/x86/Asmgenproof.v index f1fd41e3..67c42b2b 100644 --- a/x86/Asmgenproof.v +++ b/x86/Asmgenproof.v @@ -67,7 +67,7 @@ Lemma transf_function_no_overflow: transf_function f = OK tf -> list_length_z (fn_code tf) <= Ptrofs.max_unsigned. Proof. intros. monadInv H. destruct (zlt Ptrofs.max_unsigned (list_length_z (fn_code x))); monadInv EQ0. - omega. + lia. Qed. Lemma exec_straight_exec: @@ -332,8 +332,8 @@ Proof. split. unfold goto_label. rewrite P. rewrite H1. auto. split. rewrite Pregmap.gss. constructor; auto. rewrite Ptrofs.unsigned_repr. replace (pos' - 0) with pos' in Q. - auto. omega. - generalize (transf_function_no_overflow _ _ H0). omega. + auto. lia. + generalize (transf_function_no_overflow _ _ H0). lia. intros. apply Pregmap.gso; auto. Qed. @@ -852,7 +852,7 @@ Transparent destroyed_by_jumptable. econstructor; eauto. unfold nextinstr. rewrite Pregmap.gss. repeat rewrite Pregmap.gso; auto with asmgen. rewrite ATPC. simpl. constructor; eauto. - unfold fn_code. eapply code_tail_next_int. simpl in g. omega. + unfold fn_code. eapply code_tail_next_int. simpl in g. lia. constructor. apply agree_nextinstr. eapply agree_change_sp; eauto. Transparent destroyed_at_function_entry. @@ -877,7 +877,7 @@ Transparent destroyed_at_function_entry. - (* return *) inv STACKS. simpl in *. - right. split. omega. split. auto. + right. split. lia. split. auto. econstructor; eauto. rewrite ATPC; eauto. congruence. Qed. |