|
66 | 66 | induction M
|
67 | 67 | as [| x'
|
68 | 68 | | s1 re1 s2 re2 Hmatch1 IH1 Hmatch2 IH2
|
69 |
| - | s1 re1 re2 Hmatch IH | re1 s2 re2 Hmatch IH |
| 69 | + | s1 re1 re2 Hmatch IH | s2 re1 re2 Hmatch IH |
70 | 70 | | re | s1 s2 re Hmatch1 IH1 Hmatch2 IH2].
|
71 | 71 | - (* MEmpty *) simpl. apply MEmpty.
|
72 | 72 | - (* MChar *) simpl. apply MChar.
|
@@ -212,7 +212,7 @@ Proof.
|
212 | 212 | induction M
|
213 | 213 | as [| x'
|
214 | 214 | | s1 re1 s2 re2 Hmatch1 IH1 Hmatch2 IH2
|
215 |
| - | s1 re1 re2 Hmatch IH | re1 s2 re2 Hmatch IH |
| 215 | + | s1 re1 re2 Hmatch IH | s2 re1 re2 Hmatch IH |
216 | 216 | | re | s1 s2 re Hmatch1 IH1 Hmatch2 IH2];
|
217 | 217 | (* Do the [simpl] for every case here: *)
|
218 | 218 | simpl.
|
@@ -298,7 +298,7 @@ Proof.
|
298 | 298 | induction M
|
299 | 299 | as [| x'
|
300 | 300 | | s1 re1 s2 re2 Hmatch1 IH1 Hmatch2 IH2
|
301 |
| - | s1 re1 re2 Hmatch IH | re1 s2 re2 Hmatch IH |
| 301 | + | s1 re1 re2 Hmatch IH | s2 re1 re2 Hmatch IH |
302 | 302 | | re | s1 s2 re Hmatch1 IH1 Hmatch2 IH2];
|
303 | 303 | (* Do the [simpl] for every case here: *)
|
304 | 304 | simpl.
|
@@ -390,7 +390,7 @@ Proof.
|
390 | 390 | induction M
|
391 | 391 | as [| x'
|
392 | 392 | | s1 re1 s2 re2 Hmatch1 IH1 Hmatch2 IH2
|
393 |
| - | s1 re1 re2 Hmatch IH | re1 s2 re2 Hmatch IH |
| 393 | + | s1 re1 re2 Hmatch IH | s2 re1 re2 Hmatch IH |
394 | 394 | | re | s1 s2 re Hmatch1 IH1 Hmatch2 IH2].
|
395 | 395 | - (* MEmpty *) simpl. apply MEmpty.
|
396 | 396 | - (* MChar *) simpl. apply MChar.
|
@@ -1183,7 +1183,7 @@ Proof.
|
1183 | 1183 | intros T re s Hmatch.
|
1184 | 1184 | induction Hmatch
|
1185 | 1185 | as [ | x | s1 re1 s2 re2 Hmatch1 IH1 Hmatch2 IH2
|
1186 |
| - | s1 re1 re2 Hmatch IH | re1 s2 re2 Hmatch IH |
| 1186 | + | s1 re1 re2 Hmatch IH | s2 re1 re2 Hmatch IH |
1187 | 1187 | | re | s1 s2 re Hmatch1 IH1 Hmatch2 IH2 ];
|
1188 | 1188 | simpl; try lia;
|
1189 | 1189 | intros Hlen.
|
@@ -1832,4 +1832,4 @@ Definition manual_grade_for_nor_intuition : option (nat*string) := None.
|
1832 | 1832 |
|
1833 | 1833 | - Ltac functions and [match goal] *)
|
1834 | 1834 |
|
1835 |
| -(* 2024-12-26 02:02 *) |
| 1835 | +(* 2024-12-26 15:02 *) |
0 commit comments