aboutsummaryrefslogtreecommitdiff
path: root/tactics/class_tactics.ml
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2020-06-17 15:10:32 +0200
committerPierre-Marie Pédrot2020-06-24 15:38:24 +0200
commit34aeda3d701efd5dead8890588fb02bcdb4980d2 (patch)
tree9330fb20e4e7d95bac5d1550f4340bfed73efd67 /tactics/class_tactics.ml
parentb89584b989d8623a63e85b4a664a730d0f92ed65 (diff)
Merge Clenvtac into Clenv.
Having two different modules led to the availability of internal API in the mli.
Diffstat (limited to 'tactics/class_tactics.ml')
-rw-r--r--tactics/class_tactics.ml6
1 files changed, 3 insertions, 3 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml
index 56d6f7f09a..5ad21c2a5b 100644
--- a/tactics/class_tactics.ml
+++ b/tactics/class_tactics.ml
@@ -158,17 +158,17 @@ let e_give_exact flags h =
in
let (sigma, t1) = Typing.type_of (pf_env gl) sigma c in
Proofview.Unsafe.tclEVARS sigma <*>
- Clenvtac.unify ~flags t1 <*> exact_no_check c
+ Clenv.unify ~flags t1 <*> exact_no_check c
end
let unify_e_resolve flags = begin fun gls (h, _) ->
let clenv', c = connect_hint_clenv h gls in
- Clenvtac.res_pf ~with_evars:true ~with_classes:false ~flags clenv'
+ Clenv.res_pf ~with_evars:true ~with_classes:false ~flags clenv'
end
let unify_resolve flags = begin fun gls (h, _) ->
let clenv', _ = connect_hint_clenv h gls in
- Clenvtac.res_pf ~with_evars:false ~with_classes:false ~flags clenv'
+ Clenv.res_pf ~with_evars:false ~with_classes:false ~flags clenv'
end
(** Application of a lemma using [refine] instead of the old [w_unify] *)