diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/clenv.ml | 3 | ||||
| -rw-r--r-- | pretyping/clenv.mli | 3 |
2 files changed, 0 insertions, 6 deletions
diff --git a/pretyping/clenv.ml b/pretyping/clenv.ml index 18a22e5c71..3406d06aa4 100644 --- a/pretyping/clenv.ml +++ b/pretyping/clenv.ml @@ -151,9 +151,6 @@ let mk_clenv_from_n gls n (c,cty) = let mk_clenv_from gls = mk_clenv_from_n gls None -let mk_clenv_rename_from gls (c,t) = - mk_clenv_from gls (c,rename_bound_var (pf_env gls) [] t) - let mk_clenv_rename_from_n gls n (c,t) = mk_clenv_from_n gls n (c,rename_bound_var (pf_env gls) [] t) diff --git a/pretyping/clenv.mli b/pretyping/clenv.mli index e6cd960b20..1697bb3c2b 100644 --- a/pretyping/clenv.mli +++ b/pretyping/clenv.mli @@ -53,9 +53,6 @@ val clenv_meta_type : clausenv -> metavariable -> types val mk_clenv_from : evar_info sigma -> constr * types -> clausenv val mk_clenv_from_n : evar_info sigma -> int option -> constr * types -> clausenv -val mk_clenv_rename_from : evar_info sigma -> constr * types -> clausenv -val mk_clenv_rename_from_n : - evar_info sigma -> int option -> constr * types -> clausenv val mk_clenv_type_of : evar_info sigma -> constr -> clausenv (***************************************************************) |