diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-11-18 00:56:29 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-11-18 00:58:19 +0100 |
| commit | 5ccadc40d54090df5e6b61b4ecbb6083d01e5a88 (patch) | |
| tree | 22593e07f66ba68fdf375d3e4a4917d62b86bcf7 | |
| parent | 6cd0ac247b7b6fa757a8e0b5369b6d27a0e0ebd9 (diff) | |
Inlining the only use of Clenv.connect_clenv.
| -rw-r--r-- | proofs/clenv.ml | 9 | ||||
| -rw-r--r-- | proofs/clenv.mli | 1 | ||||
| -rw-r--r-- | tactics/class_tactics.ml | 4 |
3 files changed, 2 insertions, 12 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 diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index 8ee3ec928..4f0ffa024 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -158,9 +158,9 @@ let e_give_exact flags poly (c,clenv) gl = let c, gl = if poly then let clenv', subst = Clenv.refresh_undefined_univs clenv in - let clenv' = connect_clenv gl clenv' in + let evd = evars_reset_evd ~with_conv_pbs:true gl.sigma clenv'.evd in let c = Vars.subst_univs_level_constr subst c in - c, {gl with sigma = clenv'.evd} + c, {gl with sigma = evd} else c, gl in let t1 = pf_unsafe_type_of gl c in |