diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-11-20 02:46:50 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-02-14 17:30:28 +0100 |
| commit | f6f271d3179e6d8acd90cbd07c8e60e5a68efb17 (patch) | |
| tree | 49d1413bb5f703bb9bf8cf3bd9e249bebe2eadaa | |
| parent | 53978e8dd1cc1f1bb7581ea33cee7b9d870ed418 (diff) | |
G_auto API using EConstr.
| -rw-r--r-- | ltac/g_auto.ml4 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ltac/g_auto.ml4 b/ltac/g_auto.ml4 index f540beb56..b5e56d93b 100644 --- a/ltac/g_auto.ml4 +++ b/ltac/g_auto.ml4 @@ -16,6 +16,7 @@ open Pcoq.Constr open Pltac open Hints open Tacexpr +open Proofview.Notations DECLARE PLUGIN "g_auto" @@ -149,7 +150,8 @@ TACTIC EXTEND autounfold_one TACTIC EXTEND autounfoldify | [ "autounfoldify" constr(x) ] -> [ - let db = match Term.kind_of_term x with + Proofview.tclEVARMAP >>= fun sigma -> + let db = match EConstr.kind sigma (EConstr.of_constr x) with | Term.Const (c,_) -> Names.Label.to_string (Names.con_label c) | _ -> assert false in Eauto.autounfold ["core";db] Locusops.onConcl |