diff options
author | Jason Gross <jgross@mit.edu> | 2016-09-22 14:58:37 -0400 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2016-09-22 14:58:37 -0400 |
commit | ce52efb544820b5ce88091cc68c94a3128c7bdd7 (patch) | |
tree | 44266b7198aeb3bcac1ced555b1fe9976fcb1a51 /src | |
parent | 00924f71f2f810fde1a5657391232483f8c62585 (diff) |
Revert "Add a locked version of [let] with fewer reductions"
This reverts commit a4565d0c0c506a56a0db0ca09e9ac7af8b8eaee2.
It's not needed.
Diffstat (limited to 'src')
-rw-r--r-- | src/Util/LockedLet.v | 9 | ||||
-rw-r--r-- | src/Util/Notations.v | 2 |
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"). |