diff options
author | 2015-11-18 00:56:29 +0100 | |
---|---|---|
committer | 2015-11-18 00:58:19 +0100 | |
commit | 5ccadc40d54090df5e6b61b4ecbb6083d01e5a88 (patch) | |
tree | 22593e07f66ba68fdf375d3e4a4917d62b86bcf7 /proofs | |
parent | 6cd0ac247b7b6fa757a8e0b5369b6d27a0e0ebd9 (diff) |
Inlining the only use of Clenv.connect_clenv.
Diffstat (limited to 'proofs')
-rw-r--r-- | proofs/clenv.ml | 9 | ||||
-rw-r--r-- | proofs/clenv.mli | 1 |
2 files changed, 0 insertions, 10 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index ae790d9b8..bc6e75c38 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -345,15 +345,6 @@ let clenv_pose_metas_as_evars clenv dep_mvs = (******************************************************************) -let connect_clenv gls clenv = - let evd = evars_reset_evd ~with_conv_pbs:true gls.sigma clenv.evd in - { clenv with - evd = evd ; - env = Goal.V82.env evd (sig_it gls) } - -(* let connect_clenv_key = Profile.declare_profile "connect_clenv";; *) -(* let connect_clenv = Profile.profile2 connect_clenv_key connect_clenv *) - (* [clenv_fchain mv clenv clenv'] * * Resolves the value of "mv" (which must be undefined) in clenv to be diff --git a/proofs/clenv.mli b/proofs/clenv.mli index eb1081706..ca62c985e 100644 --- a/proofs/clenv.mli +++ b/proofs/clenv.mli @@ -49,7 +49,6 @@ val refresh_undefined_univs : clausenv -> clausenv * Univ.universe_level_subst (** {6 linking of clenvs } *) -val connect_clenv : Goal.goal sigma -> clausenv -> clausenv val clenv_fchain : ?flags:unify_flags -> metavariable -> clausenv -> clausenv -> clausenv |