diff options
| author | herbelin | 2000-10-28 07:27:46 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-28 07:27:46 +0000 |
| commit | 2d0c61953a340b3aa55c65b645c00909abc5c72a (patch) | |
| tree | f183a283b74f1a8bfdebcc173e477661cc2ec806 | |
| parent | ccb88a4d476c961eeb8398e766da7df00a147bb1 (diff) | |
Clarification message d'erreur
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@781 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | proofs/tacinterp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/tacinterp.ml b/proofs/tacinterp.ml index 209ea10f67..014dda7e73 100644 --- a/proofs/tacinterp.ml +++ b/proofs/tacinterp.ml @@ -805,7 +805,7 @@ and flag_of_ast (evc,env,lfun,lmatch,goalopt) lf = | Node(_,"Iota",[])::lf -> add_flag (red_add red IOTA) lf | Node(loc,("Unf"|"UnfBut"),l)::_ -> user_err_loc(loc,"flag_of_ast", - [<'sTR "Delta must be specified before">]) + [<'sTR "Delta must be specified just before">]) | arg::_ -> invalid_arg_loc (Ast.loc arg,"flag_of_ast") in |