diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-18 10:52:59 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-18 10:52:59 +0000 |
| commit | 38d436a4b756b95a8a881caf7d1248d49ac4b387 (patch) | |
| tree | 3def29ab5ef75a557c1d822b76dcf03d6e1edab2 | |
| parent | e76e87e49516fab6173a29ff20099d1136c2bd49 (diff) | |
Code mort
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4938 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/g_vernacnew.ml4 | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/parsing/g_vernacnew.ml4 b/parsing/g_vernacnew.ml4 index c91d1079c..8ee5c85e0 100644 --- a/parsing/g_vernacnew.ml4 +++ b/parsing/g_vernacnew.ml4 @@ -423,16 +423,6 @@ GEXTEND Gram VernacCoercion (Global, qid, s, t) (* Implicit *) -(* Obsolete - | IDENT "Syntactic"; IDENT "Definition"; id = IDENT; ":="; c = lconstr; - n = OPT [ "|"; n = natural -> n ] -> - let c = match n with - | Some n -> - let l = list_tabulate (fun _ -> (CHole (loc),None)) n in - CApp (loc,c,l) - | None -> c in - VernacNotation (false,c,Some("'"^id^"'",[]),None,None) -*) | IDENT "Implicit"; IDENT "Arguments"; qid = global; pos = OPT [ "["; l = LIST0 ident; "]" -> l ] -> let pos = option_app (List.map (fun id -> ExplByName id)) pos in |