diff options
Diffstat (limited to 'maptools.v')
-rw-r--r-- | maptools.v | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -9,7 +9,7 @@ Lemma map_insert_empty_lookup {A} `{FinMap K M} | |||
9 | Proof. | 9 | Proof. |
10 | intros Hiel. | 10 | intros Hiel. |
11 | destruct (decide (i = j)). | 11 | destruct (decide (i = j)). |
12 | - split; try done. simplify_eq /=. | 12 | - split; try done. simplify_eq/=. |
13 | rewrite lookup_insert in Hiel. congruence. | 13 | rewrite lookup_insert in Hiel. congruence. |
14 | - rewrite lookup_insert_ne in Hiel; try done. | 14 | - rewrite lookup_insert_ne in Hiel; try done. |
15 | exfalso. eapply lookup_empty_Some, Hiel. | 15 | exfalso. eapply lookup_empty_Some, Hiel. |
@@ -259,7 +259,7 @@ Proof. | |||
259 | case_match. | 259 | case_match. |
260 | - case_match; try done. | 260 | - case_match; try done. |
261 | rewrite lookup_insert in H8. rewrite lookup_insert in H9. | 261 | rewrite lookup_insert in H8. rewrite lookup_insert in H9. |
262 | simplify_eq /=. split; try done. | 262 | simplify_eq/=. split; try done. |
263 | unfold map_Forall2, map_relation, option_relation. | 263 | unfold map_Forall2, map_relation, option_relation. |
264 | intros j. | 264 | intros j. |
265 | destruct (decide (i = j)). | 265 | destruct (decide (i = j)). |
@@ -275,7 +275,7 @@ Proof. | |||
275 | case_match; case_match; try done; | 275 | case_match; case_match; try done; |
276 | rewrite lookup_insert_ne in H11 by done; | 276 | rewrite lookup_insert_ne in H11 by done; |
277 | rewrite lookup_insert_ne in H12 by done; | 277 | rewrite lookup_insert_ne in H12 by done; |
278 | by simplify_eq /=. | 278 | by simplify_eq/=. |
279 | - by rewrite lookup_insert in H8. | 279 | - by rewrite lookup_insert in H8. |
280 | Qed. | 280 | Qed. |
281 | 281 | ||
@@ -305,7 +305,7 @@ Proof. | |||
305 | pose proof (HForall2 i). by rewrite lookup_empty, lookup_insert in H15. | 305 | pose proof (HForall2 i). by rewrite lookup_empty, lookup_insert in H15. |
306 | - intros HForall2. | 306 | - intros HForall2. |
307 | apply map_Forall2_destruct in HForall2 as Hm2. | 307 | apply map_Forall2_destruct in HForall2 as Hm2. |
308 | destruct Hm2 as [y [m2' [Hm21 Hm22]]]. simplify_eq /=. | 308 | destruct Hm2 as [y [m2' [Hm21 Hm22]]]. simplify_eq/=. |
309 | apply map_Forall2_insert_inv_strict in HForall2 as [_ HForall2]; try done. | 309 | apply map_Forall2_insert_inv_strict in HForall2 as [_ HForall2]; try done. |
310 | set_solver. | 310 | set_solver. |
311 | Qed. | 311 | Qed. |