diff options
| author | Emilio Jesus Gallego Arias | 2020-06-25 19:52:15 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-06-25 19:52:15 +0200 |
| commit | 7b50daa7d709b9a8748823a4692e136007440f83 (patch) | |
| tree | 5ea1cf85f3268f01a18068c30dccfcf10f920e8f /tactics/eauto.ml | |
| parent | 88e7e1d1d14a2496bbc0992ef2aa502b4725bf92 (diff) | |
| parent | d46c2dc08f76d811b0492ba1941b5ec851e1ecf9 (diff) | |
Merge PR #12579: Simplify Clenv API
Reviewed-by: ejgallego
Diffstat (limited to 'tactics/eauto.ml')
| -rw-r--r-- | tactics/eauto.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tactics/eauto.ml b/tactics/eauto.ml index 90e4aaa167..d275e15255 100644 --- a/tactics/eauto.ml +++ b/tactics/eauto.ml @@ -37,7 +37,7 @@ let e_give_exact ?(flags=eauto_unif_flags) c = if occur_existential sigma t1 || occur_existential sigma t2 then Tacticals.New.tclTHENLIST [Proofview.Unsafe.tclEVARS sigma; - Clenvtac.unify ~flags t1; + Clenv.unify ~flags t1; exact_no_check c] else exact_check c end @@ -68,8 +68,7 @@ open Auto let unify_e_resolve flags h = Proofview.Goal.enter begin fun gl -> let clenv', c = connect_hint_clenv h gl in - let clenv' = clenv_unique_resolver ~flags clenv' gl in - Clenvtac.clenv_refine ~with_evars:true ~with_classes:true clenv' + Clenv.res_pf ~with_evars:true ~with_classes:true ~flags clenv' end let hintmap_of sigma secvars concl = |