diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-11-08 10:57:05 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-02-14 17:27:23 +0100 |
commit | 67dc22d8389234d0c9b329944ff579e7056b7250 (patch) | |
tree | 4b0d94384103f34e8b6071a214efb84904a56277 /pretyping/cases.mli | |
parent | e4f066238799a4598817dfeab8a044760ab670de (diff) |
Cases API using EConstr.
Diffstat (limited to 'pretyping/cases.mli')
-rw-r--r-- | pretyping/cases.mli | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/pretyping/cases.mli b/pretyping/cases.mli index 6bc61f6dd..9016ca5f3 100644 --- a/pretyping/cases.mli +++ b/pretyping/cases.mli @@ -8,6 +8,7 @@ open Names open Term +open EConstr open Evd open Environ open Inductiveops @@ -50,8 +51,8 @@ val constr_of_pat : Glob_term.cases_pattern -> Names.Id.t list -> Glob_term.cases_pattern * - (Context.Rel.Declaration.t list * Term.constr * - (Term.types * Term.constr list) * Glob_term.cases_pattern) * + (Context.Rel.Declaration.t list * constr * + (types * constr list) * Glob_term.cases_pattern) * Names.Id.t list type 'a rhs = @@ -117,7 +118,7 @@ val prepare_predicate : Loc.t -> Environ.env -> Evd.evar_map ref -> 'a -> Environ.unsafe_judgment) -> Environ.env -> Evd.evar_map -> - (Term.types * tomatch_type) list -> + (types * tomatch_type) list -> Context.Rel.t list -> - Constr.constr option -> - 'a option -> (Evd.evar_map * Names.name list * Term.constr) list + constr option -> + 'a option -> (Evd.evar_map * Names.name list * constr) list |