ctiunctlemf - Intuitionistic Logic Explorer

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

Theorem ctiunctlemf 12371

Description: Lemma for ctiunct 12373. (Contributed by Jim Kingdon, 28-Oct-2023.)

**Hypotheses**
Ref	Expression
ctiunct.som	⊢ (𝜑 → 𝑆 ⊆ ω)
ctiunct.sdc	⊢ (𝜑 → ∀𝑛 ∈ ω DECID 𝑛 ∈ 𝑆)
ctiunct.f	⊢ (𝜑 → 𝐹:𝑆–onto→𝐴)
ctiunct.tom	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝑇 ⊆ ω)
ctiunct.tdc	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∀𝑛 ∈ ω DECID 𝑛 ∈ 𝑇)
ctiunct.g	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐺:𝑇–onto→𝐵)
ctiunct.j	⊢ (𝜑 → 𝐽:ω–1-1-onto→(ω × ω))
ctiunct.u	⊢ 𝑈 = {𝑧 ∈ ω ∣ ((1^st ‘(𝐽‘𝑧)) ∈ 𝑆 ∧ (2^nd ‘(𝐽‘𝑧)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑧))) / 𝑥⦌𝑇)}
ctiunct.h	⊢ 𝐻 = (𝑛 ∈ 𝑈 ↦ (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))))

**Assertion**
Ref	Expression
ctiunctlemf	⊢ (𝜑 → 𝐻:𝑈⟶∪ 𝑥 ∈ 𝐴 𝐵)

Distinct variable groups: 𝐴,𝑛,𝑥 𝐵,𝑛 𝑥,𝐹,𝑧 𝑥,𝐽,𝑧 𝑧,𝑆 𝑧,𝑇 𝑈,𝑛 𝜑,𝑛,𝑥 𝑥,𝑧,𝑛 Allowed substitution hints: 𝜑(𝑧) 𝐴(𝑧) 𝐵(𝑥,𝑧) 𝑆(𝑥,𝑛) 𝑇(𝑥,𝑛) 𝑈(𝑥,𝑧) 𝐹(𝑛) 𝐺(𝑥,𝑧,𝑛) 𝐻(𝑥,𝑧,𝑛) 𝐽(𝑛)

