ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  ennnfoneleminc GIF version

Theorem ennnfoneleminc 12897
Description: Lemma for ennnfone 12911. We only add elements to 𝐻 as the index increases. (Contributed by Jim Kingdon, 21-Jul-2023.)
Hypotheses
Ref Expression
ennnfonelemh.dceq (𝜑 → ∀𝑥𝐴𝑦𝐴 DECID 𝑥 = 𝑦)
ennnfonelemh.f (𝜑𝐹:ω–onto𝐴)
ennnfonelemh.ne (𝜑 → ∀𝑛 ∈ ω ∃𝑘 ∈ ω ∀𝑗 ∈ suc 𝑛(𝐹𝑘) ≠ (𝐹𝑗))
ennnfonelemh.g 𝐺 = (𝑥 ∈ (𝐴pm ω), 𝑦 ∈ ω ↦ if((𝐹𝑦) ∈ (𝐹𝑦), 𝑥, (𝑥 ∪ {⟨dom 𝑥, (𝐹𝑦)⟩})))
ennnfonelemh.n 𝑁 = frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0)
ennnfonelemh.j 𝐽 = (𝑥 ∈ ℕ0 ↦ if(𝑥 = 0, ∅, (𝑁‘(𝑥 − 1))))
ennnfonelemh.h 𝐻 = seq0(𝐺, 𝐽)
ennnfoneleminc.p (𝜑𝑃 ∈ ℕ0)
ennnfoneleminc.q (𝜑𝑄 ∈ ℕ0)
ennnfoneleminc.le (𝜑𝑃𝑄)
Assertion
Ref Expression
ennnfoneleminc (𝜑 → (𝐻𝑃) ⊆ (𝐻𝑄))
Distinct variable groups:   𝑥,𝐴,𝑦   𝑛,𝐹,𝑗,𝑘   𝑥,𝐹,𝑦   𝑥,𝐻,𝑦   𝑥,𝑁,𝑦   𝑥,𝑃,𝑦   𝜑,𝑥,𝑦
Allowed substitution hints:   𝜑(𝑗,𝑘,𝑛)   𝐴(𝑗,𝑘,𝑛)   𝑃(𝑗,𝑘,𝑛)   𝑄(𝑥,𝑦,𝑗,𝑘,𝑛)   𝐺(𝑥,𝑦,𝑗,𝑘,𝑛)   𝐻(𝑗,𝑘,𝑛)   𝐽(𝑥,𝑦,𝑗,𝑘,𝑛)   𝑁(𝑗,𝑘,𝑛)

