diff options
author | jadep <jade.philipoom@gmail.com> | 2016-10-29 23:55:50 -0400 |
---|---|---|
committer | jadep <jade.philipoom@gmail.com> | 2016-10-29 23:55:56 -0400 |
commit | 9855192886a47614a4a76bb377223b0bba20e667 (patch) | |
tree | add3e78b4314ded039fd4b58f5580c97d4852aaa /src/ModularArithmetic/ModularBaseSystemProofs.v | |
parent | e4af5676167080e700a1e1ca6f699f05b3b5b8e1 (diff) |
proved feSign_correct
Diffstat (limited to 'src/ModularArithmetic/ModularBaseSystemProofs.v')
-rw-r--r-- | src/ModularArithmetic/ModularBaseSystemProofs.v | 12 |
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. |