Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
  • Loading branch information
proux01 committed Jun 28, 2024
1 parent 40ce680 commit e6d2951
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion theories/abel.v
Original file line number Diff line number Diff line change
Expand Up @@ -1300,7 +1300,7 @@ rewrite -!sum1_count; pose pR : {poly algR} := poly_example ^^ ratr.
have pR0 : pR != 0 by rewrite map_poly_eq0.
suff cR : (\sum_(j <- example_roots | j \is Num.real) 1)%N = 3%N.
have := size_example_roots; rewrite -sum1_size (bigID (mem Num.real))/=.
by rewrite cR => -[->].
by rewrite cR => -[].
rewrite -big_filter (perm_big (map algRval (rootsR pR))); last first.
rewrite uniq_perm ?filter_uniq ?example_roots_uniq//.
by rewrite (map_inj_uniq (fmorph_inj _)) uniq_roots.
Expand Down

0 comments on commit e6d2951

Please sign in to comment.