From 4b2963052ac92e67f08651d8f01e562007c07a34 Mon Sep 17 00:00:00 2001
From: gareuselesinge
Date: Wed, 19 Jun 2013 08:39:28 +0000
Subject: parse "of" as KEYID "of"

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16591 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/g_ltac.ml4                | 2 +-
 parsing/g_tactic.ml4              | 4 ++--
 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" ; 
-- 
cgit v1.2.3