diff options
| -rw-r--r-- | tactics/tacinterp.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 238edd6593..0fcbf97ff6 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1133,9 +1133,9 @@ and eval_tactic ist = function end | TacProgress tac -> Proofview.tclPROGRESS (interp_tactic ist tac) | TacShowHyps tac -> - (* arnaud: todo: - tclSHOWHYPS (interp_tactic ist tac)*) - assert false + Proofview.V82.tactic begin + tclSHOWHYPS (Proofview.V82.of_tactic (interp_tactic ist tac)) + end | TacAbstract (tac,ido) -> Proofview.V82.tactic begin fun gl -> Tactics.tclABSTRACT (Option.map (pf_interp_ident ist gl) ido) (interp_tactic ist tac) gl |