aboutsummaryrefslogtreecommitdiff
path: root/plugins/funind/functional_principles_proofs.ml
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/funind/functional_principles_proofs.ml')
-rw-r--r--plugins/funind/functional_principles_proofs.ml5
1 files changed, 2 insertions, 3 deletions
diff --git a/plugins/funind/functional_principles_proofs.ml b/plugins/funind/functional_principles_proofs.ml
index b743329e7d..743afe4177 100644
--- a/plugins/funind/functional_principles_proofs.ml
+++ b/plugins/funind/functional_principles_proofs.ml
@@ -863,9 +863,8 @@ let generate_equation_lemma evd fnames f fun_num nb_params nb_args rec_args_num
let lemma, _ =
Declare.Proof.by (Proofview.V82.tactic prove_replacement) lemma
in
- let pm = Declare.OblState.empty in
- let _pm, _ =
- Declare.Proof.save ~pm ~proof:lemma ~opaque:Vernacexpr.Transparent
+ let (_ : _ list) =
+ Declare.Proof.save_regular ~proof:lemma ~opaque:Vernacexpr.Transparent
~idopt:None
in
evd