diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-10-24 14:35:25 +0200 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-10-25 17:42:55 +0200 |
commit | bf4112094feb1a705d8bdaea3fb0febc4ef3ff59 (patch) | |
tree | 49bf826bd68429694abb86df757d54147fb80554 /pretyping/cases.mli | |
parent | 0897d0f642c19419c513f9609782436bebf28f5b (diff) |
[general] Remove Econstr dependency from `intf`
To this extent we factor out the relevant bits to a new file,
ltac_pretype.
Diffstat (limited to 'pretyping/cases.mli')
-rw-r--r-- | pretyping/cases.mli | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/pretyping/cases.mli b/pretyping/cases.mli index 7bdc604b8..cbf5788e4 100644 --- a/pretyping/cases.mli +++ b/pretyping/cases.mli @@ -14,6 +14,7 @@ open EConstr open Inductiveops open Glob_term open Evarutil +open Ltac_pretype (** {5 Compilation of pattern-matching } *) @@ -101,7 +102,7 @@ and pattern_continuation = type 'a pattern_matching_problem = { env : env; - lvar : Glob_term.ltac_var_map; + lvar : Ltac_pretype.ltac_var_map; evdref : evar_map ref; pred : constr; tomatch : tomatch_stack; @@ -119,11 +120,11 @@ val prepare_predicate : ?loc:Loc.t -> Environ.env -> Evd.evar_map ref -> ltac_var_map -> glob_constr -> unsafe_judgment) -> Environ.env -> Evd.evar_map -> - Glob_term.ltac_var_map -> + Ltac_pretype.ltac_var_map -> (types * tomatch_type) list -> (rel_context * rel_context) list -> constr option -> glob_constr option -> (Evd.evar_map * Names.name list * constr) list val make_return_predicate_ltac_lvar : Evd.evar_map -> Names.name -> - Glob_term.glob_constr -> constr -> Glob_term.ltac_var_map -> Glob_term.ltac_var_map + Glob_term.glob_constr -> constr -> Ltac_pretype.ltac_var_map -> ltac_var_map |