diff options
author | Andres Erbsen <andreser@mit.edu> | 2016-08-23 18:34:01 -0400 |
---|---|---|
committer | Andres Erbsen <andreser@mit.edu> | 2016-08-23 18:44:17 -0400 |
commit | ecd6954da5768ca3d38c7c52c6ac40b2b24d41a6 (patch) | |
tree | b5084f85ba3295efc0c9dc23e58a7557adacd643 /src/CompleteEdwardsCurve/CompleteEdwardsCurveTheorems.v | |
parent | 103549c7a210da4c007802a310cf79d314d277da (diff) |
remove eq_dec from Monoid
Diffstat (limited to 'src/CompleteEdwardsCurve/CompleteEdwardsCurveTheorems.v')
-rw-r--r-- | src/CompleteEdwardsCurve/CompleteEdwardsCurveTheorems.v | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/CompleteEdwardsCurve/CompleteEdwardsCurveTheorems.v b/src/CompleteEdwardsCurve/CompleteEdwardsCurveTheorems.v index 4a443fd77..be0a80d1f 100644 --- a/src/CompleteEdwardsCurve/CompleteEdwardsCurveTheorems.v +++ b/src/CompleteEdwardsCurve/CompleteEdwardsCurveTheorems.v @@ -14,7 +14,8 @@ Module E. Section CompleteEdwardsCurveTheorems. Context {F Feq Fzero Fone Fopp Fadd Fsub Fmul Finv Fdiv a d} {field:@field F Feq Fzero Fone Fopp Fadd Fsub Fmul Finv Fdiv} - {prm:@twisted_edwards_params F Feq Fzero Fone Fadd Fmul a d}. + {prm:@twisted_edwards_params F Feq Fzero Fone Fadd Fmul a d} + {Feq_dec:DecidableRel Feq}. Local Infix "=" := Feq : type_scope. Local Notation "a <> b" := (not (a = b)) : type_scope. Local Notation "0" := Fzero. Local Notation "1" := Fone. Local Infix "+" := Fadd. Local Infix "*" := Fmul. @@ -128,10 +129,12 @@ Module E. Section Homomorphism. Context {F Feq Fzero Fone Fopp Fadd Fsub Fmul Finv Fdiv Fa Fd} {field:@field F Feq Fzero Fone Fopp Fadd Fsub Fmul Finv Fdiv} - {Fprm:@twisted_edwards_params F Feq Fzero Fone Fadd Fmul Fa Fd}. + {Fprm:@twisted_edwards_params F Feq Fzero Fone Fadd Fmul Fa Fd} + {Feq_dec:DecidableRel Feq}. Context {K Keq Kzero Kone Kopp Kadd Ksub Kmul Kinv Kdiv Ka Kd} {fieldK: @Algebra.field K Keq Kzero Kone Kopp Kadd Ksub Kmul Kinv Kdiv} - {Kprm:@twisted_edwards_params K Keq Kzero Kone Kadd Kmul Ka Kd}. + {Kprm:@twisted_edwards_params K Keq Kzero Kone Kadd Kmul Ka Kd} + {Keq_dec:DecidableRel Keq}. Context {phi:F->K} {Hphi:@Ring.is_homomorphism F Feq Fone Fadd Fmul K Keq Kone Kadd Kmul phi}. Context {Ha:Keq (phi Fa) Ka} {Hd:Keq (phi Fd) Kd}. |