diff options
| author | herbelin | 2003-08-14 09:46:40 +0000 |
|---|---|---|
| committer | herbelin | 2003-08-14 09:46:40 +0000 |
| commit | eb9ee80c98dee1eeb30a1498f8720103b3580ddf (patch) | |
| tree | 19ecf7255623c70f5eee7174f55ae1633248af0a | |
| parent | 6af4b04b5a925e7cfd8ad56bf0e1fa547600166e (diff) | |
Ajout token '!' pour correctness
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4269 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/g_constrnew.ml4 | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/parsing/g_constrnew.ml4 b/parsing/g_constrnew.ml4 index f8bb62a22f..573ac2dd32 100644 --- a/parsing/g_constrnew.ml4 +++ b/parsing/g_constrnew.ml4 @@ -26,6 +26,9 @@ let constr_kw = let _ = List.iter (fun s -> Lexer.add_token("",s)) constr_kw let _ = Options.v7 := false +(* For Correctness syntax; doesn't work if in psyntax (freeze pb?) *) +let _ = Lexer.add_token ("","!") + let pair loc = Qualid (loc, Libnames.qualid_of_string "Coq.Init.Datatypes.pair") |