diff options
| author |  Stephane Glondu <steph@glondu.net> | 2014-07-27 10:02:38 +0200 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2014-07-27 10:02:38 +0200 |
| commit | 420f78b2caeaaddc6fe484565b2d0e49c66888e5 (patch) | |
| tree | 8b5450c5801a1592e0348ad0362f950e7bb958d4 /parsing/g_tactic.ml4 | |
| parent | d2c5c5e616a6e118291fe1ce9965c731adac03a8 (diff) | |
Imported Upstream version 8.4pl4dfsgupstream/8.4pl4dfsg
Diffstat (limited to 'parsing/g_tactic.ml4')
| -rw-r--r-- | parsing/g_tactic.ml4 | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index 1609e541..820a1f16 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -1,6 +1,6 @@ (************************************************************************) (* v * The Coq Proof Assistant / The Coq Development Team *) -(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2012 *) +(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2014 *) (* \VV/ **************************************************************) (* // * This file is distributed under the terms of the *) (* * GNU Lesser General Public License Version 2.1 *) @@ -198,7 +198,7 @@ let merge_occurrences loc cl = function GEXTEND Gram GLOBAL: simple_tactic constr_with_bindings quantified_hypothesis - bindings red_expr int_or_var open_constr casted_open_constr + bindings red_expr int_or_var open_constr casted_open_constr open_constr_wTC simple_intropattern; int_or_var: @@ -219,6 +219,9 @@ GEXTEND Gram open_constr: [ [ c = constr -> ((),c) ] ] ; + open_constr_wTC: + [ [ c = constr -> ((),c) ] ] + ; casted_open_constr: [ [ c = constr -> ((),c) ] ] ; |