Proof of Theorem ctiunctlemf Dummy variable 𝑦 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		ctiunct.f	. . . . . . . 8 ⊢ (𝜑 → 𝐹:𝑆–onto→𝐴)
2	1	adantr 274	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → 𝐹:𝑆–onto→𝐴)
3		fof 5410	. . . . . . 7 ⊢ (𝐹:𝑆–onto→𝐴 → 𝐹:𝑆⟶𝐴)
4	2, 3	syl 14	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → 𝐹:𝑆⟶𝐴)
5		ctiunct.som	. . . . . . . 8 ⊢ (𝜑 → 𝑆 ⊆ ω)
6	5	adantr 274	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → 𝑆 ⊆ ω)
7		ctiunct.sdc	. . . . . . . 8 ⊢ (𝜑 → ∀𝑛 ∈ ω DECID 𝑛 ∈ 𝑆)
8	7	adantr 274	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → ∀𝑛 ∈ ω DECID 𝑛 ∈ 𝑆)
9		ctiunct.tom	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝑇 ⊆ ω)
10	9	adantlr 469	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ 𝑈) ∧ 𝑥 ∈ 𝐴) → 𝑇 ⊆ ω)
11		ctiunct.tdc	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∀𝑛 ∈ ω DECID 𝑛 ∈ 𝑇)
12	11	adantlr 469	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ 𝑈) ∧ 𝑥 ∈ 𝐴) → ∀𝑛 ∈ ω DECID 𝑛 ∈ 𝑇)
13		ctiunct.g	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐺:𝑇–onto→𝐵)
14	13	adantlr 469	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ 𝑈) ∧ 𝑥 ∈ 𝐴) → 𝐺:𝑇–onto→𝐵)
15		ctiunct.j	. . . . . . . 8 ⊢ (𝜑 → 𝐽:ω–1-1-onto→(ω × ω))
16	15	adantr 274	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → 𝐽:ω–1-1-onto→(ω × ω))
17		ctiunct.u	. . . . . . 7 ⊢ 𝑈 = {𝑧 ∈ ω ∣ ((1^st ‘(𝐽‘𝑧)) ∈ 𝑆 ∧ (2^nd ‘(𝐽‘𝑧)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑧))) / 𝑥⦌𝑇)}
18		simpr 109	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → 𝑛 ∈ 𝑈)
19	6, 8, 2, 10, 12, 14, 16, 17, 18	ctiunctlemu1st 12367	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (1^st ‘(𝐽‘𝑛)) ∈ 𝑆)
20	4, 19	ffvelrnd 5621	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (𝐹‘(1^st ‘(𝐽‘𝑛))) ∈ 𝐴)
21		fof 5410	. . . . . . . . . . 11 ⊢ (𝐺:𝑇–onto→𝐵 → 𝐺:𝑇⟶𝐵)
22	13, 21	syl 14	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐺:𝑇⟶𝐵)
23	22	ralrimiva 2539	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 𝐺:𝑇⟶𝐵)
24	23	adantr 274	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → ∀𝑥 ∈ 𝐴 𝐺:𝑇⟶𝐵)
25		rspsbc 3033	. . . . . . . 8 ⊢ ((𝐹‘(1^st ‘(𝐽‘𝑛))) ∈ 𝐴 → (∀𝑥 ∈ 𝐴 𝐺:𝑇⟶𝐵 → [(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥]𝐺:𝑇⟶𝐵))
26	20, 24, 25	sylc 62	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → [(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥]𝐺:𝑇⟶𝐵)
27		sbcfg 5336	. . . . . . . 8 ⊢ ((𝐹‘(1^st ‘(𝐽‘𝑛))) ∈ 𝐴 → ([(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥]𝐺:𝑇⟶𝐵 ↔ ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺:⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝑇⟶⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵))
28	20, 27	syl 14	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → ([(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥]𝐺:𝑇⟶𝐵 ↔ ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺:⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝑇⟶⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵))
29	26, 28	mpbid 146	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺:⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝑇⟶⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵)
30	6, 8, 2, 10, 12, 14, 16, 17, 18	ctiunctlemu2nd 12368	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (2^nd ‘(𝐽‘𝑛)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝑇)
31	29, 30	ffvelrnd 5621	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵)
32		csbeq1 3048	. . . . . . 7 ⊢ (𝑦 = (𝐹‘(1^st ‘(𝐽‘𝑛))) → ⦋𝑦 / 𝑥⦌𝐵 = ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵)
33	32	eleq2d 2236	. . . . . 6 ⊢ (𝑦 = (𝐹‘(1^st ‘(𝐽‘𝑛))) → ((⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋𝑦 / 𝑥⦌𝐵 ↔ (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵))
34	33	rspcev 2830	. . . . 5 ⊢ (((𝐹‘(1^st ‘(𝐽‘𝑛))) ∈ 𝐴 ∧ (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵) → ∃𝑦 ∈ 𝐴 (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋𝑦 / 𝑥⦌𝐵)
35	20, 31, 34	syl2anc 409	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → ∃𝑦 ∈ 𝐴 (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋𝑦 / 𝑥⦌𝐵)
36		eliun 3870	. . . 4 ⊢ ((⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ∪ 𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵 ↔ ∃𝑦 ∈ 𝐴 (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋𝑦 / 𝑥⦌𝐵)
37	35, 36	sylibr 133	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ∪ 𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵)
38		nfcv 2308	. . . 4 ⊢ Ⅎ𝑦𝐵
39		nfcsb1v 3078	. . . 4 ⊢ Ⅎ𝑥⦋𝑦 / 𝑥⦌𝐵
40		csbeq1a 3054	. . . 4 ⊢ (𝑥 = 𝑦 → 𝐵 = ⦋𝑦 / 𝑥⦌𝐵)
41	38, 39, 40	cbviun 3903	. . 3 ⊢ ∪ 𝑥 ∈ 𝐴 𝐵 = ∪ 𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵
42	37, 41	eleqtrrdi 2260	. 2 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ∪ 𝑥 ∈ 𝐴 𝐵)
43		ctiunct.h	. 2 ⊢ 𝐻 = (𝑛 ∈ 𝑈 ↦ (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))))
44	42, 43	fmptd 5639	1 ⊢ (𝜑 → 𝐻:𝑈⟶∪ 𝑥 ∈ 𝐴 𝐵)

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 103 ↔ wb 104 DECID wdc 824 = wceq 1343 ∈ wcel 2136 ∀wral 2444 ∃wrex 2445 {crab 2448 [wsbc 2951 ⦋csb 3045 ⊆ wss 3116 ∪ ciun 3866 ↦ cmpt 4043 ωcom 4567 × cxp 4602 ⟶wf 5184 –onto→wfo 5186 –1-1-onto→wf1o 5187 ‘cfv 5188 1^st c1st 6106 2^nd c2nd 6107

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 105 ax-ia2 106 ax-ia3 107 ax-io 699 ax-5 1435 ax-7 1436 ax-gen 1437 ax-ie1 1481 ax-ie2 1482 ax-8 1492 ax-10 1493 ax-11 1494 ax-i12 1495 ax-bndl 1497 ax-4 1498 ax-17 1514 ax-i9 1518 ax-ial 1522 ax-i5r 1523 ax-14 2139 ax-ext 2147 ax-sep 4100 ax-pow 4153 ax-pr 4187

This theorem depends on definitions: df-bi 116 df-3an 970 df-tru 1346 df-nf 1449 df-sb 1751 df-eu 2017 df-mo 2018 df-clab 2152 df-cleq 2158 df-clel 2161 df-nfc 2297 df-ral 2449 df-rex 2450 df-rab 2453 df-v 2728 df-sbc 2952 df-csb 3046 df-un 3120 df-in 3122 df-ss 3129 df-pw 3561 df-sn 3582 df-pr 3583 df-op 3585 df-uni 3790 df-iun 3868 df-br 3983 df-opab 4044 df-mpt 4045 df-id 4271 df-xp 4610 df-rel 4611 df-cnv 4612 df-co 4613 df-dm 4614 df-rn 4615 df-res 4616 df-ima 4617 df-iota 5153 df-fun 5190 df-fn 5191 df-f 5192 df-fo 5194 df-fv 5196

This theorem is referenced by: ctiunctlemfo 12372

W3C validator