diff options
-rw-r--r-- | proofs/clenv.ml | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index 71d952caf..4fc6c5b35 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -337,15 +337,7 @@ let evar_clenv_unique_resolver = clenv_unique_resolver (******************************************************************) let connect_clenv gls clenv = - let evd = Evd.fold begin fun ev evi acc -> - if evi.evar_body = Evar_empty then - acc - else - Evd.add acc ev evi - end - clenv.evd gls.sigma - in - let evd = evars_reset_evd evd clenv.evd in + let evd = evars_reset_evd gls.sigma clenv.evd in { clenv with evd = evd ; env = Goal.V82.env evd (sig_it gls) } |