diff options
| author | Enrico Tassi | 2019-06-27 10:47:42 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2019-06-27 10:47:42 +0200 |
| commit | 90d0f98ea37038e35bba06f0c6ccb8e76d27a80e (patch) | |
| tree | ef0f5eef3ad7756672eb119e0331eb95e772ee42 /plugins/funind/invfun.ml | |
| parent | 2c39a12f5a8d7178b991595324692c1596ea9199 (diff) | |
| parent | 2c271baa72113ac9ee6a67f19d6128afe82ae479 (diff) | |
Merge PR #10337: [stm] [vernac] Remove special ?proof parameter from vernac main path
Ack-by: SkySkimmer
Ack-by: ejgallego
Reviewed-by: gares
Diffstat (limited to 'plugins/funind/invfun.ml')
| -rw-r--r-- | plugins/funind/invfun.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/funind/invfun.ml b/plugins/funind/invfun.ml index 587e1fc2e8..86defb2f2f 100644 --- a/plugins/funind/invfun.ml +++ b/plugins/funind/invfun.ml @@ -815,7 +815,7 @@ let derive_correctness make_scheme (funs: pconstant list) (graphs:inductive list let lemma = fst @@ Lemmas.by (Proofview.V82.tactic (observe_tac ("prove correctness ("^(Id.to_string f_id)^")") (proving_tac i))) lemma in - let () = Lemmas.save_lemma_proved ?proof:None ~lemma ~opaque:Proof_global.Transparent ~idopt:None in + let () = Lemmas.save_lemma_proved ~lemma ~opaque:Proof_global.Transparent ~idopt:None in let finfo = find_Function_infos (fst f_as_constant) in (* let lem_cst = fst (destConst (Constrintern.global_reference lem_id)) in *) let _,lem_cst_constr = Evd.fresh_global @@ -877,7 +877,7 @@ let derive_correctness make_scheme (funs: pconstant list) (graphs:inductive list let lemma = fst (Lemmas.by (Proofview.V82.tactic (observe_tac ("prove completeness ("^(Id.to_string f_id)^")") (proving_tac i))) lemma) in - let () = Lemmas.save_lemma_proved ?proof:None ~lemma ~opaque:Proof_global.Transparent ~idopt:None in + let () = Lemmas.save_lemma_proved ~lemma ~opaque:Proof_global.Transparent ~idopt:None in let finfo = find_Function_infos (fst f_as_constant) in let _,lem_cst_constr = Evd.fresh_global (Global.env ()) !evd (Constrintern.locate_reference (Libnames.qualid_of_ident lem_id)) in |