From eb6a7c1aaebe8bd777e03439666b8b2c18db5cd3 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Wed, 17 Jul 2019 08:07:28 +0200
Subject: [funind] Port aux function to the new tactic engine.

---
 plugins/funind/functional_principles_proofs.ml | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

(limited to 'plugins/funind/functional_principles_proofs.ml')

diff --git a/plugins/funind/functional_principles_proofs.ml b/plugins/funind/functional_principles_proofs.ml
index d49dd74eee..5a939b4adf 100644
--- a/plugins/funind/functional_principles_proofs.ml
+++ b/plugins/funind/functional_principles_proofs.ml
@@ -1408,13 +1408,14 @@ let new_prove_with_tcc is_mes acc_inv hrec tcc_hyps eqs : tactic =
                          (observe_tac "finishing using"
                            (
                             tclCOMPLETE(
-                                    Eauto.eauto_with_bases
-                                      (true,5)
-                                      [(fun _ sigma -> (sigma, Lazy.force refl_equal))]
-                                      [Hints.Hint_db.empty TransparentState.empty false]
-                                  )
-                           )
-                        )
+                              Proofview.V82.of_tactic @@
+                              Eauto.eauto_with_bases
+                                (true,5)
+                                [(fun _ sigma -> (sigma, Lazy.force refl_equal))]
+                                [Hints.Hint_db.empty TransparentState.empty false]
+                            )
+                          )
+                         )
                        ]
                     )
                 ]
@@ -1470,7 +1471,9 @@ let prove_principle_for_gen
   let wf_tac =
     if is_mes
     then
-      (fun b -> Recdef.tclUSER_if_not_mes tclIDTAC b None)
+      (fun b ->
+         Proofview.V82.of_tactic @@
+         Recdef.tclUSER_if_not_mes Tacticals.New.tclIDTAC b None)
     else fun _ -> prove_with_tcc tcc_lemma_ref []
   in
   let real_rec_arg_num = rec_arg_num - princ_info.nparams in
-- 
cgit v1.2.3