diff options
| author | Pierre-Marie Pédrot | 2015-11-18 00:56:29 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-11-18 00:58:19 +0100 |
| commit | 5ccadc40d54090df5e6b61b4ecbb6083d01e5a88 (patch) | |
| tree | 22593e07f66ba68fdf375d3e4a4917d62b86bcf7 /tactics/class_tactics.ml | |
| parent | 6cd0ac247b7b6fa757a8e0b5369b6d27a0e0ebd9 (diff) | |
Inlining the only use of Clenv.connect_clenv.
Diffstat (limited to 'tactics/class_tactics.ml')
| -rw-r--r-- | tactics/class_tactics.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index 8ee3ec9281..4f0ffa024e 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 |