diff options
| -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" ; |