diff options
| author | Pierre-Marie Pédrot | 2013-12-22 02:32:49 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2013-12-22 04:42:35 +0100 |
| commit | 455d5ee36dc36cbf094ddccf43059cddceedcd1f (patch) | |
| tree | 4d4e1e139e667fd18c8502f736fed2ae09f380ba /tactics | |
| parent | ca67a3fb4184c81449101d9a0cec511ccde09d43 (diff) | |
Notations now accept the $(...)$ tactic-in-term syntax. They are resolved at
internalization time.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index b697d3635c..712191a736 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1185,6 +1185,9 @@ and tactic_of_value ist vle = let tac = eval_tactic ist t in catch_error_tac trace tac | (VFun _|VRec _) -> Proofview.tclZERO (UserError ("" , str "A fully applied tactic is expected.")) + else if has_type vle (topwit wit_tactic) then + let tac = out_gen (topwit wit_tactic) vle in + eval_tactic ist tac else Proofview.tclZERO (UserError ("" , str"Expression does not evaluate to a tactic.")) and eval_value ist tac = |