aboutsummaryrefslogtreecommitdiff
path: root/src/Util
diff options
context:
space:
mode:
authorGravatar Jason Gross <jgross@mit.edu>2016-09-22 14:58:37 -0400
committerGravatar Jason Gross <jgross@mit.edu>2016-09-22 14:58:37 -0400
commitce52efb544820b5ce88091cc68c94a3128c7bdd7 (patch)
tree44266b7198aeb3bcac1ced555b1fe9976fcb1a51 /src/Util
parent00924f71f2f810fde1a5657391232483f8c62585 (diff)
Revert "Add a locked version of [let] with fewer reductions"
This reverts commit a4565d0c0c506a56a0db0ca09e9ac7af8b8eaee2. It's not needed.
Diffstat (limited to 'src/Util')
-rw-r--r--src/Util/LockedLet.v9
-rw-r--r--src/Util/Notations.v2
2 files changed, 0 insertions, 11 deletions
diff --git a/src/Util/LockedLet.v b/src/Util/LockedLet.v
deleted file mode 100644
index 088e914fb..000000000
--- a/src/Util/LockedLet.v
+++ /dev/null
@@ -1,9 +0,0 @@
-(** * A version of [let] that doesn't disappear under βδζ unless you also have ι and remove opacity *)
-Require Import Crypto.Util.Notations.
-
-Definition locked_let {A} (x : A) : bool * A := (true, x).
-Definition unlock_let {A} (x : A) : locked_let x = (true, x) := eq_refl.
-Global Opaque locked_let.
-Global Arguments locked_let : simpl never.
-
-Notation "'llet' x := A 'in' b" := (let '(_, x) := locked_let A in b).
diff --git a/src/Util/Notations.v b/src/Util/Notations.v
index 3b710975d..a557c4251 100644
--- a/src/Util/Notations.v
+++ b/src/Util/Notations.v
@@ -63,8 +63,6 @@ Reserved Notation "'plet' x := y 'in' z"
(at level 200, z at level 200, format "'plet' x := y 'in' '//' z").
Reserved Notation "'slet' x := A 'in' b"
(at level 200, b at level 200, format "'slet' x := A 'in' '//' b").
-Reserved Notation "'llet' x := A 'in' b"
- (at level 200, b at level 200, format "'llet' x := A 'in' '//' b").
(* Note that making [Let] a keyword breaks the vernacular [Let] in Coq 8.4 *)
Reserved Notation "'dlet' x := y 'in' f"
(at level 200, f at level 200, format "'dlet' x := y 'in' '//' f").