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

Theorem ennnfonelemg 13238
Description: Lemma for ennnfone 13260. Closure for 𝐺. (Contributed by Jim Kingdon, 20-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(𝐺, 𝐽)
Assertion
Ref Expression
ennnfonelemg ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → (𝑓𝐺𝑗) ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω})
Distinct variable groups:   𝐴,𝑔,𝑥,𝑦   𝑔,𝐹,𝑥,𝑦   𝑥,𝑁   𝑓,𝑔,𝑥,𝑦   𝑔,𝑗,𝑥,𝑦   𝜑,𝑥,𝑦
Allowed substitution hints:   𝜑(𝑓,𝑔,𝑗,𝑘,𝑛)   𝐴(𝑓,𝑗,𝑘,𝑛)   𝐹(𝑓,𝑗,𝑘,𝑛)   𝐺(𝑥,𝑦,𝑓,𝑔,𝑗,𝑘,𝑛)   𝐻(𝑥,𝑦,𝑓,𝑔,𝑗,𝑘,𝑛)   𝐽(𝑥,𝑦,𝑓,𝑔,𝑗,𝑘,𝑛)   𝑁(𝑦,𝑓,𝑔,𝑗,𝑘,𝑛)

Proof of Theorem ennnfonelemg
StepHypRef Expression
1 ennnfonelemh.g . . . 4 𝐺 = (𝑥 ∈ (𝐴pm ω), 𝑦 ∈ ω ↦ if((𝐹𝑦) ∈ (𝐹𝑦), 𝑥, (𝑥 ∪ {⟨dom 𝑥, (𝐹𝑦)⟩})))
21a1i 9 . . 3 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → 𝐺 = (𝑥 ∈ (𝐴pm ω), 𝑦 ∈ ω ↦ if((𝐹𝑦) ∈ (𝐹𝑦), 𝑥, (𝑥 ∪ {⟨dom 𝑥, (𝐹𝑦)⟩}))))
3 simpr 110 . . . . . . 7 ((𝑥 = 𝑓𝑦 = 𝑗) → 𝑦 = 𝑗)
43fveq2d 5679 . . . . . 6 ((𝑥 = 𝑓𝑦 = 𝑗) → (𝐹𝑦) = (𝐹𝑗))
53imaeq2d 5106 . . . . . 6 ((𝑥 = 𝑓𝑦 = 𝑗) → (𝐹𝑦) = (𝐹𝑗))
64, 5eleq12d 2305 . . . . 5 ((𝑥 = 𝑓𝑦 = 𝑗) → ((𝐹𝑦) ∈ (𝐹𝑦) ↔ (𝐹𝑗) ∈ (𝐹𝑗)))
7 simpl 109 . . . . 5 ((𝑥 = 𝑓𝑦 = 𝑗) → 𝑥 = 𝑓)
87dmeqd 4963 . . . . . . . 8 ((𝑥 = 𝑓𝑦 = 𝑗) → dom 𝑥 = dom 𝑓)
98, 4opeq12d 3896 . . . . . . 7 ((𝑥 = 𝑓𝑦 = 𝑗) → ⟨dom 𝑥, (𝐹𝑦)⟩ = ⟨dom 𝑓, (𝐹𝑗)⟩)
109sneqd 3707 . . . . . 6 ((𝑥 = 𝑓𝑦 = 𝑗) → {⟨dom 𝑥, (𝐹𝑦)⟩} = {⟨dom 𝑓, (𝐹𝑗)⟩})
117, 10uneq12d 3378 . . . . 5 ((𝑥 = 𝑓𝑦 = 𝑗) → (𝑥 ∪ {⟨dom 𝑥, (𝐹𝑦)⟩}) = (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}))
126, 7, 11ifbieq12d 3653 . . . 4 ((𝑥 = 𝑓𝑦 = 𝑗) → if((𝐹𝑦) ∈ (𝐹𝑦), 𝑥, (𝑥 ∪ {⟨dom 𝑥, (𝐹𝑦)⟩})) = if((𝐹𝑗) ∈ (𝐹𝑗), 𝑓, (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩})))
1312adantl 277 . . 3 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ (𝑥 = 𝑓𝑦 = 𝑗)) → if((𝐹𝑦) ∈ (𝐹𝑦), 𝑥, (𝑥 ∪ {⟨dom 𝑥, (𝐹𝑦)⟩})) = if((𝐹𝑗) ∈ (𝐹𝑗), 𝑓, (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩})))
14 ssrab2 3327 . . . 4 {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ⊆ (𝐴pm ω)
15 simprl 531 . . . 4 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → 𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω})
1614, 15sselid 3240 . . 3 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → 𝑓 ∈ (𝐴pm ω))
17 simprr 533 . . 3 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → 𝑗 ∈ ω)
18 simplrl 537 . . . 4 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ (𝐹𝑗) ∈ (𝐹𝑗)) → 𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω})
19 dmeq 4961 . . . . . 6 (𝑔 = (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}) → dom 𝑔 = dom (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}))
2019eleq1d 2303 . . . . 5 (𝑔 = (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}) → (dom 𝑔 ∈ ω ↔ dom (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}) ∈ ω))
21 omex 4720 . . . . . . . 8 ω ∈ V
22 ennnfonelemh.f . . . . . . . 8 (𝜑𝐹:ω–onto𝐴)
23 focdmex 6317 . . . . . . . 8 (ω ∈ V → (𝐹:ω–onto𝐴𝐴 ∈ V))
2421, 22, 23mpsyl 65 . . . . . . 7 (𝜑𝐴 ∈ V)
2524ad2antrr 488 . . . . . 6 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → 𝐴 ∈ V)
2621a1i 9 . . . . . 6 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → ω ∈ V)
27 simplrl 537 . . . . . . . 8 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → 𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω})
28 elrabi 2973 . . . . . . . . . 10 (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} → 𝑓 ∈ (𝐴pm ω))
29 elpmi 6914 . . . . . . . . . 10 (𝑓 ∈ (𝐴pm ω) → (𝑓:dom 𝑓𝐴 ∧ dom 𝑓 ⊆ ω))
3028, 29syl 14 . . . . . . . . 9 (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} → (𝑓:dom 𝑓𝐴 ∧ dom 𝑓 ⊆ ω))
3130simpld 112 . . . . . . . 8 (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} → 𝑓:dom 𝑓𝐴)
3227, 31syl 14 . . . . . . 7 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → 𝑓:dom 𝑓𝐴)
33 dmeq 4961 . . . . . . . . . . 11 (𝑔 = 𝑓 → dom 𝑔 = dom 𝑓)
3433eleq1d 2303 . . . . . . . . . 10 (𝑔 = 𝑓 → (dom 𝑔 ∈ ω ↔ dom 𝑓 ∈ ω))
3534elrab 2976 . . . . . . . . 9 (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ↔ (𝑓 ∈ (𝐴pm ω) ∧ dom 𝑓 ∈ ω))
3635simprbi 275 . . . . . . . 8 (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} → dom 𝑓 ∈ ω)
3727, 36syl 14 . . . . . . 7 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → dom 𝑓 ∈ ω)
38 nnord 4739 . . . . . . . . 9 (dom 𝑓 ∈ ω → Ord dom 𝑓)
3937, 38syl 14 . . . . . . . 8 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → Ord dom 𝑓)
40 ordirr 4669 . . . . . . . 8 (Ord dom 𝑓 → ¬ dom 𝑓 ∈ dom 𝑓)
4139, 40syl 14 . . . . . . 7 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → ¬ dom 𝑓 ∈ dom 𝑓)
4222adantr 276 . . . . . . . . . 10 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → 𝐹:ω–onto𝐴)
43 fof 5595 . . . . . . . . . 10 (𝐹:ω–onto𝐴𝐹:ω⟶𝐴)
4442, 43syl 14 . . . . . . . . 9 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → 𝐹:ω⟶𝐴)
4544, 17ffvelcdmd 5818 . . . . . . . 8 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → (𝐹𝑗) ∈ 𝐴)
4645adantr 276 . . . . . . 7 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → (𝐹𝑗) ∈ 𝐴)
47 fsnunf 5889 . . . . . . 7 ((𝑓:dom 𝑓𝐴 ∧ (dom 𝑓 ∈ ω ∧ ¬ dom 𝑓 ∈ dom 𝑓) ∧ (𝐹𝑗) ∈ 𝐴) → (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}):(dom 𝑓 ∪ {dom 𝑓})⟶𝐴)
4832, 37, 41, 46, 47syl121anc 1279 . . . . . 6 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}):(dom 𝑓 ∪ {dom 𝑓})⟶𝐴)
49 df-suc 4497 . . . . . . . . 9 suc dom 𝑓 = (dom 𝑓 ∪ {dom 𝑓})
50 peano2 4722 . . . . . . . . 9 (dom 𝑓 ∈ ω → suc dom 𝑓 ∈ ω)
5149, 50eqeltrrid 2322 . . . . . . . 8 (dom 𝑓 ∈ ω → (dom 𝑓 ∪ {dom 𝑓}) ∈ ω)
5237, 51syl 14 . . . . . . 7 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → (dom 𝑓 ∪ {dom 𝑓}) ∈ ω)
53 elomssom 4732 . . . . . . 7 ((dom 𝑓 ∪ {dom 𝑓}) ∈ ω → (dom 𝑓 ∪ {dom 𝑓}) ⊆ ω)
5452, 53syl 14 . . . . . 6 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → (dom 𝑓 ∪ {dom 𝑓}) ⊆ ω)
55 elpm2r 6913 . . . . . 6 (((𝐴 ∈ V ∧ ω ∈ V) ∧ ((𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}):(dom 𝑓 ∪ {dom 𝑓})⟶𝐴 ∧ (dom 𝑓 ∪ {dom 𝑓}) ⊆ ω)) → (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}) ∈ (𝐴pm ω))
5625, 26, 48, 54, 55syl22anc 1275 . . . . 5 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}) ∈ (𝐴pm ω))
5748fdmd 5520 . . . . . 6 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → dom (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}) = (dom 𝑓 ∪ {dom 𝑓}))
5857, 52eqeltrd 2311 . . . . 5 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → dom (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}) ∈ ω)
5920, 56, 58elrabd 2978 . . . 4 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}) ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω})
60 ennnfonelemh.dceq . . . . . 6 (𝜑 → ∀𝑥𝐴𝑦𝐴 DECID 𝑥 = 𝑦)
6160adantr 276 . . . . 5 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → ∀𝑥𝐴𝑦𝐴 DECID 𝑥 = 𝑦)
6261, 42, 17ennnfonelemdc 13234 . . . 4 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → DECID (𝐹𝑗) ∈ (𝐹𝑗))
6318, 59, 62ifcldadc 3656 . . 3 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → if((𝐹𝑗) ∈ (𝐹𝑗), 𝑓, (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩})) ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω})
642, 13, 16, 17, 63ovmpod 6189 . 2 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → (𝑓𝐺𝑗) = if((𝐹𝑗) ∈ (𝐹𝑗), 𝑓, (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩})))
6564, 63eqeltrd 2311 1 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → (𝑓𝐺𝑗) ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω})
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 104  DECID wdc 842   = wceq 1398  wcel 2205  wne 2414  wral 2522  wrex 2523  {crab 2526  Vcvv 2815  cun 3212  wss 3214  c0 3512  ifcif 3624  {csn 3694  cop 3697  cmpt 4176  Ord word 4488  suc csuc 4491  ωcom 4717  ccnv 4753  dom cdm 4754  cima 4757  wf 5353  ontowfo 5355  cfv 5357  (class class class)co 6058  cmpo 6060  freccfrec 6634  pm cpm 6896  0cc0 8143  1c1 8144   + caddc 8146  cmin 8460  0cn0 9513  cz 9594  seqcseq 10833
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 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2207  ax-14 2208  ax-ext 2216  ax-coll 4230  ax-sep 4233  ax-nul 4241  ax-pow 4292  ax-pr 4327  ax-un 4559  ax-setind 4664  ax-iinf 4715
This theorem depends on definitions:  df-bi 117  df-dc 843  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2085  df-mo 2086  df-clab 2221  df-cleq 2227  df-clel 2230  df-nfc 2375  df-ne 2415  df-ral 2527  df-rex 2528  df-reu 2529  df-rab 2531  df-v 2817  df-sbc 3046  df-csb 3142  df-dif 3216  df-un 3218  df-in 3220  df-ss 3227  df-nul 3513  df-if 3625  df-pw 3676  df-sn 3700  df-pr 3701  df-op 3703  df-uni 3920  df-int 3955  df-iun 3998  df-br 4115  df-opab 4177  df-mpt 4178  df-tr 4214  df-id 4419  df-iord 4492  df-on 4494  df-suc 4497  df-iom 4718  df-xp 4760  df-rel 4761  df-cnv 4762  df-co 4763  df-dm 4764  df-rn 4765  df-res 4766  df-ima 4767  df-iota 5317  df-fun 5359  df-fn 5360  df-f 5361  df-f1 5362  df-fo 5363  df-f1o 5364  df-fv 5365  df-ov 6061  df-oprab 6062  df-mpo 6063  df-pm 6898
This theorem is referenced by:  ennnfonelemh  13239  ennnfonelem0  13240  ennnfonelemp1  13241  ennnfonelemom  13243
  Copyright terms: Public domain W3C validator