diff options
author | 2009-11-11 16:03:06 +0000 | |
---|---|---|
committer | 2009-11-11 16:03:06 +0000 | |
commit | e46a343090514c1340d4e5b97384b55b42c9c166 (patch) | |
tree | afe12355bdb7e823b5881b4a89d54b6753684001 /toplevel/command.mli | |
parent | d27a272511939ba80f1b3658be064268ec9ba55e (diff) |
Added support for multiple where-clauses in Inductive and co (see wish #2163).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12500 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/command.mli')
-rw-r--r-- | toplevel/command.mli | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/toplevel/command.mli b/toplevel/command.mli index 05ee67d79..e42580c2b 100644 --- a/toplevel/command.mli +++ b/toplevel/command.mli @@ -71,7 +71,7 @@ type structured_inductive_expr = local_binder list * structured_one_inductive_expr list val extract_mutual_inductive_declaration_components : - (one_inductive_expr * decl_notation option) list -> + (one_inductive_expr * decl_notation list) list -> structured_inductive_expr * (*coercions:*) qualid list * decl_notation list (* Typing mutual inductive definitions *) @@ -94,7 +94,7 @@ val declare_mutual_inductive_with_eliminations : (* Entry points for the vernacular commands Inductive and CoInductive *) val do_mutual_inductive : - (one_inductive_expr * decl_notation option) list -> bool -> unit + (one_inductive_expr * decl_notation list) list -> bool -> unit (*************************************************************************) (* Fixpoints and cofixpoints *) @@ -110,12 +110,12 @@ type structured_fixpoint_expr = { (co)fixpoints declarations *) val extract_fixpoint_components : - (fixpoint_expr * decl_notation option) list -> + (fixpoint_expr * decl_notation list) list -> structured_fixpoint_expr list * decl_notation list * (* possible structural arg: *) lident option list val extract_cofixpoint_components : - (cofixpoint_expr * decl_notation option) list -> + (cofixpoint_expr * decl_notation list) list -> structured_fixpoint_expr list * decl_notation list (* Typing fixpoints and cofixpoint_expr *) @@ -144,10 +144,10 @@ val declare_cofixpoint : (* Entry points for the vernacular commands Fixpoint and CoFixpoint *) val do_fixpoint : - (fixpoint_expr * decl_notation option) list -> bool -> unit + (fixpoint_expr * decl_notation list) list -> bool -> unit val do_cofixpoint : - (cofixpoint_expr * decl_notation option) list -> bool -> unit + (cofixpoint_expr * decl_notation list) list -> bool -> unit (* Utils *) |