diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-02-08 16:54:47 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-02-08 16:54:47 +0000 |
| commit | 7e324da8bd211f01593952ac51bd309e80c7546a (patch) | |
| tree | a53bb39cedf880b9fd2c21f317cb69c9dce58994 /tactics | |
| parent | f71cbe1115db9c7997f1d45b5c419da597d30a59 (diff) | |
Add more information to IllFormedRecBody exceptions, to show the exact
definition on which it is failing (useful for Program definitions and
others too).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10533 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/decl_proof_instr.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/decl_proof_instr.ml b/tactics/decl_proof_instr.ml index 1d5ab017c..c4b7ad13c 100644 --- a/tactics/decl_proof_instr.ml +++ b/tactics/decl_proof_instr.ml @@ -1471,7 +1471,7 @@ let rec postprocess pts instr = goto_current_focus_or_top (mark_as_done pts) with Type_errors.TypeError(env, - Type_errors.IllFormedRecBody(_,_,_)) -> + Type_errors.IllFormedRecBody(_,_,_,_,_)) -> anomaly "\"end induction\" generated an ill-formed fixpoint" end | Pend _ -> |