diff options
Diffstat (limited to 'tactics/g_rewrite.ml4')
| -rw-r--r-- | tactics/g_rewrite.ml4 | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/tactics/g_rewrite.ml4 b/tactics/g_rewrite.ml4 index db98c42503..03bbc4b046 100644 --- a/tactics/g_rewrite.ml4 +++ b/tactics/g_rewrite.ml4 @@ -25,7 +25,6 @@ open Tacmach open Tacticals open Tactics open Rewrite -open Pcoq.Constr type constr_expr_with_bindings = constr_expr with_bindings type glob_constr_with_bindings = Tacexpr.glob_constr_and_expr with_bindings @@ -200,6 +199,16 @@ type binders_argtype = local_binder list let wit_binders = (Genarg.create_arg None "binders" : binders_argtype Genarg.uniform_genarg_type) +let binders = Pcoq.create_generic_entry "binders" (Genarg.rawwit wit_binders) + +open Pcoq + +GEXTEND Gram + GLOBAL: binders; + binders: + [ [ b = Pcoq.Constr.binders -> b ] ]; +END + VERNAC COMMAND EXTEND AddParametricRelation CLASSIFIED AS SIDEFF | [ "Add" "Parametric" "Relation" binders(b) ":" constr(a) constr(aeq) "reflexivity" "proved" "by" constr(lemma1) |