diff options
| author | Hugo Herbelin | 2015-12-25 06:08:29 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2015-12-25 10:59:24 +0100 |
| commit | 1f2cc4026cd5e977979ff1507fd5fa0d96e1a92f (patch) | |
| tree | 46a0d82265d2a9652853ca79b27ec16f4d761471 /tactics | |
| parent | 83b2b197eb33b78f2e3054819f1a36f971c24426 (diff) | |
Moving the ad hoc interpretation of "intros" as "intros **" from tacinterp.ml
to g_tactic.ml4 so as to leave room for "IntroPattern []" to mean
"no introduction".
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 8c8861fd99..d96c8f98a2 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1775,7 +1775,7 @@ and interp_atomic ist tac : unit Proofview.tactic = (TacIntroPattern l) (* spiwack: print uninterpreted, not sure if it is the expected behaviour. *) - (Tactics.intros_patterns l')) sigma + (Tactics.intro_patterns l')) sigma end } | TacIntroMove (ido,hto) -> Proofview.Goal.enter { enter = begin fun gl -> |