diff options
| -rw-r--r-- | _CoqProject | 1 | ||||
| -rw-r--r-- | src/Util/Tactics.v | 3 | ||||
| -rw-r--r-- | src/Util/Tactics/SubstLet.v | 1 |
3 files changed, 3 insertions, 2 deletions
diff --git a/_CoqProject b/_CoqProject index 6a47ac18e..9da7280ad 100644 --- a/_CoqProject +++ b/_CoqProject @@ -522,6 +522,7 @@ src/Util/Tactics/Head.v src/Util/Tactics/RewriteHyp.v src/Util/Tactics/SpecializeBy.v src/Util/Tactics/SplitInContext.v +src/Util/Tactics/SubstLet.v src/Util/Tactics/UniquePose.v src/Util/Tactics/VM.v src/WeierstrassCurve/Pre.v diff --git a/src/Util/Tactics.v b/src/Util/Tactics.v index eac17b0d9..b664185ad 100644 --- a/src/Util/Tactics.v +++ b/src/Util/Tactics.v @@ -9,6 +9,7 @@ Require Export Crypto.Util.Tactics.ETransitivity. Require Export Crypto.Util.Tactics.RewriteHyp. Require Export Crypto.Util.Tactics.SpecializeBy. Require Export Crypto.Util.Tactics.SplitInContext. +Require Export Crypto.Util.Tactics.SubstLet. Require Export Crypto.Util.Tactics.UniquePose. Require Export Crypto.Util.Tactics.VM. @@ -50,8 +51,6 @@ Ltac subst_evars := | [ e := ?E |- _ ] => is_evar E; subst e end. -Ltac subst_let := repeat match goal with | x := _ |- _ => subst x end. - Ltac free_in x y := idtac; match y with diff --git a/src/Util/Tactics/SubstLet.v b/src/Util/Tactics/SubstLet.v new file mode 100644 index 000000000..8b11cb403 --- /dev/null +++ b/src/Util/Tactics/SubstLet.v @@ -0,0 +1 @@ +Ltac subst_let := repeat match goal with | x := _ |- _ => subst x end. |