diff options
Diffstat (limited to 'src/Specific/solinas64_2e416m2e208m1/fesquare.v')
-rw-r--r-- | src/Specific/solinas64_2e416m2e208m1/fesquare.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Specific/solinas64_2e416m2e208m1/fesquare.v b/src/Specific/solinas64_2e416m2e208m1/fesquare.v index cad70e764..db50753e7 100644 --- a/src/Specific/solinas64_2e416m2e208m1/fesquare.v +++ b/src/Specific/solinas64_2e416m2e208m1/fesquare.v @@ -3,8 +3,8 @@ Require Import Crypto.Specific.solinas64_2e416m2e208m1.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 (). |