diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2016-09-21 13:45:27 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-01-09 15:30:58 +0100 |
commit | 2d1bb99a32181f942b0babbd8f3ac44ba059e4e6 (patch) | |
tree | 03b72e74ab6c981bd8dbb06512af43bb2103f031 | |
parent | 5e2454ecba7c99e4615f123d71a227fddbca3908 (diff) | |
download | compcert-2d1bb99a32181f942b0babbd8f3ac44ba059e4e6.tar.gz compcert-2d1bb99a32181f942b0babbd8f3ac44ba059e4e6.zip |
Subst's behavior on let-ins has changed.
-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. |