diff options
author | 2016-11-08 19:02:15 -0800 | |
---|---|---|
committer | 2016-11-08 19:02:15 -0800 | |
commit | 6dbb07114f9e463007d80112242117e165c6698f (patch) | |
tree | 1b68801efb430b3423a8cff1fa25719c305bbbcc /src/Specific/FancyMachine256/Montgomery.v | |
parent | ea549915c168d1d4440708b75a35ec450648cf8e (diff) | |
parent | c89a77f3b6de068aaf1b8cd2adad73ef64c7fb13 (diff) |
Not quite done with WordUtil lemmas.
Diffstat (limited to 'src/Specific/FancyMachine256/Montgomery.v')
-rw-r--r-- | src/Specific/FancyMachine256/Montgomery.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Specific/FancyMachine256/Montgomery.v b/src/Specific/FancyMachine256/Montgomery.v index fcf14afe2..b6f2da64a 100644 --- a/src/Specific/FancyMachine256/Montgomery.v +++ b/src/Specific/FancyMachine256/Montgomery.v @@ -76,9 +76,9 @@ Section reflected. Context (modulus m' : Z) (props : fancy_machine.arithmetic ops). - Let result (v : tuple fancy_machine.W 2) := Syntax.Interp (interp_op _) rexpression_simple modulus m' (fst v) (snd v). + Let result (v : Tuple.tuple fancy_machine.W 2) := Syntax.Interp (interp_op _) rexpression_simple modulus m' (fst v) (snd v). - Let assembled_result (v : tuple fancy_machine.W 2) : fancy_machine.W := Core.Interp compiled_syntax modulus m' (fst v) (snd v). + Let assembled_result (v : Tuple.tuple fancy_machine.W 2) : fancy_machine.W := Core.Interp compiled_syntax modulus m' (fst v) (snd v). Theorem sanity : result = expression ops modulus m'. Proof. @@ -100,7 +100,7 @@ Section reflected. (H2 : 0 <= m' < 2^256) (H3 : 2^256 * R' ≡ 1) (H4 : modulus * m' ≡₂₅₆ -1) - (v : tuple fancy_machine.W 2) + (v : Tuple.tuple fancy_machine.W 2) (H5 : 0 <= decode v <= 2^256 * modulus). Theorem correctness : fancy_machine.decode (result v) = (decode v * R') mod modulus. |