diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2017-02-13 09:57:27 +0100 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2017-02-13 09:57:27 +0100 |
| commit | 9ceacf45af6bfe396e36938e2573348ac4d07603 (patch) | |
| tree | bb5200ab8fa1ab24ad547a10e5626585f307c6bf /backend/NeedDomain.v | |
| parent | 236d8a48288ea5845466408cf9d0be2ccd68f9a8 (diff) | |
| parent | c514b1e62302bb674075cd32a412ed47a57cbb5b (diff) | |
| download | compcert-9ceacf45af6bfe396e36938e2573348ac4d07603.tar.gz compcert-9ceacf45af6bfe396e36938e2573348ac4d07603.zip | |
Merge branch 'coq-8.6' of https://github.com/maximedenes/CompCert into maximedenes-coq-8.6
Diffstat (limited to 'backend/NeedDomain.v')
| -rw-r--r-- | backend/NeedDomain.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/NeedDomain.v b/backend/NeedDomain.v index a53040f9..8e8b9c0b 100644 --- a/backend/NeedDomain.v +++ b/backend/NeedDomain.v @@ -1255,8 +1255,8 @@ Proof. split; simpl; auto; intros. rewrite PTree.gsspec in H6. destruct (peq id0 id). + inv H6. destruct H3. congruence. destruct gl!id as [iv0|] eqn:NG. - rewrite ISet.In_add. intros [P|P]. omega. eelim GL; eauto. - rewrite ISet.In_interval. omega. + unfold iv'; rewrite ISet.In_add. intros [P|P]. omega. eelim GL; eauto. + unfold iv'; rewrite ISet.In_interval. omega. + eauto. - (* Stk ofs *) split; simpl; auto; intros. destruct H3. |