aboutsummaryrefslogtreecommitdiff
path: root/src/Specific/solinas32_2e198m17/fesquare.v
diff options
context:
space:
mode:
Diffstat (limited to 'src/Specific/solinas32_2e198m17/fesquare.v')
-rw-r--r--src/Specific/solinas32_2e198m17/fesquare.v4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Specific/solinas32_2e198m17/fesquare.v b/src/Specific/solinas32_2e198m17/fesquare.v
index b2c171ee9..2ff426ae0 100644
--- a/src/Specific/solinas32_2e198m17/fesquare.v
+++ b/src/Specific/solinas32_2e198m17/fesquare.v
@@ -3,8 +3,8 @@ Require Import Crypto.Specific.solinas32_2e198m17.Synthesis.
(* TODO : change this to field once field isomorphism happens *)
Definition square :
- { square : feBW -> feBW
- | forall a, phiBW (square a) = F.mul (phiBW a) (phiBW a) }.
+ { square : feBW_loose -> feBW_tight
+ | forall a, phiBW_tight (square a) = F.mul (phiBW_loose a) (phiBW_loose a) }.
Proof.
Set Ltac Profiling.
Time synthesize_square ().