diff options
author | Jason Gross <jgross@mit.edu> | 2017-04-02 23:06:48 -0400 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2017-04-02 23:06:48 -0400 |
commit | 419d6e75f5b31c0762fdf43e06f8f0852c6900a8 (patch) | |
tree | 574848c8f51aa75c15ff5652409bb490ea63218f | |
parent | de02fe53f2a40cc4a2a57852f985a770925c2b06 (diff) |
Add Tactics.EvarExists
-rw-r--r-- | _CoqProject | 1 | ||||
-rw-r--r-- | src/Util/Tactics.v | 1 | ||||
-rw-r--r-- | src/Util/Tactics/EvarExists.v | 5 |
3 files changed, 7 insertions, 0 deletions
diff --git a/_CoqProject b/_CoqProject index 64bcbb1f5..f0e376f1c 100644 --- a/_CoqProject +++ b/_CoqProject @@ -322,6 +322,7 @@ src/Util/Tactics/DestructHead.v src/Util/Tactics/DestructHyps.v src/Util/Tactics/DoWithHyp.v src/Util/Tactics/ETransitivity.v +src/Util/Tactics/EvarExists.v src/Util/Tactics/Head.v src/Util/Tactics/RewriteHyp.v src/Util/Tactics/SpecializeBy.v 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. |