diff options
| author | Pierre-Marie Pédrot | 2018-12-05 17:41:33 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-12-05 17:41:33 +0100 |
| commit | ce4910fe9299bbd54a313980eedaf8d57daade1c (patch) | |
| tree | 4b758b6af09181d86f5b614141d4460f34d923e8 /plugins/funind/invfun.ml | |
| parent | 23f2222bb2c97110b6e55835fd19528177e41ff3 (diff) | |
| parent | 3429abee7c572676fa1155bf1620386bdf10d798 (diff) | |
Merge PR #8705: [vernac] [hooks] Refactor towards optional hooks.
Diffstat (limited to 'plugins/funind/invfun.ml')
| -rw-r--r-- | plugins/funind/invfun.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/plugins/funind/invfun.ml b/plugins/funind/invfun.ml index d1a227d517..95e2e9f6e5 100644 --- a/plugins/funind/invfun.ml +++ b/plugins/funind/invfun.ml @@ -806,8 +806,7 @@ let derive_correctness make_scheme (funs: pconstant list) (graphs:inductive list lem_id (Decl_kinds.Global,false,((Decl_kinds.Proof Decl_kinds.Theorem))) !evd - typ - (Lemmas.mk_hook (fun _ _ -> ())); + typ; ignore (Pfedit.by (Proofview.V82.tactic (observe_tac ("prove correctness ("^(Id.to_string f_id)^")") (proving_tac i)))); @@ -867,8 +866,7 @@ let derive_correctness make_scheme (funs: pconstant list) (graphs:inductive list let lem_id = mk_complete_id f_id in Lemmas.start_proof lem_id (Decl_kinds.Global,false,(Decl_kinds.Proof Decl_kinds.Theorem)) sigma - (fst lemmas_types_infos.(i)) - (Lemmas.mk_hook (fun _ _ -> ())); + (fst lemmas_types_infos.(i)); ignore (Pfedit.by (Proofview.V82.tactic (observe_tac ("prove completeness ("^(Id.to_string f_id)^")") (proving_tac i)))) ; |