diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Util/Tactics.v | 1 | ||||
| -rw-r--r-- | src/Util/Tactics/EvarExists.v | 5 |
2 files changed, 6 insertions, 0 deletions
diff --git a/src/Util/Tactics.v b/src/Util/Tactics.v index b664185ad..274e8a0bc 100644 --- a/src/Util/Tactics.v +++ b/src/Util/Tactics.v @@ -6,6 +6,7 @@ Require Export Crypto.Util.Tactics.DestructHyps. Require Export Crypto.Util.Tactics.DestructHead. Require Export Crypto.Util.Tactics.DoWithHyp. Require Export Crypto.Util.Tactics.ETransitivity. +Require Export Crypto.Util.Tactics.EvarExists. Require Export Crypto.Util.Tactics.RewriteHyp. Require Export Crypto.Util.Tactics.SpecializeBy. Require Export Crypto.Util.Tactics.SplitInContext. diff --git a/src/Util/Tactics/EvarExists.v b/src/Util/Tactics/EvarExists.v new file mode 100644 index 000000000..b28098c14 --- /dev/null +++ b/src/Util/Tactics/EvarExists.v @@ -0,0 +1,5 @@ +(** Like [eexists], but stuffs the new evar in a context variable *) +Ltac evar_exists := + let T := fresh in + let e := fresh in + evar (T : Type); evar (e : T); subst T; exists e. |