aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Andres Erbsen <andreser@mit.edu>2015-12-05 20:42:27 -0500
committerGravatar Andres Erbsen <andreser@mit.edu>2015-12-05 20:42:27 -0500
commita0aee348671df03aa11bc359e413e10c15b36c44 (patch)
treeebcb55960f85a2957df8824a83b85dcb53c4cdc2 /src
parentd3c2b7519ca7d02f006c6b5e1462f59a55c68762 (diff)
GaloisTheory: prove 4 trivial admits. GF25519 only assumption is now that 2^255-19 is prime.
Diffstat (limited to 'src')
-rw-r--r--src/Galois/GaloisTheory.v20
1 files changed, 15 insertions, 5 deletions
diff --git a/src/Galois/GaloisTheory.v b/src/Galois/GaloisTheory.v
index f8d1c4c7a..3cfa0323c 100644
--- a/src/Galois/GaloisTheory.v
+++ b/src/Galois/GaloisTheory.v
@@ -182,21 +182,31 @@ Module GaloisTheory (M: Modulus).
Lemma inject_distr_add : forall (m n : Z),
inject (m + n) = inject m + inject n.
- Admitted.
+ Proof.
+ galois.
+ Qed.
Lemma inject_distr_sub : forall (m n : Z),
inject (m - n) = inject m - inject n.
- Admitted.
+ Proof.
+ galois.
+ Qed.
Lemma inject_distr_mul : forall (m n : Z),
inject (m * n) = inject m * inject n.
- Admitted.
+ Proof.
+ galois.
+ Qed.
Lemma inject_eq : forall (x : GF), inject x = x.
- Admitted.
+ Proof.
+ galois.
+ Qed.
Lemma inject_mod_eq : forall x, inject x = inject (x mod modulus).
- Admitted.
+ Proof.
+ galois.
+ Qed.
Definition GFquotrem(a b: GF): GF * GF :=
match (Z.quotrem a b) with