diff options
| author | Pierre-Marie Pédrot | 2014-04-22 15:31:12 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-04-23 12:09:14 +0200 |
| commit | 74ddca99c649f2f8c203582a9b82bddf64fb6b52 (patch) | |
| tree | f23aa6340c2630619864666ef5eed257d3d765d9 /proofs/clenv.ml | |
| parent | d23c7539887366202bc370d0f80c26a557486e1c (diff) | |
Removing dead code, thanks to new OCaml warnings and a bit of scripting.
Diffstat (limited to 'proofs/clenv.ml')
| -rw-r--r-- | proofs/clenv.ml | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index 444043dbe2..64a9f00245 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -23,7 +23,6 @@ open Tacred open Pretype_errors open Evarutil open Unification -open Mod_subst open Misctypes (* Abbreviations *) @@ -43,12 +42,6 @@ type clausenv = { let cl_env ce = ce.env let cl_sigma ce = ce.evd -let subst_clenv sub clenv = - { templval = map_fl (subst_mps sub) clenv.templval; - templtyp = map_fl (subst_mps sub) clenv.templtyp; - evd = subst_evar_defs_light sub clenv.evd; - env = clenv.env } - let clenv_nf_meta clenv c = nf_meta clenv.evd c let clenv_term clenv c = meta_instance clenv.evd c let clenv_meta_type clenv mv = Typing.meta_type clenv.evd mv @@ -304,8 +297,6 @@ let clenv_pose_metas_as_evars clenv dep_mvs = fold clenv mvs in fold clenv dep_mvs -let evar_clenv_unique_resolver = clenv_unique_resolver - (******************************************************************) let connect_clenv gls clenv = |