diff options
| author | herbelin | 2008-03-10 23:17:57 +0000 |
|---|---|---|
| committer | herbelin | 2008-03-10 23:17:57 +0000 |
| commit | 77091f657e7393fc9d83a414542d2e2e2dd1e735 (patch) | |
| tree | a5fa8defd64e58a4370a6f6e847b4245ed5f632d /tactics | |
| parent | 6b01f89b083bf8acc666264222131d6ce2bb06bf (diff) | |
Pas très propre de reposer sur la capture des anomalies (et cela
complique le débogage...). Réécriture de 2 morceaux de code qui
utilisaient les anomalies à des fins détournées de leur intention.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10653 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 5f919a4dbe..c3e79c6f0d 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1947,7 +1947,7 @@ let compute_elim_sig ?elimc elimt = elimc = elimc; elimt = elimt; concl = conclusion; predicates = preds; npredicates = List.length preds; branches = branches; nbranches = List.length branches; - farg_in_concl = (try isApp (last_arg ccl) with _ -> false); + farg_in_concl = isApp ccl && isApp (last_arg ccl); params = params; nparams = nparams; (* all other fields are unsure at this point. Including these:*) args = args_indargs; nargs = List.length args_indargs; } in |