diff options
| author | gareuselesinge | 2013-06-19 08:39:28 +0000 |
|---|---|---|
| committer | gareuselesinge | 2013-06-19 08:39:28 +0000 |
| commit | 4b2963052ac92e67f08651d8f01e562007c07a34 (patch) | |
| tree | 151473076aeea21fb75b473fa7b93032b3adaca9 | |
| parent | 9fd57222b55d9840ebfe4ecae7c9af5562374908 (diff) | |
parse "of" as KEYID "of"
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16591 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/g_ltac.ml4 | 2 | ||||
| -rw-r--r-- | parsing/g_tactic.ml4 | 4 | ||||
| -rw-r--r-- | plugins/decl_mode/g_decl_mode.ml4 | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/parsing/g_ltac.ml4 b/parsing/g_ltac.ml4 index 482f0df721..0b25155546 100644 --- a/parsing/g_ltac.ml4 +++ b/parsing/g_ltac.ml4 @@ -135,7 +135,7 @@ GEXTEND Gram ConstrEval (rtc,c) | IDENT "context"; id = identref; "["; c = Constr.lconstr; "]" -> ConstrContext (id,c) - | IDENT "type"; IDENT "of"; c = Constr.constr -> + | IDENT "type"; KEYID "of" ; c = Constr.constr -> ConstrTypeOf c ] ] ; constr_may_eval: (* For extensions *) diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index 5a5c07185c..10cfb7d830 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -370,9 +370,9 @@ GEXTEND Gram hypident: [ [ id = id_or_meta -> id,InHyp - | "("; IDENT "type"; IDENT "of"; id = id_or_meta; ")" -> + | "("; IDENT "type"; KEYID "of"; id = id_or_meta; ")" -> id,InHypTypeOnly - | "("; IDENT "value"; IDENT "of"; id = id_or_meta; ")" -> + | "("; IDENT "value"; KEYID "of"; id = id_or_meta; ")" -> id,InHypValueOnly ] ] ; diff --git a/plugins/decl_mode/g_decl_mode.ml4 b/plugins/decl_mode/g_decl_mode.ml4 index a90c565f10..7c63648633 100644 --- a/plugins/decl_mode/g_decl_mode.ml4 +++ b/plugins/decl_mode/g_decl_mode.ml4 @@ -234,7 +234,7 @@ GLOBAL: proof_instr; ; elim_obj: [[ IDENT "on"; c=constr -> Real c - | IDENT "of"; c=simple_cut -> Virtual c ]] + | KEYID "of"; c=simple_cut -> Virtual c ]] ; elim_step: [[ IDENT "consider" ; |