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

Theorem ennnfonelemg 13104
Description: Lemma for ennnfone 13126. 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 5652 . . . . . 6 ((𝑥 = 𝑓𝑦 = 𝑗) → (𝐹𝑦) = (𝐹𝑗))
53imaeq2d 5082 . . . . . 6 ((𝑥 = 𝑓𝑦 = 𝑗) → (𝐹𝑦) = (𝐹𝑗))
64, 5eleq12d 2302 . . . . 5 ((𝑥 = 𝑓𝑦 = 𝑗) → ((𝐹𝑦) ∈ (𝐹𝑦) ↔ (𝐹𝑗) ∈ (𝐹𝑗)))
7 simpl 109 . . . . 5 ((𝑥 = 𝑓𝑦 = 𝑗) → 𝑥 = 𝑓)
87dmeqd 4939 . . . . . . . 8 ((𝑥 = 𝑓𝑦 = 𝑗) → dom 𝑥 = dom 𝑓)
98, 4opeq12d 3875 . . . . . . 7 ((𝑥 = 𝑓𝑦 = 𝑗) → ⟨dom 𝑥, (𝐹𝑦)⟩ = ⟨dom 𝑓, (𝐹𝑗)⟩)
109sneqd 3686 . . . . . 6 ((𝑥 = 𝑓𝑦 = 𝑗) → {⟨dom 𝑥, (𝐹𝑦)⟩} = {⟨dom 𝑓, (𝐹𝑗)⟩})
117, 10uneq12d 3364 . . . . 5 ((𝑥 = 𝑓𝑦 = 𝑗) → (𝑥 ∪ {⟨dom 𝑥, (𝐹𝑦)⟩}) = (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}))
126, 7, 11ifbieq12d 3636 . . . 4 ((𝑥 = 𝑓𝑦 = 𝑗) → if((𝐹𝑦) ∈ (𝐹𝑦), 𝑥, (𝑥 ∪ {⟨dom 𝑥, (𝐹𝑦)⟩})) = if((𝐹𝑗) ∈ (𝐹𝑗), 𝑓, (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩})))
1312adantl 277 . . 3 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ (𝑥 = 𝑓𝑦 = 𝑗)) → if((𝐹𝑦) ∈ (𝐹𝑦), 𝑥, (𝑥 ∪ {⟨dom 𝑥, (𝐹𝑦)⟩})) = if((𝐹𝑗) ∈ (𝐹𝑗), 𝑓, (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩})))
14 ssrab2 3313 . . . 4 {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ⊆ (𝐴pm ω)
15 simprl 531 . . . 4 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → 𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω})
1614, 15sselid 3226 . . 3 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → 𝑓 ∈ (𝐴pm ω))
17 simprr 533 . . 3 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → 𝑗 ∈ ω)
18 simplrl 537 . . . 4 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ (𝐹𝑗) ∈ (𝐹𝑗)) → 𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω})
19 dmeq 4937 . . . . . 6 (𝑔 = (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}) → dom 𝑔 = dom (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}))
2019eleq1d 2300 . . . . 5 (𝑔 = (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}) → (dom 𝑔 ∈ ω ↔ dom (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}) ∈ ω))
21 omex 4697 . . . . . . . 8 ω ∈ V
22 ennnfonelemh.f . . . . . . . 8 (𝜑𝐹:ω–onto𝐴)
23 focdmex 6286 . . . . . . . 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 2960 . . . . . . . . . 10 (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} → 𝑓 ∈ (𝐴pm ω))
29 elpmi 6879 . . . . . . . . . 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 4937 . . . . . . . . . . 11 (𝑔 = 𝑓 → dom 𝑔 = dom 𝑓)
3433eleq1d 2300 . . . . . . . . . 10 (𝑔 = 𝑓 → (dom 𝑔 ∈ ω ↔ dom 𝑓 ∈ ω))
3534elrab 2963 . . . . . . . . 9 (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ↔ (𝑓 ∈ (𝐴pm ω) ∧ dom 𝑓 ∈ ω))
3635simprbi 275 . . . . . . . 8 (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} → dom 𝑓 ∈ ω)
3727, 36syl 14 . . . . . . 7 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → dom 𝑓 ∈ ω)
38 nnord 4716 . . . . . . . . 9 (dom 𝑓 ∈ ω → Ord dom 𝑓)
3937, 38syl 14 . . . . . . . 8 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → Ord dom 𝑓)
40 ordirr 4646 . . . . . . . 8 (Ord dom 𝑓 → ¬ dom 𝑓 ∈ dom 𝑓)
4139, 40syl 14 . . . . . . 7 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → ¬ dom 𝑓 ∈ dom 𝑓)
4222adantr 276 . . . . . . . . . 10 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → 𝐹:ω–onto𝐴)
43 fof 5568 . . . . . . . . . 10 (𝐹:ω–onto𝐴𝐹:ω⟶𝐴)
4442, 43syl 14 . . . . . . . . 9 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → 𝐹:ω⟶𝐴)
4544, 17ffvelcdmd 5791 . . . . . . . 8 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → (𝐹𝑗) ∈ 𝐴)
4645adantr 276 . . . . . . 7 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → (𝐹𝑗) ∈ 𝐴)
47 fsnunf 5862 . . . . . . 7 ((𝑓:dom 𝑓𝐴 ∧ (dom 𝑓 ∈ ω ∧ ¬ dom 𝑓 ∈ dom 𝑓) ∧ (𝐹𝑗) ∈ 𝐴) → (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}):(dom 𝑓 ∪ {dom 𝑓})⟶𝐴)
4832, 37, 41, 46, 47syl121anc 1279 . . . . . 6 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}):(dom 𝑓 ∪ {dom 𝑓})⟶𝐴)
49 df-suc 4474 . . . . . . . . 9 suc dom 𝑓 = (dom 𝑓 ∪ {dom 𝑓})
50 peano2 4699 . . . . . . . . 9 (dom 𝑓 ∈ ω → suc dom 𝑓 ∈ ω)
5149, 50eqeltrrid 2319 . . . . . . . 8 (dom 𝑓 ∈ ω → (dom 𝑓 ∪ {dom 𝑓}) ∈ ω)
5237, 51syl 14 . . . . . . 7 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → (dom 𝑓 ∪ {dom 𝑓}) ∈ ω)
53 elomssom 4709 . . . . . . 7 ((dom 𝑓 ∪ {dom 𝑓}) ∈ ω → (dom 𝑓 ∪ {dom 𝑓}) ⊆ ω)
5452, 53syl 14 . . . . . 6 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → (dom 𝑓 ∪ {dom 𝑓}) ⊆ ω)
55 elpm2r 6878 . . . . . 6 (((𝐴 ∈ V ∧ ω ∈ V) ∧ ((𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}):(dom 𝑓 ∪ {dom 𝑓})⟶𝐴 ∧ (dom 𝑓 ∪ {dom 𝑓}) ⊆ ω)) → (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}) ∈ (𝐴pm ω))
5625, 26, 48, 54, 55syl22anc 1275 . . . . 5 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}) ∈ (𝐴pm ω))
5748fdmd 5496 . . . . . 6 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → dom (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}) = (dom 𝑓 ∪ {dom 𝑓}))
5857, 52eqeltrd 2308 . . . . 5 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → dom (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}) ∈ ω)
5920, 56, 58elrabd 2965 . . . 4 (((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) ∧ ¬ (𝐹𝑗) ∈ (𝐹𝑗)) → (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩}) ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω})
60 ennnfonelemh.dceq . . . . . 6 (𝜑 → ∀𝑥𝐴𝑦𝐴 DECID 𝑥 = 𝑦)
6160adantr 276 . . . . 5 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → ∀𝑥𝐴𝑦𝐴 DECID 𝑥 = 𝑦)
6261, 42, 17ennnfonelemdc 13100 . . . 4 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → DECID (𝐹𝑗) ∈ (𝐹𝑗))
6318, 59, 62ifcldadc 3639 . . 3 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → if((𝐹𝑗) ∈ (𝐹𝑗), 𝑓, (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩})) ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω})
642, 13, 16, 17, 63ovmpod 6159 . 2 ((𝜑 ∧ (𝑓 ∈ {𝑔 ∈ (𝐴pm ω) ∣ dom 𝑔 ∈ ω} ∧ 𝑗 ∈ ω)) → (𝑓𝐺𝑗) = if((𝐹𝑗) ∈ (𝐹𝑗), 𝑓, (𝑓 ∪ {⟨dom 𝑓, (𝐹𝑗)⟩})))
6564, 63eqeltrd 2308 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 2202  wne 2403  wral 2511  wrex 2512  {crab 2515  Vcvv 2803  cun 3199  wss 3201  c0 3496  ifcif 3607  {csn 3673  cop 3676  cmpt 4155  Ord word 4465  suc csuc 4468  ωcom 4694  ccnv 4730  dom cdm 4731  cima 4734  wf 5329  ontowfo 5331  cfv 5333  (class class class)co 6028  cmpo 6030  freccfrec 6599  pm cpm 6861  0cc0 8092  1c1 8093   + caddc 8095  cmin 8409  0cn0 9461  cz 9540  seqcseq 10772
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 2204  ax-14 2205  ax-ext 2213  ax-coll 4209  ax-sep 4212  ax-nul 4220  ax-pow 4270  ax-pr 4305  ax-un 4536  ax-setind 4641  ax-iinf 4692
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 1811  df-eu 2082  df-mo 2083  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2364  df-ne 2404  df-ral 2516  df-rex 2517  df-reu 2518  df-rab 2520  df-v 2805  df-sbc 3033  df-csb 3129  df-dif 3203  df-un 3205  df-in 3207  df-ss 3214  df-nul 3497  df-if 3608  df-pw 3658  df-sn 3679  df-pr 3680  df-op 3682  df-uni 3899  df-int 3934  df-iun 3977  df-br 4094  df-opab 4156  df-mpt 4157  df-tr 4193  df-id 4396  df-iord 4469  df-on 4471  df-suc 4474  df-iom 4695  df-xp 4737  df-rel 4738  df-cnv 4739  df-co 4740  df-dm 4741  df-rn 4742  df-res 4743  df-ima 4744  df-iota 5293  df-fun 5335  df-fn 5336  df-f 5337  df-f1 5338  df-fo 5339  df-f1o 5340  df-fv 5341  df-ov 6031  df-oprab 6032  df-mpo 6033  df-pm 6863
This theorem is referenced by:  ennnfonelemh  13105  ennnfonelem0  13106  ennnfonelemp1  13107  ennnfonelemom  13109
  Copyright terms: Public domain W3C validator