Proof of Theorem ennnfoneleminc
Dummy variables 𝑐 𝑎 𝑏 𝑟 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ennnfoneleminc.p . . . 4 (𝜑𝑃 ∈ ℕ0)
21nn0zd 9528 . . 3 (𝜑𝑃 ∈ ℤ)
3 ennnfoneleminc.q . . . 4 (𝜑𝑄 ∈ ℕ0)
43nn0zd 9528 . . 3 (𝜑𝑄 ∈ ℤ)
5 ennnfoneleminc.le . . 3 (𝜑𝑃𝑄)
62, 4, 53jca 1180 . 2 (𝜑 → (𝑃 ∈ ℤ ∧ 𝑄 ∈ ℤ ∧ 𝑃𝑄))
7 fveq2 5599 . . . . 5 (𝑤 = 𝑃 → (𝐻𝑤) = (𝐻𝑃))
87sseq2d 3231 . . . 4 (𝑤 = 𝑃 → ((𝐻𝑃) ⊆ (𝐻𝑤) ↔ (𝐻𝑃) ⊆ (𝐻𝑃)))
98imbi2d 230 . . 3 (𝑤 = 𝑃 → ((𝜑 → (𝐻𝑃) ⊆ (𝐻𝑤)) ↔ (𝜑 → (𝐻𝑃) ⊆ (𝐻𝑃))))
10 fveq2 5599 . . . . 5 (𝑤 = 𝑟 → (𝐻𝑤) = (𝐻𝑟))
1110sseq2d 3231 . . . 4 (𝑤 = 𝑟 → ((𝐻𝑃) ⊆ (𝐻𝑤) ↔ (𝐻𝑃) ⊆ (𝐻𝑟)))
1211imbi2d 230 . . 3 (𝑤 = 𝑟 → ((𝜑 → (𝐻𝑃) ⊆ (𝐻𝑤)) ↔ (𝜑 → (𝐻𝑃) ⊆ (𝐻𝑟))))
13 fveq2 5599 . . . . 5 (𝑤 = (𝑟 + 1) → (𝐻𝑤) = (𝐻‘(𝑟 + 1)))
1413sseq2d 3231 . . . 4 (𝑤 = (𝑟 + 1) → ((𝐻𝑃) ⊆ (𝐻𝑤) ↔ (𝐻𝑃) ⊆ (𝐻‘(𝑟 + 1))))
1514imbi2d 230 . . 3 (𝑤 = (𝑟 + 1) → ((𝜑 → (𝐻𝑃) ⊆ (𝐻𝑤)) ↔ (𝜑 → (𝐻𝑃) ⊆ (𝐻‘(𝑟 + 1)))))
16 fveq2 5599 . . . . 5 (𝑤 = 𝑄 → (𝐻𝑤) = (𝐻𝑄))
1716sseq2d 3231 . . . 4 (𝑤 = 𝑄 → ((𝐻𝑃) ⊆ (𝐻𝑤) ↔ (𝐻𝑃) ⊆ (𝐻𝑄)))
1817imbi2d 230 . . 3 (𝑤 = 𝑄 → ((𝜑 → (𝐻𝑃) ⊆ (𝐻𝑤)) ↔ (𝜑 → (𝐻𝑃) ⊆ (𝐻𝑄))))
19 ssidd 3222 . . . 4 (𝑃 ∈ ℤ → (𝐻𝑃) ⊆ (𝐻𝑃))
2019a1d 22 . . 3 (𝑃 ∈ ℤ → (𝜑 → (𝐻𝑃) ⊆ (𝐻𝑃)))
21 simpr 110 . . . . . . 7 (((𝜑 ∧ (𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟)) ∧ (𝐻𝑃) ⊆ (𝐻𝑟)) → (𝐻𝑃) ⊆ (𝐻𝑟))
22 ennnfonelemh.dceq . . . . . . . . 9 (𝜑 → ∀𝑥𝐴𝑦𝐴 DECID 𝑥 = 𝑦)
2322ad2antrr 488 . . . . . . . 8 (((𝜑 ∧ (𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟)) ∧ (𝐻𝑃) ⊆ (𝐻𝑟)) → ∀𝑥𝐴𝑦𝐴 DECID 𝑥 = 𝑦)
24 ennnfonelemh.f . . . . . . . . 9 (𝜑𝐹:ω–onto𝐴)
2524ad2antrr 488 . . . . . . . 8 (((𝜑 ∧ (𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟)) ∧ (𝐻𝑃) ⊆ (𝐻𝑟)) → 𝐹:ω–onto𝐴)
26 ennnfonelemh.ne . . . . . . . . . 10 (𝜑 → ∀𝑛 ∈ ω ∃𝑘 ∈ ω ∀𝑗 ∈ suc 𝑛(𝐹𝑘) ≠ (𝐹𝑗))
2726ad2antrr 488 . . . . . . . . 9 (((𝜑 ∧ (𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟)) ∧ (𝐻𝑃) ⊆ (𝐻𝑟)) → ∀𝑛 ∈ ω ∃𝑘 ∈ ω ∀𝑗 ∈ suc 𝑛(𝐹𝑘) ≠ (𝐹𝑗))
28 fveq2 5599 . . . . . . . . . . . . . . 15 (𝑗 = 𝑐 → (𝐹𝑗) = (𝐹𝑐))
2928neeq2d 2397 . . . . . . . . . . . . . 14 (𝑗 = 𝑐 → ((𝐹𝑘) ≠ (𝐹𝑗) ↔ (𝐹𝑘) ≠ (𝐹𝑐)))
3029cbvralv 2742 . . . . . . . . . . . . 13 (∀𝑗 ∈ suc 𝑛(𝐹𝑘) ≠ (𝐹𝑗) ↔ ∀𝑐 ∈ suc 𝑛(𝐹𝑘) ≠ (𝐹𝑐))
3130rexbii 2515 . . . . . . . . . . . 12 (∃𝑘 ∈ ω ∀𝑗 ∈ suc 𝑛(𝐹𝑘) ≠ (𝐹𝑗) ↔ ∃𝑘 ∈ ω ∀𝑐 ∈ suc 𝑛(𝐹𝑘) ≠ (𝐹𝑐))
32 fveq2 5599 . . . . . . . . . . . . . . 15 (𝑘 = 𝑏 → (𝐹𝑘) = (𝐹𝑏))
3332neeq1d 2396 . . . . . . . . . . . . . 14 (𝑘 = 𝑏 → ((𝐹𝑘) ≠ (𝐹𝑐) ↔ (𝐹𝑏) ≠ (𝐹𝑐)))
3433ralbidv 2508 . . . . . . . . . . . . 13 (𝑘 = 𝑏 → (∀𝑐 ∈ suc 𝑛(𝐹𝑘) ≠ (𝐹𝑐) ↔ ∀𝑐 ∈ suc 𝑛(𝐹𝑏) ≠ (𝐹𝑐)))
3534cbvrexv 2743 . . . . . . . . . . . 12 (∃𝑘 ∈ ω ∀𝑐 ∈ suc 𝑛(𝐹𝑘) ≠ (𝐹𝑐) ↔ ∃𝑏 ∈ ω ∀𝑐 ∈ suc 𝑛(𝐹𝑏) ≠ (𝐹𝑐))
3631, 35bitri 184 . . . . . . . . . . 11 (∃𝑘 ∈ ω ∀𝑗 ∈ suc 𝑛(𝐹𝑘) ≠ (𝐹𝑗) ↔ ∃𝑏 ∈ ω ∀𝑐 ∈ suc 𝑛(𝐹𝑏) ≠ (𝐹𝑐))
3736ralbii 2514 . . . . . . . . . 10 (∀𝑛 ∈ ω ∃𝑘 ∈ ω ∀𝑗 ∈ suc 𝑛(𝐹𝑘) ≠ (𝐹𝑗) ↔ ∀𝑛 ∈ ω ∃𝑏 ∈ ω ∀𝑐 ∈ suc 𝑛(𝐹𝑏) ≠ (𝐹𝑐))
38 suceq 4467 . . . . . . . . . . . . 13 (𝑛 = 𝑎 → suc 𝑛 = suc 𝑎)
3938raleqdv 2711 . . . . . . . . . . . 12 (𝑛 = 𝑎 → (∀𝑐 ∈ suc 𝑛(𝐹𝑏) ≠ (𝐹𝑐) ↔ ∀𝑐 ∈ suc 𝑎(𝐹𝑏) ≠ (𝐹𝑐)))
4039rexbidv 2509 . . . . . . . . . . 11 (𝑛 = 𝑎 → (∃𝑏 ∈ ω ∀𝑐 ∈ suc 𝑛(𝐹𝑏) ≠ (𝐹𝑐) ↔ ∃𝑏 ∈ ω ∀𝑐 ∈ suc 𝑎(𝐹𝑏) ≠ (𝐹𝑐)))
4140cbvralv 2742 . . . . . . . . . 10 (∀𝑛 ∈ ω ∃𝑏 ∈ ω ∀𝑐 ∈ suc 𝑛(𝐹𝑏) ≠ (𝐹𝑐) ↔ ∀𝑎 ∈ ω ∃𝑏 ∈ ω ∀𝑐 ∈ suc 𝑎(𝐹𝑏) ≠ (𝐹𝑐))
4237, 41bitri 184 . . . . . . . . 9 (∀𝑛 ∈ ω ∃𝑘 ∈ ω ∀𝑗 ∈ suc 𝑛(𝐹𝑘) ≠ (𝐹𝑗) ↔ ∀𝑎 ∈ ω ∃𝑏 ∈ ω ∀𝑐 ∈ suc 𝑎(𝐹𝑏) ≠ (𝐹𝑐))
4327, 42sylib 122 . . . . . . . 8 (((𝜑 ∧ (𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟)) ∧ (𝐻𝑃) ⊆ (𝐻𝑟)) → ∀𝑎 ∈ ω ∃𝑏 ∈ ω ∀𝑐 ∈ suc 𝑎(𝐹𝑏) ≠ (𝐹𝑐))
44 ennnfonelemh.g . . . . . . . 8 𝐺 = (𝑥 ∈ (𝐴pm ω), 𝑦 ∈ ω ↦ if((𝐹𝑦) ∈ (𝐹𝑦), 𝑥, (𝑥 ∪ {⟨dom 𝑥, (𝐹𝑦)⟩})))
45 ennnfonelemh.n . . . . . . . 8 𝑁 = frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0)
46 ennnfonelemh.j . . . . . . . 8 𝐽 = (𝑥 ∈ ℕ0 ↦ if(𝑥 = 0, ∅, (𝑁‘(𝑥 − 1))))
47 ennnfonelemh.h . . . . . . . 8 𝐻 = seq0(𝐺, 𝐽)
48 simplr2 1043 . . . . . . . . 9 (((𝜑 ∧ (𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟)) ∧ (𝐻𝑃) ⊆ (𝐻𝑟)) → 𝑟 ∈ ℤ)
49 0red 8108 . . . . . . . . . 10 (((𝜑 ∧ (𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟)) ∧ (𝐻𝑃) ⊆ (𝐻𝑟)) → 0 ∈ ℝ)
501nn0red 9384 . . . . . . . . . . 11 (𝜑𝑃 ∈ ℝ)
5150ad2antrr 488 . . . . . . . . . 10 (((𝜑 ∧ (𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟)) ∧ (𝐻𝑃) ⊆ (𝐻𝑟)) → 𝑃 ∈ ℝ)
5248zred 9530 . . . . . . . . . 10 (((𝜑 ∧ (𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟)) ∧ (𝐻𝑃) ⊆ (𝐻𝑟)) → 𝑟 ∈ ℝ)
531nn0ge0d 9386 . . . . . . . . . . 11 (𝜑 → 0 ≤ 𝑃)
5453ad2antrr 488 . . . . . . . . . 10 (((𝜑 ∧ (𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟)) ∧ (𝐻𝑃) ⊆ (𝐻𝑟)) → 0 ≤ 𝑃)
55 simplr3 1044 . . . . . . . . . 10 (((𝜑 ∧ (𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟)) ∧ (𝐻𝑃) ⊆ (𝐻𝑟)) → 𝑃𝑟)
5649, 51, 52, 54, 55letrd 8231 . . . . . . . . 9 (((𝜑 ∧ (𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟)) ∧ (𝐻𝑃) ⊆ (𝐻𝑟)) → 0 ≤ 𝑟)
57 elnn0z 9420 . . . . . . . . 9 (𝑟 ∈ ℕ0 ↔ (𝑟 ∈ ℤ ∧ 0 ≤ 𝑟))
5848, 56, 57sylanbrc 417 . . . . . . . 8 (((𝜑 ∧ (𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟)) ∧ (𝐻𝑃) ⊆ (𝐻𝑟)) → 𝑟 ∈ ℕ0)
5923, 25, 43, 44, 45, 46, 47, 58ennnfonelemss 12896 . . . . . . 7 (((𝜑 ∧ (𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟)) ∧ (𝐻𝑃) ⊆ (𝐻𝑟)) → (𝐻𝑟) ⊆ (𝐻‘(𝑟 + 1)))
6021, 59sstrd 3211 . . . . . 6 (((𝜑 ∧ (𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟)) ∧ (𝐻𝑃) ⊆ (𝐻𝑟)) → (𝐻𝑃) ⊆ (𝐻‘(𝑟 + 1)))
6160ex 115 . . . . 5 ((𝜑 ∧ (𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟)) → ((𝐻𝑃) ⊆ (𝐻𝑟) → (𝐻𝑃) ⊆ (𝐻‘(𝑟 + 1))))
6261expcom 116 . . . 4 ((𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟) → (𝜑 → ((𝐻𝑃) ⊆ (𝐻𝑟) → (𝐻𝑃) ⊆ (𝐻‘(𝑟 + 1)))))
6362a2d 26 . . 3 ((𝑃 ∈ ℤ ∧ 𝑟 ∈ ℤ ∧ 𝑃𝑟) → ((𝜑 → (𝐻𝑃) ⊆ (𝐻𝑟)) → (𝜑 → (𝐻𝑃) ⊆ (𝐻‘(𝑟 + 1)))))
649, 12, 15, 18, 20, 63uzind 9519 . 2 ((𝑃 ∈ ℤ ∧ 𝑄 ∈ ℤ ∧ 𝑃𝑄) → (𝜑 → (𝐻𝑃) ⊆ (𝐻𝑄)))
656, 64mpcom 36 1 (𝜑 → (𝐻𝑃) ⊆ (𝐻𝑄))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104  DECID wdc 836  w3a 981   = wceq 1373  wcel 2178  wne 2378  wral 2486  wrex 2487  cun 3172  wss 3174  c0 3468  ifcif 3579  {csn 3643  cop 3646   class class class wbr 4059  cmpt 4121  suc csuc 4430  ωcom 4656  ccnv 4692  dom cdm 4693  cima 4696  ontowfo 5288  cfv 5290  (class class class)co 5967  cmpo 5969  freccfrec 6499  pm cpm 6759  cr 7959  0cc0 7960  1c1 7961   + caddc 7963  cle 8143  cmin 8278  0cn0 9330  cz 9407  seqcseq 10629
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 711  ax-5 1471  ax-7 1472  ax-gen 1473  ax-ie1 1517  ax-ie2 1518  ax-8 1528  ax-10 1529  ax-11 1530  ax-i12 1531  ax-bndl 1533  ax-4 1534  ax-17 1550  ax-i9 1554  ax-ial 1558  ax-i5r 1559  ax-13 2180  ax-14 2181  ax-ext 2189  ax-coll 4175  ax-sep 4178  ax-nul 4186  ax-pow 4234  ax-pr 4269  ax-un 4498  ax-setind 4603  ax-iinf 4654  ax-cnex 8051  ax-resscn 8052  ax-1cn 8053  ax-1re 8054  ax-icn 8055  ax-addcl 8056  ax-addrcl 8057  ax-mulcl 8058  ax-addcom 8060  ax-addass 8062  ax-distr 8064  ax-i2m1 8065  ax-0lt1 8066  ax-0id 8068  ax-rnegex 8069  ax-cnre 8071  ax-pre-ltirr 8072  ax-pre-ltwlin 8073  ax-pre-lttrn 8074  ax-pre-ltadd 8076
This theorem depends on definitions:  df-bi 117  df-dc 837  df-3or 982  df-3an 983  df-tru 1376  df-fal 1379  df-nf 1485  df-sb 1787  df-eu 2058  df-mo 2059  df-clab 2194  df-cleq 2200  df-clel 2203  df-nfc 2339  df-ne 2379  df-nel 2474  df-ral 2491  df-rex 2492  df-reu 2493  df-rab 2495  df-v 2778  df-sbc 3006  df-csb 3102  df-dif 3176  df-un 3178  df-in 3180  df-ss 3187  df-nul 3469  df-if 3580  df-pw 3628  df-sn 3649  df-pr 3650  df-op 3652  df-uni 3865  df-int 3900  df-iun 3943  df-br 4060  df-opab 4122  df-mpt 4123  df-tr 4159  df-id 4358  df-iord 4431  df-on 4433  df-ilim 4434  df-suc 4436  df-iom 4657  df-xp 4699  df-rel 4700  df-cnv 4701  df-co 4702  df-dm 4703  df-rn 4704  df-res 4705  df-ima 4706  df-iota 5251  df-fun 5292  df-fn 5293  df-f 5294  df-f1 5295  df-fo 5296  df-f1o 5297  df-fv 5298  df-riota 5922  df-ov 5970  df-oprab 5971  df-mpo 5972  df-1st 6249  df-2nd 6250  df-recs 6414  df-frec 6500  df-pm 6761  df-pnf 8144  df-mnf 8145  df-xr 8146  df-ltxr 8147  df-le 8148  df-sub 8280  df-neg 8281  df-inn 9072  df-n0 9331  df-z 9408  df-uz 9684  df-seqfrec 10630
This theorem is referenced by:  ennnfonelemex  12900  ennnfonelemrnh  12902
  Copyright terms: Public domain W3C validator