Theorem dgreq0 25663

Description: The leading coefficient of a polynomial is nonzero, unless the entire polynomial is zero. (Contributed by Mario Carneiro, 22-Jul-2014.) (Proof shortened by Fan Zheng, 21-Jun-2016.)

Hypotheses

Ref	Expression
dgreq0.1	⊢ 𝑁 = (deg‘𝐹)
dgreq0.2	⊢ 𝐴 = (coeff‘𝐹)

Assertion

Ref	Expression
dgreq0	⊢ (𝐹 ∈ (Poly‘𝑆) → (𝐹 = 0𝑝 ↔ (𝐴‘𝑁) = 0))

Proof of Theorem dgreq0

Dummy variable 𝑘 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		dgreq0.2	. . . . . 6 ⊢ 𝐴 = (coeff‘𝐹)
2		fveq2 6847	. . . . . 6 ⊢ (𝐹 = 0𝑝 → (coeff‘𝐹) = (coeff‘0𝑝))
3	1, 2	eqtrid 2783	. . . . 5 ⊢ (𝐹 = 0𝑝 → 𝐴 = (coeff‘0𝑝))
4		coe0 25654	. . . . 5 ⊢ (coeff‘0𝑝) = (ℕ0 × {0})
5	3, 4	eqtrdi 2787	. . . 4 ⊢ (𝐹 = 0𝑝 → 𝐴 = (ℕ0 × {0}))
6		dgreq0.1	. . . . . 6 ⊢ 𝑁 = (deg‘𝐹)
7		fveq2 6847	. . . . . 6 ⊢ (𝐹 = 0𝑝 → (deg‘𝐹) = (deg‘0𝑝))
8	6, 7	eqtrid 2783	. . . . 5 ⊢ (𝐹 = 0𝑝 → 𝑁 = (deg‘0𝑝))
9		dgr0 25660	. . . . 5 ⊢ (deg‘0𝑝) = 0
10	8, 9	eqtrdi 2787	. . . 4 ⊢ (𝐹 = 0𝑝 → 𝑁 = 0)
11	5, 10	fveq12d 6854	. . 3 ⊢ (𝐹 = 0𝑝 → (𝐴‘𝑁) = ((ℕ0 × {0})‘0))
12		0nn0 12437	. . . 4 ⊢ 0 ∈ ℕ0
13		fvconst2g 7156	. . . 4 ⊢ ((0 ∈ ℕ0 ∧ 0 ∈ ℕ0) → ((ℕ0 × {0})‘0) = 0)
14	12, 12, 13	mp2an 690	. . 3 ⊢ ((ℕ0 × {0})‘0) = 0
15	11, 14	eqtrdi 2787	. 2 ⊢ (𝐹 = 0𝑝 → (𝐴‘𝑁) = 0)
16	1	coefv0 25646	. . . . . . . 8 ⊢ (𝐹 ∈ (Poly‘𝑆) → (𝐹‘0) = (𝐴‘0))
17	16	adantr 481	. . . . . . 7 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) → (𝐹‘0) = (𝐴‘0))
18		simpr 485	. . . . . . . . . . . 12 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℕ)
19	18	nnred 12177	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℝ)
20	19	ltm1d 12096	. . . . . . . . . 10 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ 𝑁 ∈ ℕ) → (𝑁 − 1) < 𝑁)
21		nnre 12169	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
22	21	adantl 482	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ 𝑁 ∈ ℕ) → 𝑁 ∈ ℝ)
23		peano2rem 11477	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℝ → (𝑁 − 1) ∈ ℝ)
24	22, 23	syl 17	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ 𝑁 ∈ ℕ) → (𝑁 − 1) ∈ ℝ)
25		simpll 765	. . . . . . . . . . . 12 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ 𝑁 ∈ ℕ) → 𝐹 ∈ (Poly‘𝑆))
26		nnm1nn0 12463	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ0)
27	26	adantl 482	. . . . . . . . . . . 12 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ 𝑁 ∈ ℕ) → (𝑁 − 1) ∈ ℕ0)
28	1, 6	dgrub 25632	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ 𝑘 ∈ ℕ0 ∧ (𝐴‘𝑘) ≠ 0) → 𝑘 ≤ 𝑁)
29	28	3expia 1121	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ 𝑘 ∈ ℕ0) → ((𝐴‘𝑘) ≠ 0 → 𝑘 ≤ 𝑁))
30	29	ad2ant2rl 747	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ (𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ0)) → ((𝐴‘𝑘) ≠ 0 → 𝑘 ≤ 𝑁))
31		simplr 767	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ (𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ0)) → (𝐴‘𝑁) = 0)
32		fveqeq2 6856	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑁 = 𝑘 → ((𝐴‘𝑁) = 0 ↔ (𝐴‘𝑘) = 0))
33	31, 32	syl5ibcom 244	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ (𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ0)) → (𝑁 = 𝑘 → (𝐴‘𝑘) = 0))
34	33	necon3d 2960	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ (𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ0)) → ((𝐴‘𝑘) ≠ 0 → 𝑁 ≠ 𝑘))
35	30, 34	jcad 513	. . . . . . . . . . . . . . . 16 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ (𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ0)) → ((𝐴‘𝑘) ≠ 0 → (𝑘 ≤ 𝑁 ∧ 𝑁 ≠ 𝑘)))
36		nn0re 12431	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ ℕ0 → 𝑘 ∈ ℝ)
37	36	ad2antll 727	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ (𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ0)) → 𝑘 ∈ ℝ)
38	21	ad2antrl 726	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ (𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ0)) → 𝑁 ∈ ℝ)
39	37, 38	ltlend 11309	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ (𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ0)) → (𝑘 < 𝑁 ↔ (𝑘 ≤ 𝑁 ∧ 𝑁 ≠ 𝑘)))
40		nn0z 12533	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ ℕ0 → 𝑘 ∈ ℤ)
41	40	ad2antll 727	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ (𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ0)) → 𝑘 ∈ ℤ)
42		nnz 12529	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
43	42	ad2antrl 726	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ (𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ0)) → 𝑁 ∈ ℤ)
44		zltlem1 12565	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑘 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑘 < 𝑁 ↔ 𝑘 ≤ (𝑁 − 1)))
45	41, 43, 44	syl2anc 584	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ (𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ0)) → (𝑘 < 𝑁 ↔ 𝑘 ≤ (𝑁 − 1)))
46	39, 45	bitr3d 280	. . . . . . . . . . . . . . . 16 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ (𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ0)) → ((𝑘 ≤ 𝑁 ∧ 𝑁 ≠ 𝑘) ↔ 𝑘 ≤ (𝑁 − 1)))
47	35, 46	sylibd 238	. . . . . . . . . . . . . . 15 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ (𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ0)) → ((𝐴‘𝑘) ≠ 0 → 𝑘 ≤ (𝑁 − 1)))
48	47	expr 457	. . . . . . . . . . . . . 14 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ 𝑁 ∈ ℕ) → (𝑘 ∈ ℕ0 → ((𝐴‘𝑘) ≠ 0 → 𝑘 ≤ (𝑁 − 1))))
49	48	ralrimiv 3138	. . . . . . . . . . . . 13 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ 𝑁 ∈ ℕ) → ∀𝑘 ∈ ℕ0 ((𝐴‘𝑘) ≠ 0 → 𝑘 ≤ (𝑁 − 1)))
50	1	coef3 25630	. . . . . . . . . . . . . . 15 ⊢ (𝐹 ∈ (Poly‘𝑆) → 𝐴:ℕ0⟶ℂ)
51	50	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ 𝑁 ∈ ℕ) → 𝐴:ℕ0⟶ℂ)
52		plyco0 25590	. . . . . . . . . . . . . 14 ⊢ (((𝑁 − 1) ∈ ℕ0 ∧ 𝐴:ℕ0⟶ℂ) → ((𝐴 “ (ℤ≥‘((𝑁 − 1) + 1))) = {0} ↔ ∀𝑘 ∈ ℕ0 ((𝐴‘𝑘) ≠ 0 → 𝑘 ≤ (𝑁 − 1))))
53	27, 51, 52	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ 𝑁 ∈ ℕ) → ((𝐴 “ (ℤ≥‘((𝑁 − 1) + 1))) = {0} ↔ ∀𝑘 ∈ ℕ0 ((𝐴‘𝑘) ≠ 0 → 𝑘 ≤ (𝑁 − 1))))
54	49, 53	mpbird 256	. . . . . . . . . . . 12 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ 𝑁 ∈ ℕ) → (𝐴 “ (ℤ≥‘((𝑁 − 1) + 1))) = {0})
55	1, 6	dgrlb 25634	. . . . . . . . . . . 12 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ (𝑁 − 1) ∈ ℕ0 ∧ (𝐴 “ (ℤ≥‘((𝑁 − 1) + 1))) = {0}) → 𝑁 ≤ (𝑁 − 1))
56	25, 27, 54, 55	syl3anc 1371	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ 𝑁 ∈ ℕ) → 𝑁 ≤ (𝑁 − 1))
57	22, 24, 56	lensymd 11315	. . . . . . . . . 10 ⊢ (((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) ∧ 𝑁 ∈ ℕ) → ¬ (𝑁 − 1) < 𝑁)
58	20, 57	pm2.65da 815	. . . . . . . . 9 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) → ¬ 𝑁 ∈ ℕ)
59		dgrcl 25631	. . . . . . . . . . . . 13 ⊢ (𝐹 ∈ (Poly‘𝑆) → (deg‘𝐹) ∈ ℕ0)
60	6, 59	eqeltrid 2836	. . . . . . . . . . . 12 ⊢ (𝐹 ∈ (Poly‘𝑆) → 𝑁 ∈ ℕ0)
61	60	adantr 481	. . . . . . . . . . 11 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) → 𝑁 ∈ ℕ0)
62		elnn0 12424	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ0 ↔ (𝑁 ∈ ℕ ∨ 𝑁 = 0))
63	61, 62	sylib 217	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) → (𝑁 ∈ ℕ ∨ 𝑁 = 0))
64	63	ord 862	. . . . . . . . 9 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) → (¬ 𝑁 ∈ ℕ → 𝑁 = 0))
65	58, 64	mpd 15	. . . . . . . 8 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) → 𝑁 = 0)
66	65	fveq2d 6851	. . . . . . 7 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) → (𝐴‘𝑁) = (𝐴‘0))
67		simpr 485	. . . . . . 7 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) → (𝐴‘𝑁) = 0)
68	17, 66, 67	3eqtr2d 2777	. . . . . 6 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) → (𝐹‘0) = 0)
69	68	sneqd 4603	. . . . 5 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) → {(𝐹‘0)} = {0})
70	69	xpeq2d 5668	. . . 4 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) → (ℂ × {(𝐹‘0)}) = (ℂ × {0}))
71	6, 65	eqtr3id 2785	. . . . 5 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) → (deg‘𝐹) = 0)
72		0dgrb 25644	. . . . . 6 ⊢ (𝐹 ∈ (Poly‘𝑆) → ((deg‘𝐹) = 0 ↔ 𝐹 = (ℂ × {(𝐹‘0)})))
73	72	adantr 481	. . . . 5 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) → ((deg‘𝐹) = 0 ↔ 𝐹 = (ℂ × {(𝐹‘0)})))
74	71, 73	mpbid 231	. . . 4 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) → 𝐹 = (ℂ × {(𝐹‘0)}))
75		df-0p 25071	. . . . 5 ⊢ 0𝑝 = (ℂ × {0})
76	75	a1i 11	. . . 4 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) → 0𝑝 = (ℂ × {0}))
77	70, 74, 76	3eqtr4d 2781	. . 3 ⊢ ((𝐹 ∈ (Poly‘𝑆) ∧ (𝐴‘𝑁) = 0) → 𝐹 = 0𝑝)
78	77	ex 413	. 2 ⊢ (𝐹 ∈ (Poly‘𝑆) → ((𝐴‘𝑁) = 0 → 𝐹 = 0𝑝))
79	15, 78	impbid2 225	1 ⊢ (𝐹 ∈ (Poly‘𝑆) → (𝐹 = 0𝑝 ↔ (𝐴‘𝑁) = 0))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   ∨ wo 845   = wceq 1541   ∈ wcel 2106   ≠ wne 2939  ∀wral 3060  {csn 4591   class class class wbr 5110   × cxp 5636   “ cima 5641  ⟶wf 6497  ‘cfv 6501  (class class class)co 7362  ℂcc 11058  ℝcr 11059  0cc0 11060  1c1 11061   + caddc 11063   < clt 11198   ≤ cle 11199   − cmin 11394  ℕcn 12162  ℕ₀cn0 12422  ℤcz 12508  ℤ_≥cuz 12772  0_𝑝c0p 25070  Polycply 25582  coeffccoe 25584  degcdgr 25585

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2702  ax-rep 5247  ax-sep 5261  ax-nul 5268  ax-pow 5325  ax-pr 5389  ax-un 7677  ax-inf2 9586  ax-cnex 11116  ax-resscn 11117  ax-1cn 11118  ax-icn 11119  ax-addcl 11120  ax-addrcl 11121  ax-mulcl 11122  ax-mulrcl 11123  ax-mulcom 11124  ax-addass 11125  ax-mulass 11126  ax-distr 11127  ax-i2m1 11128  ax-1ne0 11129  ax-1rid 11130  ax-rnegex 11131  ax-rrecex 11132  ax-cnre 11133  ax-pre-lttri 11134  ax-pre-lttrn 11135  ax-pre-ltadd 11136  ax-pre-mulgt0 11137  ax-pre-sup 11138

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3351  df-reu 3352  df-rab 3406  df-v 3448  df-sbc 3743  df-csb 3859  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3932  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4871  df-int 4913  df-iun 4961  df-br 5111  df-opab 5173  df-mpt 5194  df-tr 5228  df-id 5536  df-eprel 5542  df-po 5550  df-so 5551  df-fr 5593  df-se 5594  df-we 5595  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6258  df-ord 6325  df-on 6326  df-lim 6327  df-suc 6328  df-iota 6453  df-fun 6503  df-fn 6504  df-f 6505  df-f1 6506  df-fo 6507  df-f1o 6508  df-fv 6509  df-isom 6510  df-riota 7318  df-ov 7365  df-oprab 7366  df-mpo 7367  df-of 7622  df-om 7808  df-1st 7926  df-2nd 7927  df-frecs 8217  df-wrecs 8248  df-recs 8322  df-rdg 8361  df-1o 8417  df-er 8655  df-map 8774  df-pm 8775  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-sup 9387  df-inf 9388  df-oi 9455  df-card 9884  df-pnf 11200  df-mnf 11201  df-xr 11202  df-ltxr 11203  df-le 11204  df-sub 11396  df-neg 11397  df-div 11822  df-nn 12163  df-2 12225  df-3 12226  df-n0 12423  df-z 12509  df-uz 12773  df-rp 12925  df-fz 13435  df-fzo 13578  df-fl 13707  df-seq 13917  df-exp 13978  df-hash 14241  df-cj 14996  df-re 14997  df-im 14998  df-sqrt 15132  df-abs 15133  df-clim 15382  df-rlim 15383  df-sum 15583  df-0p 25071  df-ply 25586  df-coe 25588  df-dgr 25589

This theorem is referenced by:  dgrlt  25664  dgradd2  25666  dgrmul  25668  dgrcolem2  25672  plymul0or  25678  plydivlem4  25693  plydiveu  25695  vieta1lem2  25708  vieta1  25709  aareccl  25723  ftalem2  26460  ftalem4  26462  ftalem5  26463  signsply0  33252  mpaaeu  41535  elaa2lem  44594