diff options
-rw-r--r-- | common/Events.v | 2 | ||||
-rw-r--r-- | common/Memory.v | 6 | ||||
-rw-r--r-- | lib/Intv.v | 4 |
3 files changed, 6 insertions, 6 deletions
diff --git a/common/Events.v b/common/Events.v index c4a6e7f9..0ada1207 100644 --- a/common/Events.v +++ b/common/Events.v @@ -198,7 +198,7 @@ Next Obligation. elimtype False. elim NE. auto. Qed. Next Obligation. - red; intro. elim (H e). rewrite H0. auto. + red; intro; subst; intuition eauto. Qed. CoFixpoint traceinf_of_traceinf' (T': traceinf') : traceinf := diff --git a/common/Memory.v b/common/Memory.v index 03a6572e..ec436103 100644 --- a/common/Memory.v +++ b/common/Memory.v @@ -602,11 +602,11 @@ Next Obligation. apply access_max. Qed. Next Obligation. - specialize (nextblock_noaccess m b0 ofs k H0). intros. + exploit (nextblock_noaccess m b0 ofs k). auto. intros NOACC. rewrite PMap.gsspec. destruct (peq b0 b). subst b0. destruct (zle lo ofs). destruct (zlt ofs hi). - assert (perm m b ofs k Freeable). apply perm_cur. apply H; auto. - unfold perm in H2. rewrite H1 in H2. contradiction. + assert (P: perm m b ofs k Freeable) by auto using perm_cur. + unfold perm in P. rewrite NOACC in P. contradiction. auto. auto. auto. Qed. Next Obligation. @@ -245,8 +245,8 @@ Next Obligation. red. lia. Qed. Next Obligation. - assert (x = hi - 1 \/ x < hi - 1) by lia. - destruct H2. congruence. auto. + assert (EITHER: x = hi - 1 \/ x < hi - 1) by lia. + destruct EITHER. congruence. auto. Qed. Next Obligation. exists wildcard'; split; auto. lia. |