diff options
| author | Gaëtan Gilbert | 2019-10-26 21:21:48 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-10-26 21:21:48 +0200 |
| commit | f508ddcd2cfff152b8d6291d96e4b87ef9fe2ff9 (patch) | |
| tree | a80f8a1646e81bdb94bc74229ef5b42bc24b31ff /plugins/funind/recdef.ml | |
| parent | f7659e6c5d197ddeff8509a4aab40316534b3a12 (diff) | |
| parent | 4035b4a66dbd8e29aa933b1e301fbd07815768e4 (diff) | |
Merge PR #10516: [funind] Remove duplicate save function.
Reviewed-by: SkySkimmer
Ack-by: gares
Diffstat (limited to 'plugins/funind/recdef.ml')
| -rw-r--r-- | plugins/funind/recdef.ml | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/plugins/funind/recdef.ml b/plugins/funind/recdef.ml index 4c5eab1a9b..29356df81d 100644 --- a/plugins/funind/recdef.ml +++ b/plugins/funind/recdef.ml @@ -1539,13 +1539,7 @@ let recursive_definition ~interactive_proof ~is_mes function_name rec_impls type generate_induction_principle f_ref tcc_lemma_constr functional_ref eq_ref rec_arg_num (EConstr.of_constr rec_arg_type) - (nb_prod evd (EConstr.of_constr res)) relation; - Flags.if_verbose - msgnl (h 1 (Ppconstr.pr_id function_name ++ - spc () ++ str"is defined" )++ fnl () ++ - h 1 (Ppconstr.pr_id equation_id ++ - spc () ++ str"is defined" ) - ) + (nb_prod evd (EConstr.of_constr res)) relation in (* XXX STATE Why do we need this... why is the toplevel protection not enough *) funind_purify (fun () -> |