diff options
| author |  Andres Erbsen <andreser@mit.edu> | 2016-05-29 17:45:53 -0400 |
|---|---|---|
| committer | Andres Erbsen <andreser@mit.edu> | 2016-05-29 17:45:53 -0400 |
| commit | 7f5ded6a82327e5dc97ecd4ff300379ddd93dba5 (patch) | |
| tree | 9b6cffa49fbe6ca2da155bdb1ee0ccd4c9458eb4 /src/CompleteEdwardsCurve | |
| parent | 1b3fef5834ef94c2b24dd1b60eb82a8534529274 (diff) | |
ERep add
Diffstat (limited to 'src/CompleteEdwardsCurve')
| -rw-r--r-- | src/CompleteEdwardsCurve/ExtendedCoordinates.v | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/CompleteEdwardsCurve/ExtendedCoordinates.v b/src/CompleteEdwardsCurve/ExtendedCoordinates.v index 96365084c..44033097d 100644 --- a/src/CompleteEdwardsCurve/ExtendedCoordinates.v +++ b/src/CompleteEdwardsCurve/ExtendedCoordinates.v @@ -181,6 +181,14 @@ Section ExtendedCoordinates. unfold rep in *; intuition. Qed. + Lemma unifiedAddM1_correct : forall P Q, mkExtendedPoint (E.add P Q) === unifiedAddM1 (mkExtendedPoint P) (mkExtendedPoint Q). + Proof. + unfold equiv, extendedPoint_eq; intros; + pose proof unifiedAddM1_rep (mkExtendedPoint P) (mkExtendedPoint Q); + pose proof unExtendedPoint_mkExtendedPoint; + congruence. + Qed. + Global Instance Proper_unifiedAddM1 : Proper (equiv==>equiv==>equiv) unifiedAddM1. Proof. repeat (econstructor || intro). |