diff options
-rw-r--r-- | _CoqProject | 1 | ||||
-rw-r--r-- | src/Specific/GF1305.v | 54 |
2 files changed, 55 insertions, 0 deletions
diff --git a/_CoqProject b/_CoqProject index 3bbb2a025..7d5b37863 100644 --- a/_CoqProject +++ b/_CoqProject @@ -28,6 +28,7 @@ src/Spec/ModularArithmetic.v src/Spec/PointEncoding.v src/Specific/Ed25519.v src/Specific/GF25519.v +src/Specific/GF1305.v src/Tactics/VerdiTactics.v src/Testbit.v src/Util/CaseUtil.v diff --git a/src/Specific/GF1305.v b/src/Specific/GF1305.v new file mode 100644 index 000000000..9d11cf8e1 --- /dev/null +++ b/src/Specific/GF1305.v @@ -0,0 +1,54 @@ +Require Import Crypto.ModularArithmetic.ModularBaseSystem. +Require Import Crypto.ModularArithmetic.ModularBaseSystemOpt. +Require Import Crypto.ModularArithmetic.PseudoMersenneBaseParams. +Require Import Crypto.ModularArithmetic.PseudoMersenneBaseParamProofs. +Require Import Coq.Lists.List Crypto.Util.ListUtil. +Require Import Crypto.ModularArithmetic.PrimeFieldTheorems. +Require Import Crypto.Tactics.VerdiTactics. +Require Import Crypto.BaseSystem. +Import ListNotations. +Require Import Coq.ZArith.ZArith Coq.ZArith.Zpower Coq.ZArith.ZArith Coq.ZArith.Znumtheory. +Local Open Scope Z. + +(* BEGIN PseudoMersenneBaseParams instance construction. *) + +Definition modulus : Z := 2^130 - 5. +Lemma prime_modulus : prime modulus. Admitted. + +Instance params1305 : PseudoMersenneBaseParams modulus. + construct_params prime_modulus 5%nat 130. +Defined. + +(* END PseudoMersenneBaseParams instance construction. *) + +(* Precompute k and c *) +Definition k_ := Eval compute in k. +Definition c_ := Eval compute in c. + +(* Makes Qed not take forever *) +Opaque Z.shiftr Pos.iter Z.div2 Pos.div2 Pos.div2_up Pos.succ Z.land + Z.of_N Pos.land N.ldiff Pos.pred_N Pos.pred_double Z.opp Z.mul Pos.mul + Let_In digits Z.add Pos.add Z.pos_sub. + +Local Open Scope nat_scope. +Lemma GF1305Base26_mul_reduce_formula : + forall f0 f1 f2 f3 f4 g0 g1 g2 g3 g4, + {ls | forall f g, rep [f0;f1;f2;f3;f4] f + -> rep [g0;g1;g2;g3;g4] g + -> rep ls (f*g)%F}. +Proof. + eexists; intros ? ? Hf Hg. + pose proof (carry_mul_opt_correct k_ c_ (eq_refl k_) (eq_refl c_) [0;4;3;2;1;0]_ _ _ _ Hf Hg) as Hfg. + compute_formula. +Defined. + +Lemma GF1305Base26_add_formula : + forall f0 f1 f2 f3 f4 g0 g1 g2 g3 g4, + {ls | forall f g, rep [f0;f1;f2;f3;f4] f + -> rep [g0;g1;g2;g3;g4] g + -> rep ls (f + g)%F}. +Proof. + eexists; intros ? ? Hf Hg. + pose proof (add_opt_rep _ _ _ _ Hf Hg) as Hfg. + compute_formula. +Defined.
\ No newline at end of file |