From 030bb57d4b7e70d45379cab61903b75bf7a41b19 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Mon, 25 May 2020 16:43:01 +0200
Subject: [declare] Reify Proof.t API into the Proof module.

This is in preparation for the next commit which will clean-up the
current API flow in `Declare`.
---
 plugins/funind/functional_principles_proofs.ml | 9 +++++----
 1 file changed, 5 insertions(+), 4 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 2c85ae079f..79f311e282 100644
--- a/plugins/funind/functional_principles_proofs.ml
+++ b/plugins/funind/functional_principles_proofs.ml
@@ -855,13 +855,14 @@ let generate_equation_lemma evd fnames f fun_num nb_params nb_args rec_args_num
      constructing the lemma Ensures by: obvious i*)
   let info = Declare.Info.make () in
   let lemma =
-    Declare.start_proof ~name:(mk_equation_id f_id) ~poly:false ~info
+    Declare.Proof.start ~name:(mk_equation_id f_id) ~poly:false ~info
       ~impargs:[] evd lemma_type
   in
-  let lemma, _ = Declare.by (Proofview.V82.tactic prove_replacement) lemma in
+  let lemma, _ =
+    Declare.Proof.by (Proofview.V82.tactic prove_replacement) lemma
+  in
   let () =
-    Declare.save_lemma_proved ~proof:lemma ~opaque:Vernacexpr.Transparent
-      ~idopt:None
+    Declare.Proof.save ~proof:lemma ~opaque:Vernacexpr.Transparent ~idopt:None
   in
   evd
 
-- 
cgit v1.2.3