Merge pull request #90 from proux01/mc_1223

Adapt to math-comp/math-comp#1223
coq-community · Jun 29, 2024 · b974778 · b974778
2 parents 73f9ec4 + 1d8c3fc
commit b974778
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/.github/workflows/docker-action.yml b/.github/workflows/docker-action.yml
@@ -25,8 +25,6 @@ jobs:
           - 'mathcomp/mathcomp:2.2.0-coq-8.18'
           - 'mathcomp/mathcomp:2.2.0-coq-8.19'
           - 'mathcomp/mathcomp:2.2.0-coq-dev'
-          - 'mathcomp/mathcomp-dev:coq-8.16'
-          - 'mathcomp/mathcomp-dev:coq-8.17'
           - 'mathcomp/mathcomp-dev:coq-8.18'
           - 'mathcomp/mathcomp-dev:coq-8.19'
           - 'mathcomp/mathcomp-dev:coq-dev'

diff --git a/theory/polydvd.v b/theory/polydvd.v
@@ -97,7 +97,7 @@ move: (erefl om); rewrite /om /d; case: {2}_ / ihn.
     by rewrite add1n (leq_trans spq) // leqnSn.
   rewrite size_proper_mul ?lead_coefC ?lead_coefXn ?mulr1 //.
   rewrite size_polyC x0 size_polyXn /= addnS /=.
-  by rewrite addnBA // leq_subLR leq_add2r size_poly.
+  by rewrite ?add0n ?addnS addnBA//= leq_subLR leq_add2r size_poly.
 * move=> s hs; case hpq: (odivp_rec _ _ _ _)=> [r'|] //=.
   case=> hm; constructor; move: hm; rewrite opprD addrA.
   move/eqP; rewrite (can2_eq (@addrNK _ _) (@addrK _ _)) => /eqP->.
@@ -769,7 +769,7 @@ case: {1}_ / h=> //.
     by rewrite add1n (leq_trans spq) // leqnSn.
   rewrite size_proper_mul ?lead_coefC ?lead_coefXn ?mulr1 ?x0 //.
   rewrite size_polyC x0 size_polyXn /= addnS /=.
-  by rewrite addnBA // leq_subLR leq_add2r size_poly.
+  by rewrite ?add0n ?addnS addnBA//= leq_subLR leq_add2r size_poly.
 move=> q1 r0 H G.
 move/eqP; rewrite xpair_eqE; case/andP; move/eqP=> q1q0; move/eqP=> r0r.
 constructor; last by rewrite -r0r.