diff options
| author | Hugo Herbelin | 2016-10-24 22:44:34 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-10-24 22:45:50 +0200 |
| commit | 810077167cd6f5077abe7b79b12ae9b51eae1b62 (patch) | |
| tree | bb7c08c66ba7eb99cdec8cd716e2a981aae8b2f6 | |
| parent | 7f69f6d94b751464aae3c852f0bc53d5854f30a4 (diff) | |
Adding a test for #4398 (interpretation scopes for "match goal").
| -rw-r--r-- | test-suite/output/ltac.out | 4 | ||||
| -rw-r--r-- | test-suite/output/ltac.v | 9 |
2 files changed, 13 insertions, 0 deletions
diff --git a/test-suite/output/ltac.out b/test-suite/output/ltac.out index a62f4312ed..a7bde5ea3f 100644 --- a/test-suite/output/ltac.out +++ b/test-suite/output/ltac.out @@ -27,3 +27,7 @@ In nested Ltac calls to "h" and "injection (destruction_arg)", last call failed. Error: No primitive equality found. Hx +nat +nat +0 +0 diff --git a/test-suite/output/ltac.v b/test-suite/output/ltac.v index fb1dab7994..76c37625aa 100644 --- a/test-suite/output/ltac.v +++ b/test-suite/output/ltac.v @@ -48,3 +48,12 @@ Fail h H. Ltac m H := idtac H; exact H. Goal True. let a:=constr:(let Hx := 0 in ltac:(m Hx)) in idtac. + +(* Check consistency of interpretation scopes (#4398) *) + +Goal nat*(0*0=0) -> nat*(0*0=0). intro. +match goal with H: ?x*?y |- _ => idtac x end. +match goal with |- ?x*?y => idtac x end. +match goal with H: context [?x*?y] |- _ => idtac x end. +match goal with |- context [?x*?y] => idtac x end. +Abort. |