Skip to content

Commit

Permalink
functor behavior
Browse files Browse the repository at this point in the history
  • Loading branch information
thery committed Nov 2, 2023
1 parent 2e6ef90 commit 969b32d
Showing 1 changed file with 7 additions and 5 deletions.
12 changes: 7 additions & 5 deletions elliptic.v
Original file line number Diff line number Diff line change
Expand Up @@ -1028,10 +1028,16 @@ move=> [|x y e] //=; case: eqP => // p1.
by congr (Some _); apply: curve_elt_irr.
Qed.

HB.instance Definition _ :=

Check warning on line 1031 in elliptic.v

View workflow job for this annotation

GitHub Actions / build (mathcomp/mathcomp:2.1.0-coq-8.18)

Ignoring canonical projection to eq_eltP by hasDecEq.eqP in
Choice.copy elt (pcan_type elt_pcancel).

Definition ell_Zmod := GRing.isZmodule.Build elt addeA addeC add0e addNe.

End ELLIPTIC.

Section ELLIPTIC_FINE.


(******************************************************************************)
(* *)
(* K is finite *)
Expand All @@ -1042,11 +1048,7 @@ Variable K : finFieldType.
Variable A B : K.
Variable Eth : ell_theory A B.

HB.instance Definition _ :=
Choice.copy (elt A B) (pcan_type (@elt_pcancel K A B)).
HB.instance Definition _ :=
GRing.isZmodule.Build (elt A B)
(addeA Eth) (addeC Eth) (add0e Eth) (addNe Eth).
HB.instance Definition _ := ell_Zmod Eth.

Open Scope ring_scope.

Expand Down

0 comments on commit 969b32d

Please sign in to comment.