Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  hbtlem4 Structured version   Visualization version   GIF version

Theorem hbtlem4 43557
Description: The leading ideal function goes to increasing sequences. (Contributed by Stefan O'Rear, 1-Apr-2015.)
Hypotheses
Ref Expression
hbtlem.p 𝑃 = (Poly1𝑅)
hbtlem.u 𝑈 = (LIdeal‘𝑃)
hbtlem.s 𝑆 = (ldgIdlSeq‘𝑅)
hbtlem4.r (𝜑𝑅 ∈ Ring)
hbtlem4.i (𝜑𝐼𝑈)
hbtlem4.x (𝜑𝑋 ∈ ℕ0)
hbtlem4.y (𝜑𝑌 ∈ ℕ0)
hbtlem4.xy (𝜑𝑋𝑌)
Assertion
Ref Expression
hbtlem4 (𝜑 → ((𝑆𝐼)‘𝑋) ⊆ ((𝑆𝐼)‘𝑌))

Proof of Theorem hbtlem4
Dummy variables 𝑎 𝑐 𝑏 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 hbtlem4.r . . . . . . . . . 10 (𝜑𝑅 ∈ Ring)
21ad2antrr 727 . . . . . . . . 9 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → 𝑅 ∈ Ring)
3 hbtlem.p . . . . . . . . . 10 𝑃 = (Poly1𝑅)
43ply1ring 22189 . . . . . . . . 9 (𝑅 ∈ Ring → 𝑃 ∈ Ring)
52, 4syl 17 . . . . . . . 8 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → 𝑃 ∈ Ring)
6 hbtlem4.i . . . . . . . . 9 (𝜑𝐼𝑈)
76ad2antrr 727 . . . . . . . 8 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → 𝐼𝑈)
8 eqid 2737 . . . . . . . . . 10 (mulGrp‘𝑃) = (mulGrp‘𝑃)
9 eqid 2737 . . . . . . . . . 10 (Base‘𝑃) = (Base‘𝑃)
108, 9mgpbas 20084 . . . . . . . . 9 (Base‘𝑃) = (Base‘(mulGrp‘𝑃))
11 eqid 2737 . . . . . . . . 9 (.g‘(mulGrp‘𝑃)) = (.g‘(mulGrp‘𝑃))
128ringmgp 20178 . . . . . . . . . 10 (𝑃 ∈ Ring → (mulGrp‘𝑃) ∈ Mnd)
135, 12syl 17 . . . . . . . . 9 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → (mulGrp‘𝑃) ∈ Mnd)
14 hbtlem4.x . . . . . . . . . . 11 (𝜑𝑋 ∈ ℕ0)
1514ad2antrr 727 . . . . . . . . . 10 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → 𝑋 ∈ ℕ0)
16 hbtlem4.y . . . . . . . . . . 11 (𝜑𝑌 ∈ ℕ0)
1716ad2antrr 727 . . . . . . . . . 10 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → 𝑌 ∈ ℕ0)
18 hbtlem4.xy . . . . . . . . . . 11 (𝜑𝑋𝑌)
1918ad2antrr 727 . . . . . . . . . 10 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → 𝑋𝑌)
20 nn0sub2 12554 . . . . . . . . . 10 ((𝑋 ∈ ℕ0𝑌 ∈ ℕ0𝑋𝑌) → (𝑌𝑋) ∈ ℕ0)
2115, 17, 19, 20syl3anc 1374 . . . . . . . . 9 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → (𝑌𝑋) ∈ ℕ0)
22 eqid 2737 . . . . . . . . . . 11 (var1𝑅) = (var1𝑅)
2322, 3, 9vr1cl 22159 . . . . . . . . . 10 (𝑅 ∈ Ring → (var1𝑅) ∈ (Base‘𝑃))
242, 23syl 17 . . . . . . . . 9 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → (var1𝑅) ∈ (Base‘𝑃))
2510, 11, 13, 21, 24mulgnn0cld 19029 . . . . . . . 8 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → ((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅)) ∈ (Base‘𝑃))
26 simplr 769 . . . . . . . 8 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → 𝑐𝐼)
27 hbtlem.u . . . . . . . . 9 𝑈 = (LIdeal‘𝑃)
28 eqid 2737 . . . . . . . . 9 (.r𝑃) = (.r𝑃)
2927, 9, 28lidlmcl 21182 . . . . . . . 8 (((𝑃 ∈ Ring ∧ 𝐼𝑈) ∧ (((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅)) ∈ (Base‘𝑃) ∧ 𝑐𝐼)) → (((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐) ∈ 𝐼)
305, 7, 25, 26, 29syl22anc 839 . . . . . . 7 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → (((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐) ∈ 𝐼)
31 eqid 2737 . . . . . . . . 9 (deg1𝑅) = (deg1𝑅)
329, 27lidlss 21169 . . . . . . . . . . 11 (𝐼𝑈𝐼 ⊆ (Base‘𝑃))
337, 32syl 17 . . . . . . . . . 10 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → 𝐼 ⊆ (Base‘𝑃))
3433, 26sseldd 3923 . . . . . . . . 9 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → 𝑐 ∈ (Base‘𝑃))
3531, 3, 22, 8, 11deg1pwle 26066 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ (𝑌𝑋) ∈ ℕ0) → ((deg1𝑅)‘((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))) ≤ (𝑌𝑋))
362, 21, 35syl2anc 585 . . . . . . . . 9 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → ((deg1𝑅)‘((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))) ≤ (𝑌𝑋))
37 simpr 484 . . . . . . . . 9 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → ((deg1𝑅)‘𝑐) ≤ 𝑋)
383, 31, 2, 9, 28, 25, 34, 21, 15, 36, 37deg1mulle2 26055 . . . . . . . 8 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → ((deg1𝑅)‘(((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐)) ≤ ((𝑌𝑋) + 𝑋))
3917nn0cnd 12465 . . . . . . . . 9 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → 𝑌 ∈ ℂ)
4015nn0cnd 12465 . . . . . . . . 9 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → 𝑋 ∈ ℂ)
4139, 40npcand 11497 . . . . . . . 8 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → ((𝑌𝑋) + 𝑋) = 𝑌)
4238, 41breqtrd 5112 . . . . . . 7 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → ((deg1𝑅)‘(((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐)) ≤ 𝑌)
43 eqid 2737 . . . . . . . . 9 (0g𝑅) = (0g𝑅)
4443, 3, 22, 8, 11, 9, 28, 2, 34, 21, 15coe1pwmulfv 22223 . . . . . . . 8 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → ((coe1‘(((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐))‘((𝑌𝑋) + 𝑋)) = ((coe1𝑐)‘𝑋))
4541fveq2d 6836 . . . . . . . 8 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → ((coe1‘(((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐))‘((𝑌𝑋) + 𝑋)) = ((coe1‘(((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐))‘𝑌))
4644, 45eqtr3d 2774 . . . . . . 7 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → ((coe1𝑐)‘𝑋) = ((coe1‘(((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐))‘𝑌))
47 fveq2 6832 . . . . . . . . . 10 (𝑏 = (((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐) → ((deg1𝑅)‘𝑏) = ((deg1𝑅)‘(((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐)))
4847breq1d 5096 . . . . . . . . 9 (𝑏 = (((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐) → (((deg1𝑅)‘𝑏) ≤ 𝑌 ↔ ((deg1𝑅)‘(((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐)) ≤ 𝑌))
49 fveq2 6832 . . . . . . . . . . 11 (𝑏 = (((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐) → (coe1𝑏) = (coe1‘(((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐)))
5049fveq1d 6834 . . . . . . . . . 10 (𝑏 = (((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐) → ((coe1𝑏)‘𝑌) = ((coe1‘(((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐))‘𝑌))
5150eqeq2d 2748 . . . . . . . . 9 (𝑏 = (((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐) → (((coe1𝑐)‘𝑋) = ((coe1𝑏)‘𝑌) ↔ ((coe1𝑐)‘𝑋) = ((coe1‘(((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐))‘𝑌)))
5248, 51anbi12d 633 . . . . . . . 8 (𝑏 = (((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐) → ((((deg1𝑅)‘𝑏) ≤ 𝑌 ∧ ((coe1𝑐)‘𝑋) = ((coe1𝑏)‘𝑌)) ↔ (((deg1𝑅)‘(((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐)) ≤ 𝑌 ∧ ((coe1𝑐)‘𝑋) = ((coe1‘(((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐))‘𝑌))))
5352rspcev 3565 . . . . . . 7 (((((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐) ∈ 𝐼 ∧ (((deg1𝑅)‘(((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐)) ≤ 𝑌 ∧ ((coe1𝑐)‘𝑋) = ((coe1‘(((𝑌𝑋)(.g‘(mulGrp‘𝑃))(var1𝑅))(.r𝑃)𝑐))‘𝑌))) → ∃𝑏𝐼 (((deg1𝑅)‘𝑏) ≤ 𝑌 ∧ ((coe1𝑐)‘𝑋) = ((coe1𝑏)‘𝑌)))
5430, 42, 46, 53syl12anc 837 . . . . . 6 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → ∃𝑏𝐼 (((deg1𝑅)‘𝑏) ≤ 𝑌 ∧ ((coe1𝑐)‘𝑋) = ((coe1𝑏)‘𝑌)))
55 eqeq1 2741 . . . . . . . 8 (𝑎 = ((coe1𝑐)‘𝑋) → (𝑎 = ((coe1𝑏)‘𝑌) ↔ ((coe1𝑐)‘𝑋) = ((coe1𝑏)‘𝑌)))
5655anbi2d 631 . . . . . . 7 (𝑎 = ((coe1𝑐)‘𝑋) → ((((deg1𝑅)‘𝑏) ≤ 𝑌𝑎 = ((coe1𝑏)‘𝑌)) ↔ (((deg1𝑅)‘𝑏) ≤ 𝑌 ∧ ((coe1𝑐)‘𝑋) = ((coe1𝑏)‘𝑌))))
5756rexbidv 3162 . . . . . 6 (𝑎 = ((coe1𝑐)‘𝑋) → (∃𝑏𝐼 (((deg1𝑅)‘𝑏) ≤ 𝑌𝑎 = ((coe1𝑏)‘𝑌)) ↔ ∃𝑏𝐼 (((deg1𝑅)‘𝑏) ≤ 𝑌 ∧ ((coe1𝑐)‘𝑋) = ((coe1𝑏)‘𝑌))))
5854, 57syl5ibrcom 247 . . . . 5 (((𝜑𝑐𝐼) ∧ ((deg1𝑅)‘𝑐) ≤ 𝑋) → (𝑎 = ((coe1𝑐)‘𝑋) → ∃𝑏𝐼 (((deg1𝑅)‘𝑏) ≤ 𝑌𝑎 = ((coe1𝑏)‘𝑌))))
5958expimpd 453 . . . 4 ((𝜑𝑐𝐼) → ((((deg1𝑅)‘𝑐) ≤ 𝑋𝑎 = ((coe1𝑐)‘𝑋)) → ∃𝑏𝐼 (((deg1𝑅)‘𝑏) ≤ 𝑌𝑎 = ((coe1𝑏)‘𝑌))))
6059rexlimdva 3139 . . 3 (𝜑 → (∃𝑐𝐼 (((deg1𝑅)‘𝑐) ≤ 𝑋𝑎 = ((coe1𝑐)‘𝑋)) → ∃𝑏𝐼 (((deg1𝑅)‘𝑏) ≤ 𝑌𝑎 = ((coe1𝑏)‘𝑌))))
6160ss2abdv 4006 . 2 (𝜑 → {𝑎 ∣ ∃𝑐𝐼 (((deg1𝑅)‘𝑐) ≤ 𝑋𝑎 = ((coe1𝑐)‘𝑋))} ⊆ {𝑎 ∣ ∃𝑏𝐼 (((deg1𝑅)‘𝑏) ≤ 𝑌𝑎 = ((coe1𝑏)‘𝑌))})
62 hbtlem.s . . . 4 𝑆 = (ldgIdlSeq‘𝑅)
633, 27, 62, 31hbtlem1 43554 . . 3 ((𝑅 ∈ Ring ∧ 𝐼𝑈𝑋 ∈ ℕ0) → ((𝑆𝐼)‘𝑋) = {𝑎 ∣ ∃𝑐𝐼 (((deg1𝑅)‘𝑐) ≤ 𝑋𝑎 = ((coe1𝑐)‘𝑋))})
641, 6, 14, 63syl3anc 1374 . 2 (𝜑 → ((𝑆𝐼)‘𝑋) = {𝑎 ∣ ∃𝑐𝐼 (((deg1𝑅)‘𝑐) ≤ 𝑋𝑎 = ((coe1𝑐)‘𝑋))})
653, 27, 62, 31hbtlem1 43554 . . 3 ((𝑅 ∈ Ring ∧ 𝐼𝑈𝑌 ∈ ℕ0) → ((𝑆𝐼)‘𝑌) = {𝑎 ∣ ∃𝑏𝐼 (((deg1𝑅)‘𝑏) ≤ 𝑌𝑎 = ((coe1𝑏)‘𝑌))})
661, 6, 16, 65syl3anc 1374 . 2 (𝜑 → ((𝑆𝐼)‘𝑌) = {𝑎 ∣ ∃𝑏𝐼 (((deg1𝑅)‘𝑏) ≤ 𝑌𝑎 = ((coe1𝑏)‘𝑌))})
6761, 64, 663sstr4d 3978 1 (𝜑 → ((𝑆𝐼)‘𝑋) ⊆ ((𝑆𝐼)‘𝑌))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395   = wceq 1542  wcel 2114  {cab 2715  wrex 3062  wss 3890   class class class wbr 5086  cfv 6490  (class class class)co 7358   + caddc 11030  cle 11168  cmin 11365  0cn0 12402  Basecbs 17137  .rcmulr 17179  0gc0g 17360  Mndcmnd 18660  .gcmg 19001  mulGrpcmgp 20079  Ringcrg 20172  LIdealclidl 21163  var1cv1 22117  Poly1cpl1 22118  coe1cco1 22119  deg1cdg1 26000  ldgIdlSeqcldgis 43552
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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5300  ax-pr 5368  ax-un 7680  ax-cnex 11083  ax-resscn 11084  ax-1cn 11085  ax-icn 11086  ax-addcl 11087  ax-addrcl 11088  ax-mulcl 11089  ax-mulrcl 11090  ax-mulcom 11091  ax-addass 11092  ax-mulass 11093  ax-distr 11094  ax-i2m1 11095  ax-1ne0 11096  ax-1rid 11097  ax-rnegex 11098  ax-rrecex 11099  ax-cnre 11100  ax-pre-lttri 11101  ax-pre-lttrn 11102  ax-pre-ltadd 11103  ax-pre-mulgt0 11104  ax-pre-sup 11105  ax-addf 11106
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-tp 4573  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-iin 4937  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-se 5576  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-pred 6257  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-isom 6499  df-riota 7315  df-ov 7361  df-oprab 7362  df-mpo 7363  df-of 7622  df-ofr 7623  df-om 7809  df-1st 7933  df-2nd 7934  df-supp 8102  df-frecs 8222  df-wrecs 8253  df-recs 8302  df-rdg 8340  df-1o 8396  df-2o 8397  df-er 8634  df-map 8766  df-pm 8767  df-ixp 8837  df-en 8885  df-dom 8886  df-sdom 8887  df-fin 8888  df-fsupp 9266  df-sup 9346  df-oi 9416  df-card 9852  df-pnf 11169  df-mnf 11170  df-xr 11171  df-ltxr 11172  df-le 11173  df-sub 11367  df-neg 11368  df-nn 12147  df-2 12209  df-3 12210  df-4 12211  df-5 12212  df-6 12213  df-7 12214  df-8 12215  df-9 12216  df-n0 12403  df-z 12490  df-dec 12609  df-uz 12753  df-fz 13425  df-fzo 13572  df-seq 13926  df-hash 14255  df-struct 17075  df-sets 17092  df-slot 17110  df-ndx 17122  df-base 17138  df-ress 17159  df-plusg 17191  df-mulr 17192  df-starv 17193  df-sca 17194  df-vsca 17195  df-ip 17196  df-tset 17197  df-ple 17198  df-ds 17200  df-unif 17201  df-hom 17202  df-cco 17203  df-0g 17362  df-gsum 17363  df-prds 17368  df-pws 17370  df-mre 17506  df-mrc 17507  df-acs 17509  df-mgm 18566  df-sgrp 18645  df-mnd 18661  df-mhm 18709  df-submnd 18710  df-grp 18870  df-minusg 18871  df-sbg 18872  df-mulg 19002  df-subg 19057  df-ghm 19146  df-cntz 19250  df-cmn 19715  df-abl 19716  df-mgp 20080  df-rng 20092  df-ur 20121  df-ring 20174  df-cring 20175  df-subrng 20481  df-subrg 20505  df-lmod 20815  df-lss 20885  df-sra 21127  df-rgmod 21128  df-lidl 21165  df-cnfld 21312  df-psr 21866  df-mvr 21867  df-mpl 21868  df-opsr 21870  df-psr1 22121  df-vr1 22122  df-ply1 22123  df-coe1 22124  df-mdeg 26001  df-deg1 26002  df-ldgis 43553
This theorem is referenced by:  hbt  43561
  Copyright terms: Public domain W3C validator