diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-26 12:00:36 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-26 12:00:36 +0000 |
| commit | c3870759a117b8dc66b759844ffa0ddd2fab58a4 (patch) | |
| tree | ee4299bff7edcfa0f8bd954da53b5317d31240a0 /tactics | |
| parent | 351aa479e6f4b420d83332ae447df3a95cfac4f2 (diff) | |
changement message d'erreur Abstract
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1405 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 c92d80641..82f431445 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1699,7 +1699,7 @@ let abstract_subproof name tac gls = let concl = List.fold_left (fun t d -> mkNamedProd_or_LetIn d t) (pf_concl gls) sign in - if occur_existential concl then error "Cannot abstract with existentials"; + if occur_existential concl then error "Abstract cannot handle existentials"; let lemme = start_proof na Declare.NeverDischarge current_sign concl; let _,(const,strength) = |