diff options
| author |  jforest <jforest@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-03-14 19:10:22 +0000 |
|---|---|---|
| committer | jforest <jforest@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-03-14 19:10:22 +0000 |
| commit | a2cc7cc4e0aba3bd60129f4352926f5512cd8bf6 (patch) | |
| tree | df668bc0aa3faffe80e53423a1b6b48ff9296f57 /contrib/recdef | |
| parent | f548bcddd7aca88889978c092747e4427017cd43 (diff) | |
+ Debugging and cleaning functional principle generation tactic
+ New functional induction now calls induction
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8627 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/recdef')
| -rw-r--r-- | contrib/recdef/recdef.ml4 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/recdef/recdef.ml4 b/contrib/recdef/recdef.ml4 index 5bf0744d5..f97354845 100644 --- a/contrib/recdef/recdef.ml4 +++ b/contrib/recdef/recdef.ml4 @@ -1111,7 +1111,8 @@ let (com_eqn : identifier -> Command.save_named true);; -let recursive_definition is_mes f type_of_f r rec_arg_num eq generate_induction_principle : unit = +let recursive_definition is_mes f type_of_f r rec_arg_num eq + generate_induction_principle : unit = let function_type = interp_constr Evd.empty (Global.env()) type_of_f in let env = push_rel (Name f,None,function_type) (Global.env()) in let res_vars,eq' = decompose_prod (interp_constr Evd.empty env eq) in |