aboutsummaryrefslogtreecommitdiff
path: root/vernac/comInductive.mli
diff options
context:
space:
mode:
Diffstat (limited to 'vernac/comInductive.mli')
-rw-r--r--vernac/comInductive.mli8
1 files changed, 8 insertions, 0 deletions
diff --git a/vernac/comInductive.mli b/vernac/comInductive.mli
index a77cd66a33..2d4cd7cac2 100644
--- a/vernac/comInductive.mli
+++ b/vernac/comInductive.mli
@@ -77,3 +77,11 @@ val interp_mutual_inductive :
decl_notation list -> cumulative_inductive_flag ->
poly:bool -> private_flag -> Declarations.recursivity_kind ->
mutual_inductive_entry * UnivNames.universe_binders * one_inductive_impls list
+
+(** Prepare a "match" template for a given inductive type.
+ For each branch of the match, we list the constructor name
+ followed by enough pattern variables.
+ [Not_found] is raised if the given string isn't the qualid of
+ a known inductive type. *)
+
+val make_cases : Names.inductive -> string list list