diff options
| author | Pierre-Marie Pédrot | 2015-12-04 00:09:50 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-12-04 00:11:48 +0100 |
| commit | 38e62610be0386a37172fa5aca44e3b3d2c14b9a (patch) | |
| tree | b33aeabc715366fa41d6a26f280340ab2c21c38c /pretyping | |
| parent | 0021067bf7fbb7c1583b8d167829f00c4b2f9977 (diff) | |
Removing dynamic inclusion of constrs in tactic AST.
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/pretyping.ml | 4 | ||||
| -rw-r--r-- | pretyping/pretyping.mli | 3 |
2 files changed, 0 insertions, 7 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index 78f134248c..ce6d189855 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -95,10 +95,6 @@ let search_guard loc env possible_indexes fixdefs = user_err_loc (loc,"search_guard", Pp.str errmsg) with Found indexes -> indexes) -(* To embed constr in glob_constr *) -let ((constr_in : constr -> Dyn.t), - (constr_out : Dyn.t -> constr)) = Dyn.create "constr" - (* To force universe name declaration before use *) let strict_universe_declarations = ref true diff --git a/pretyping/pretyping.mli b/pretyping/pretyping.mli index 5f0e19cf2b..f8587d01cd 100644 --- a/pretyping/pretyping.mli +++ b/pretyping/pretyping.mli @@ -148,9 +148,6 @@ val ise_pretype_gen : (** To embed constr in glob_constr *) -val constr_in : constr -> Dyn.t -val constr_out : Dyn.t -> constr - val interp_sort : evar_map -> glob_sort -> evar_map * sorts val interp_elimination_sort : glob_sort -> sorts_family |