aboutsummaryrefslogtreecommitdiffhomepage
path: root/pretyping/inductiveops.mli
diff options
context:
space:
mode:
Diffstat (limited to 'pretyping/inductiveops.mli')
-rw-r--r--pretyping/inductiveops.mli10
1 files changed, 5 insertions, 5 deletions
diff --git a/pretyping/inductiveops.mli b/pretyping/inductiveops.mli
index ab470a540..bdb6f996b 100644
--- a/pretyping/inductiveops.mli
+++ b/pretyping/inductiveops.mli
@@ -161,12 +161,12 @@ val make_arity : env -> evar_map -> bool -> inductive_family -> sorts -> EConstr
val build_branch_type : env -> evar_map -> bool -> constr -> constructor_summary -> types
(** Raise [Not_found] if not given a valid inductive type *)
-val extract_mrectype : evar_map -> EConstr.t -> pinductive * EConstr.constr list
-val find_mrectype : env -> evar_map -> EConstr.types -> pinductive * EConstr.constr list
-val find_mrectype_vect : env -> evar_map -> EConstr.types -> pinductive * EConstr.constr array
+val extract_mrectype : evar_map -> EConstr.t -> (inductive * EConstr.EInstance.t) * EConstr.constr list
+val find_mrectype : env -> evar_map -> EConstr.types -> (inductive * EConstr.EInstance.t) * EConstr.constr list
+val find_mrectype_vect : env -> evar_map -> EConstr.types -> (inductive * EConstr.EInstance.t) * EConstr.constr array
val find_rectype : env -> evar_map -> EConstr.types -> inductive_type
-val find_inductive : env -> evar_map -> EConstr.types -> pinductive * constr list
-val find_coinductive : env -> evar_map -> EConstr.types -> pinductive * constr list
+val find_inductive : env -> evar_map -> EConstr.types -> (inductive * EConstr.EInstance.t) * constr list
+val find_coinductive : env -> evar_map -> EConstr.types -> (inductive * EConstr.EInstance.t) * constr list
(********************)