diff options
| author | Emilio Jesus Gallego Arias | 2020-06-24 14:22:57 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-06-26 14:38:13 +0200 |
| commit | a5a65ddcf0e476384c827cdf2445bc554eae825a (patch) | |
| tree | 66a11f54e75d897c35f6c6aac5506c9716965b99 /plugins/funind/gen_principle.ml | |
| parent | 4ad9fa2b257184f9955216fc8345508c217c762d (diff) | |
[declare] Return list of declared global in Proof.save
This is needed in rewriter as to avoid hack; indeed it makes sense to
propagate this information to the callers of save.
Diffstat (limited to 'plugins/funind/gen_principle.ml')
| -rw-r--r-- | plugins/funind/gen_principle.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/funind/gen_principle.ml b/plugins/funind/gen_principle.ml index 0cd5df12f7..167cf37026 100644 --- a/plugins/funind/gen_principle.ml +++ b/plugins/funind/gen_principle.ml @@ -1524,7 +1524,7 @@ let derive_correctness (funs : Constr.pconstant list) (graphs : inductive list) let lemma = fst @@ Declare.Proof.by (Proofview.V82.tactic (proving_tac i)) lemma in - let () = + let (_ : GlobRef.t list) = Declare.Proof.save ~proof:lemma ~opaque:Vernacexpr.Transparent ~idopt:None in @@ -1596,7 +1596,7 @@ let derive_correctness (funs : Constr.pconstant list) (graphs : inductive list) (proving_tac i))) lemma) in - let () = + let (_ : _ list) = Declare.Proof.save ~proof:lemma ~opaque:Vernacexpr.Transparent ~idopt:None in |