diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-15 15:02:52 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-15 15:02:52 +0000 |
| commit | 490c8fa3145e861966dd83f6dc9478b0b96de470 (patch) | |
| tree | fe86af99906a949c65cbf2927f47135086be62bb /parsing | |
| parent | 48249e6831061420ac57f38b538185008f9a5011 (diff) | |
Les inductifs dans Scheme doivent être des ident d'inductifs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@256 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_vernac.ml4 | 20 |
1 files changed, 6 insertions, 14 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index c28cfde12..2bc94c200 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -111,9 +111,9 @@ GEXTEND Gram | -> <:ast< (VERNACARGLIST) >> ] ] ; onescheme: - [ [ id = identarg; ":="; dep = dep; c = comarg; IDENT "Sort"; + [ [ id = identarg; ":="; dep = dep; indid = identarg; IDENT "Sort"; s = sortdef -> - <:ast< (VERNACARGLIST $id $dep $c (COMMAND $s)) >> ] ] + <:ast< (VERNACARGLIST $id $dep $indid (COMMAND $s)) >> ] ] ; specifscheme: [ [ rec_ = onescheme; "with"; recl = specifscheme -> rec_ :: recl @@ -133,8 +133,8 @@ GEXTEND Gram | -> <:ast< (BINDERLIST) >> ] ] ; sortdef: - [ [ "Set" -> <:ast< (PROP {Pos}) >> - | "Prop" -> <:ast< (PROP {Null}) >> + [ [ "Set" -> <:ast< (SET) >> + | "Prop" -> <:ast< (PROP) >> | "Type" -> <:ast< (TYPE) >> ] ] ; thm_tok: @@ -264,17 +264,9 @@ GEXTEND Gram | IDENT "Abstraction"; id = identarg; "["; l = ne_numarg_list; "]"; ":="; c = comarg; "." -> <:ast< (ABSTRACTION $id $c ($LIST $l)) >> - | f = finite_tok; "Set"; id = identarg; indpar = indpar; ":="; + | f = finite_tok; s = sortdef; id = identarg; indpar = indpar; ":="; lidcom = lidcom; "." -> - <:ast< (ONEINDUCTIVE $f $id (COMMAND (PROP {Pos})) $indpar - $lidcom) >> - | f = finite_tok; "Type"; id = identarg; indpar = indpar; ":="; - lidcom = lidcom; "." -> - <:ast< (ONEINDUCTIVE $f $id (COMMAND (TYPE)) $indpar $lidcom) >> - | f = finite_tok; "Prop"; id = identarg; indpar = indpar; ":="; - lidcom = lidcom; "." -> - <:ast< (ONEINDUCTIVE $f $id (COMMAND (PROP {Null})) $indpar - $lidcom) >> + <:ast< (ONEINDUCTIVE $f $id (COMMAND $s) $indpar $lidcom) >> | f = finite_tok; indl = block; "." -> <:ast< (MUTUALINDUCTIVE $f (VERNACARGLIST ($LIST $indl))) >> |