diff options
| author | herbelin | 2003-03-12 14:17:55 +0000 |
|---|---|---|
| committer | herbelin | 2003-03-12 14:17:55 +0000 |
| commit | 26e9e3847be73b217d205fba2c3cc0cf97c49a3e (patch) | |
| tree | 5feb7341fd91c5cae8f65a09f7075eb2b146e221 | |
| parent | df29f2f0257e0a69fa1eaa3c3ddcd56a80d14e0d (diff) | |
Renommage indpar pour usage plus general
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3758 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/g_vernac.ml4 | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index baf61c5c2d..68e6fe858d 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -213,10 +213,10 @@ GEXTEND Gram (id,c,lc) ] ] ; oneind: - [ [ id = base_ident; indpar = indpar; ":"; c = constr; ":="; + [ [ id = base_ident; indpar = simple_binders_list; ":"; c = constr; ":="; lc = constructor_list -> (id,indpar,c,lc) ] ] ; - indpar: + simple_binders_list: [ [ bl = ne_simple_binders_list -> bl | -> [] ] ] ; @@ -297,7 +297,8 @@ GEXTEND Gram indl = block_old_style -> let indl' = List.map (fun (id,ar,c) -> (id,bl,ar,c)) indl in VernacInductive (f,indl') - | record_token; oc = opt_coercion; name = base_ident; ps = indpar; ":"; + | record_token; oc = opt_coercion; name = base_ident; + ps = simple_binders_list; ":"; s = constr; ":="; c = rec_constructor; "{"; fs = fields; "}" -> VernacRecord ((oc,name),ps,s,c,fs) ] ] @@ -310,8 +311,8 @@ GEXTEND Gram | "Fixpoint"; recs = specifrec -> VernacFixpoint recs | "CoFixpoint"; corecs = specifcorec -> VernacCoFixpoint corecs | IDENT "Scheme"; l = schemes -> VernacScheme l - | f = finite_token; s = csort; id = base_ident; indpar = indpar; ":="; - lc = constructor_list -> + | f = finite_token; s = csort; id = base_ident; + indpar = simple_binders_list; ":="; lc = constructor_list -> VernacInductive (f,[id,indpar,s,lc]) ] ] ; csort: |