diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-12-19 12:24:54 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-12-19 12:24:54 +0000 |
| commit | 1a39eca177bfa266f5a10362e188d812c81e5e5e (patch) | |
| tree | 40a81c8e73afbba4c26f442aac4869b0063f1b8e | |
| parent | a6efb365f21eb1d3def5ab7b07efe2a817cff3c1 (diff) | |
Modif précédente trop violente (cf test-suite/success/CasesDep.v)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2341 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/g_cases.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/g_cases.ml4 b/parsing/g_cases.ml4 index 5fb374d68..48638a4fe 100644 --- a/parsing/g_cases.ml4 +++ b/parsing/g_cases.ml4 @@ -34,7 +34,7 @@ GEXTEND Gram | c1 = pattern -> [c1] ] ] ; equation: - [ [ lhs = ne_pattern_list; "=>"; rhs = lconstr -> + [ [ lhs = ne_pattern_list; "=>"; rhs = constr9 -> <:ast< (EQN $rhs ($LIST $lhs)) >> ] ] ; ne_eqn_list: |