diff options
author | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-09-18 23:44:33 +0200 |
---|---|---|
committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-09-18 23:45:27 +0200 |
commit | 1667d854c9b6a648082731acb1553c879e561940 (patch) | |
tree | 45e0ae669b2ce11947ee78915e86507780e1fff8 /test-suite/bugs/closed/3637.v | |
parent | 23041481ff368b0b4cfc9a2493c9f465df90ea90 (diff) |
Fix constrMatching as well as change/e_contextually to allow
matching partial applications of primitive projections. Fixes bug #3637.
Diffstat (limited to 'test-suite/bugs/closed/3637.v')
-rw-r--r-- | test-suite/bugs/closed/3637.v | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/3637.v b/test-suite/bugs/closed/3637.v new file mode 100644 index 000000000..a451d2997 --- /dev/null +++ b/test-suite/bugs/closed/3637.v @@ -0,0 +1,11 @@ + +Set Implicit Arguments. +Set Primitive Projections. +Record prod A B := pair { fst : A ; snd : B }. +Goal forall x y : prod Set Set, fst x = fst y. + intros. + lazymatch goal with + | [ |- context[@fst ?A ?B] ] => pose (@fst A B) as fst'; + progress change (@fst Set Set) with fst' +end. +Abort. |