diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-02-27 13:18:33 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-02-27 13:18:33 +0000 |
| commit | 5b89cbf55612395effaebc5f17be266dc25fe008 (patch) | |
| tree | f3cf9d8deec1bff92fdb0636c5487e3c1cd60174 /tools | |
| parent | 34315746efd0d9405999b6db21e19b8cc71e3471 (diff) | |
*** empty log message ***
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5389 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/coqdoc/output.ml | 5 | ||||
| -rw-r--r-- | tools/coqdoc/pretty.mll | 9 |
2 files changed, 7 insertions, 7 deletions
diff --git a/tools/coqdoc/output.ml b/tools/coqdoc/output.ml index ebcb16c04..43f962330 100644 --- a/tools/coqdoc/output.ml +++ b/tools/coqdoc/output.ml @@ -141,7 +141,10 @@ let _ = List.iter "~", "\\ensuremath{\\lnot}"; "/\\", "\\ensuremath{\\land}"; "\\/", "\\ensuremath{\\lor}"; - "|-", "\\ensuremath{\\vdash}" ] + "|-", "\\ensuremath{\\vdash}"; + "forall", "\\ensuremath{\\forall}"; + "exists", "\\ensuremath{\\exists}"; + ] (*s Table of contents *) diff --git a/tools/coqdoc/pretty.mll b/tools/coqdoc/pretty.mll index bdf48e080..983baa596 100644 --- a/tools/coqdoc/pretty.mll +++ b/tools/coqdoc/pretty.mll @@ -63,7 +63,6 @@ type gallina_state = Nothing | AfterDot | Proof let gstate = ref AfterDot - let gparen = ref 0 let is_proof = let t = Hashtbl.create 13 in @@ -78,10 +77,7 @@ if id <> "Add" then gstate := Nothing let gallina_symbol s = - if s = "(" then incr gparen - else if s = ")" then decr gparen - else if !gstate = AfterDot || - (!gstate = Proof && !gparen = 0 && s = ":=") then + if !gstate = AfterDot || (!gstate = Proof && s = ":=") then gstate := Nothing let is_space = function ' ' | '\t' | '\n' | '\r' -> true | _ -> false @@ -334,7 +330,8 @@ and coq = parse { let s = lexeme lexbuf in if !gallina then gallina_id s; ident s (lexeme_start lexbuf); coq lexbuf } - + | "(" space* (identifier as id) space* ":=" + { symbol "("; ident id (lexeme_start lexbuf); symbol ":="; coq lexbuf } | (identifier '.')* identifier { let id = lexeme lexbuf in if !gallina then gallina_id id; |