From 9a7c5b2a18ce47dbfc2bc3513f36856001499d98 Mon Sep 17 00:00:00 2001 From: jadep Date: Mon, 11 Jul 2016 11:42:31 -0400 Subject: ported Specific files to use ModularBaseSystemInterface --- src/ModularArithmetic/ModularBaseSystemInterface.v | 13 ------------- 1 file changed, 13 deletions(-) (limited to 'src/ModularArithmetic') diff --git a/src/ModularArithmetic/ModularBaseSystemInterface.v b/src/ModularArithmetic/ModularBaseSystemInterface.v index 2affd9793..e4192428e 100644 --- a/src/ModularArithmetic/ModularBaseSystemInterface.v +++ b/src/ModularArithmetic/ModularBaseSystemInterface.v @@ -51,7 +51,6 @@ Section s. Definition opp (x : fe) : fe := phi_inv (ModularArithmetic.opp (phi x)). - Lemma add_correct : forall a b, to_list (add a b) = BaseSystem.add (to_list a) (to_list b). Proof. @@ -68,18 +67,6 @@ Section s. apply ModularBaseSystemProofs.add_rep; auto using decode_rep, length_to_list. Qed. - Lemma optimized_group : @group fe eq add zero opp. - Proof. - eapply @isomorphism_to_subgroup_group; cbv [opp zero eq]; intros; - eauto; rewrite ?phi_inv_spec; try reflexivity. - + econstructor; eauto. admit. - + apply (eq_dec _ _). - + admit. - + admit. - + admit. - + apply add_phi. - Qed. - Lemma mul_correct : forall a b, to_list (mul a b) = carry_mul (to_list a) (to_list b). Proof. -- cgit v1.2.3