Skip to content

Commit

Permalink
Compile with Coq 8.13
Browse files Browse the repository at this point in the history
  • Loading branch information
proux01 authored and strub committed Jan 8, 2021
1 parent 4db9d2f commit c5b19b6
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 2 deletions.
2 changes: 1 addition & 1 deletion coq-mathcomp-multinomials.opam
Original file line number Diff line number Diff line change
Expand Up @@ -8,7 +8,7 @@ license: "CeCILL-B"
authors: ["Pierre-Yves Strub"]
build: [ "dune" "build" "-p" name "-j" jobs ]
depends: [
"coq" {>= "8.10" & < "8.13~"}
"coq" {>= "8.10" & < "8.14~"}
"dune" {>= "2.5"}
"coq-mathcomp-ssreflect" {>= "1.12" & < "1.13~"}
"coq-mathcomp-algebra"
Expand Down
2 changes: 1 addition & 1 deletion src/mpoly.v
Original file line number Diff line number Diff line change
Expand Up @@ -5313,7 +5313,7 @@ case: (mdeg m =P d)=> /eqP; rewrite basis_cover -/b.
rewrite mcoeffZ mcoeffX eqxx mulr1 big1 ?addr0 // => m' ne.
by rewrite mcoeffZ mcoeffX (negbTE ne) mulr0.
move=> m_notin_b; rewrite big_seq big1 /=.
apply/esym/(dhomog_nemf_coeff (mf0 := [measure of mdeg]) (d := d)).
apply/esym/(@dhomog_nemf_coeff _ _ [measure of mdeg] d).
by apply/dhomog_is_dhomog. by rewrite basis_cover.
move=> m'; apply/contraTeq; rewrite mcoeffZ mcoeffX.
by case: (m' =P m)=> [->|_]; last rewrite mulr0 eqxx.
Expand Down

0 comments on commit c5b19b6

Please sign in to comment.