diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-04-24 17:16:59 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-04-24 17:16:59 +0200 |
| commit | e57074289193b0f0184f3c7143d8ab7e0edd5112 (patch) | |
| tree | 805ec4ad48d8aeaf0cf5beb742ba734b0c24509f /plugins/funind | |
| parent | 7c11c9a5722f6e205dfb158cf21267db123dd06c (diff) | |
| parent | a821f74dc91e438c86037d1dc8903a49934e6ee5 (diff) | |
Merge PR#579: [flags] Deprecate is_silent/is_verbose in favor of single flag.
Diffstat (limited to 'plugins/funind')
| -rw-r--r-- | plugins/funind/recdef.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/funind/recdef.ml b/plugins/funind/recdef.ml index 26ba5ef40..1e405d2c9 100644 --- a/plugins/funind/recdef.ml +++ b/plugins/funind/recdef.ml @@ -1584,8 +1584,8 @@ let recursive_definition is_mes function_name rec_impls type_of_f r rec_arg_num and eq_ref = destConst (constr_of_global eq_ref) in generate_induction_principle f_ref tcc_lemma_constr functional_ref eq_ref rec_arg_num (EConstr.of_constr rec_arg_type) (nb_prod evm (EConstr.of_constr res)) (EConstr.of_constr relation); - if Flags.is_verbose () - then msgnl (h 1 (Ppconstr.pr_id function_name ++ + 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" ) |