diff options
Diffstat (limited to 'backend')
| -rw-r--r-- | backend/Inliningproof.v | 2 | ||||
| -rw-r--r-- | backend/RTLgenproof.v | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/backend/Inliningproof.v b/backend/Inliningproof.v index 0434a4a4..e165016a 100644 --- a/backend/Inliningproof.v +++ b/backend/Inliningproof.v @@ -721,7 +721,7 @@ Proof. eapply agree_regs_incr; eauto. eapply range_private_invariant; eauto. intros. exploit Mem.perm_alloc_inv; eauto. destruct (eq_block b0 b); intros. - subst b0. rewrite H2 in H5; inv H5. elimtype False; extlia. + subst b0. rewrite H2 in H5; inv H5. exfalso; extlia. rewrite H3 in H5; auto. Qed. diff --git a/backend/RTLgenproof.v b/backend/RTLgenproof.v index 90f03c1c..fc765ce5 100644 --- a/backend/RTLgenproof.v +++ b/backend/RTLgenproof.v @@ -54,11 +54,11 @@ Proof. intros until r0. repeat rewrite PTree.gsspec. destruct (peq id1 name); destruct (peq id2 name). congruence. - intros. inv H. elimtype False. + intros. inv H. exfalso. apply valid_fresh_absurd with r0 s1. apply H1. left; exists id2; auto. eauto with rtlg. - intros. inv H2. elimtype False. + intros. inv H2. exfalso. apply valid_fresh_absurd with r0 s1. apply H1. left; exists id1; auto. eauto with rtlg. |