diff options
| author | letouzey | 2012-07-09 18:18:01 +0000 |
|---|---|---|
| committer | letouzey | 2012-07-09 18:18:01 +0000 |
| commit | 9e04031196175111302681d96d975804bd7e1850 (patch) | |
| tree | 9a8fea97f87f44fc9548ce1a72053e5fa26a38f7 /grammar | |
| parent | f3870c96a192ff52449db9695b1c160834ff023f (diff) | |
The tactic remember now accepts a final eqn:H option (grant wish #2489)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15567 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/q_coqast.ml4 | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/grammar/q_coqast.ml4 b/grammar/q_coqast.ml4 index 3c646c03af..336468d12e 100644 --- a/grammar/q_coqast.ml4 +++ b/grammar/q_coqast.ml4 @@ -347,11 +347,13 @@ let rec mlexpr_of_atomic_tactic = function (mlexpr_of_pair mlexpr_of_occ_constr mlexpr_of_name) cl$ >> | Tacexpr.TacGeneralizeDep c -> <:expr< Tacexpr.TacGeneralizeDep $mlexpr_of_constr c$ >> - | Tacexpr.TacLetTac (na,c,cl,b) -> + | Tacexpr.TacLetTac (na,c,cl,b,e) -> let na = mlexpr_of_name na in let cl = mlexpr_of_clause_pattern cl in <:expr< Tacexpr.TacLetTac $na$ $mlexpr_of_constr c$ $cl$ - $mlexpr_of_bool b$ >> + $mlexpr_of_bool b$ + (mlexpr_of_option (mlexpr_of_located mlexpr_of_intro_pattern) e) + >> (* Derived basic tactics *) | Tacexpr.TacSimpleInductionDestruct (isrec,h) -> |