aboutsummaryrefslogtreecommitdiff
path: root/src/ModularArithmetic/ModularBaseSystemProofs.v
diff options
context:
space:
mode:
authorGravatar jadep <jade.philipoom@gmail.com>2016-10-29 23:55:50 -0400
committerGravatar jadep <jade.philipoom@gmail.com>2016-10-29 23:55:56 -0400
commit9855192886a47614a4a76bb377223b0bba20e667 (patch)
treeadd3e78b4314ded039fd4b58f5580c97d4852aaa /src/ModularArithmetic/ModularBaseSystemProofs.v
parente4af5676167080e700a1e1ca6f699f05b3b5b8e1 (diff)
proved feSign_correct
Diffstat (limited to 'src/ModularArithmetic/ModularBaseSystemProofs.v')
-rw-r--r--src/ModularArithmetic/ModularBaseSystemProofs.v12
1 files changed, 11 insertions, 1 deletions
diff --git a/src/ModularArithmetic/ModularBaseSystemProofs.v b/src/ModularArithmetic/ModularBaseSystemProofs.v
index f6efdfd87..ef89cb5ae 100644
--- a/src/ModularArithmetic/ModularBaseSystemProofs.v
+++ b/src/ModularArithmetic/ModularBaseSystemProofs.v
@@ -114,7 +114,17 @@ Section FieldOperationProofs.
pose proof c_pos; omega.
+ apply base_upper_bound_compatible; auto.
Qed.
-
+(*
+ Lemma parity_decode : forall u x,
+ u ~= x -> Z.odd (F.to_Z x) = Z.odd (nth_default 0 (to_list u) 0).
+ Proof.
+ cbv [rep decode] in *.
+ intros.
+ rewrite <-H.
+ cbv [ModularBaseSystemList.decode].
+ rewrite F.to_Z_of_Z.
+ Qed.
+*)
Lemma add_rep : forall u v x y, u ~= x -> v ~= y ->
add u v ~= (x+y)%F.
Proof.