diff options
author | Jason Gross <jgross@mit.edu> | 2016-09-22 14:25:26 -0400 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2016-09-22 14:58:53 -0400 |
commit | f7e7c340ab08de79db745db5d2b699dd99dc407a (patch) | |
tree | a51dfdf846280e6ef441d0859662d5b40d3e8a99 /src/BoundedArithmetic/ArchitectureToZLike.v | |
parent | 8ee7882b46d4b8aba92fed51391d03ae8d418a43 (diff) |
Use dlet, not llet
Diffstat (limited to 'src/BoundedArithmetic/ArchitectureToZLike.v')
-rw-r--r-- | src/BoundedArithmetic/ArchitectureToZLike.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/BoundedArithmetic/ArchitectureToZLike.v b/src/BoundedArithmetic/ArchitectureToZLike.v index 80f0d9803..e37932192 100644 --- a/src/BoundedArithmetic/ArchitectureToZLike.v +++ b/src/BoundedArithmetic/ArchitectureToZLike.v @@ -4,7 +4,7 @@ Require Import Crypto.BoundedArithmetic.Interface. Require Import Crypto.BoundedArithmetic.DoubleBounded. Require Import Crypto.ModularArithmetic.ZBounded. Require Import Crypto.Util.Tuple. -Require Import Crypto.Util.LockedLet. +Require Import Crypto.Util.LetIn. Local Open Scope Z_scope. @@ -24,7 +24,7 @@ Section fancy_machine_p256_montgomery_foundation. DivBy_SmallBound v := snd v; DivBy_SmallerBound v := if smaller_bound_exp =? n then snd v - else llet v := v in shrd (snd v) (fst v) smaller_bound_exp; + else dlet v := v in shrd (snd v) (fst v) smaller_bound_exp; Mul x y := muldw x y; CarryAdd x y := adc x y false; CarrySubSmall x y := subc x y false; |