diff options
Diffstat (limited to 'toplevel/obligations.ml')
| -rw-r--r-- | toplevel/obligations.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/obligations.ml b/toplevel/obligations.ml index 3eb61ccdf..4f2dd2f33 100644 --- a/toplevel/obligations.ml +++ b/toplevel/obligations.ml @@ -251,7 +251,7 @@ let eterm_obligations env name evm fs ?status t ty = in let tac = match Store.get ev.evar_extra evar_tactic with | Some t -> - if String.equal (Dyn.tag t) "tactic" then + if Dyn.has_tag t "tactic" then Some (Tacinterp.interp (Tacinterp.globTacticIn (Tacinterp.tactic_out t))) else None |