diff options
Diffstat (limited to 'contrib/recdef')
| -rw-r--r-- | contrib/recdef/recdef.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/recdef/recdef.ml4 b/contrib/recdef/recdef.ml4 index b07a587d1..79fe16f5a 100644 --- a/contrib/recdef/recdef.ml4 +++ b/contrib/recdef/recdef.ml4 @@ -1023,8 +1023,8 @@ let recursive_definition is_mes f type_of_f r rec_arg_num eq generate_induction_ (* let _ = message "start second proof" in *) com_eqn equation_id functional_ref f_ref term_ref eq; let eq_ref = Nametab.locate (make_short_qualid equation_id ) in - generate_induction_principle - functional_ref eq_ref rec_arg_num rec_arg_type (nb_prod res) relation; +(* generate_induction_principle *) +(* functional_ref eq_ref rec_arg_num rec_arg_type (nb_prod res) relation; *) () in |