ctiunctlemf - Intuitionistic Logic Explorer

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

Theorem ctiunctlemf 12879

Description: Lemma for ctiunct 12881. (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 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → 𝐹:𝑆–onto→𝐴)
3		fof 5509	. . . . . . 7 ⊢ (𝐹:𝑆–onto→𝐴 → 𝐹:𝑆⟶𝐴)
4	2, 3	syl 14	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → 𝐹:𝑆⟶𝐴)
5		ctiunct.som	. . . . . . . 8 ⊢ (𝜑 → 𝑆 ⊆ ω)
6	5	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → 𝑆 ⊆ ω)
7		ctiunct.sdc	. . . . . . . 8 ⊢ (𝜑 → ∀𝑛 ∈ ω DECID 𝑛 ∈ 𝑆)
8	7	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → ∀𝑛 ∈ ω DECID 𝑛 ∈ 𝑆)
9		ctiunct.tom	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝑇 ⊆ ω)
10	9	adantlr 477	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ 𝑈) ∧ 𝑥 ∈ 𝐴) → 𝑇 ⊆ ω)
11		ctiunct.tdc	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∀𝑛 ∈ ω DECID 𝑛 ∈ 𝑇)
12	11	adantlr 477	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ 𝑈) ∧ 𝑥 ∈ 𝐴) → ∀𝑛 ∈ ω DECID 𝑛 ∈ 𝑇)
13		ctiunct.g	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐺:𝑇–onto→𝐵)
14	13	adantlr 477	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ 𝑈) ∧ 𝑥 ∈ 𝐴) → 𝐺:𝑇–onto→𝐵)
15		ctiunct.j	. . . . . . . 8 ⊢ (𝜑 → 𝐽:ω–1-1-onto→(ω × ω))
16	15	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → 𝐽:ω–1-1-onto→(ω × ω))
17		ctiunct.u	. . . . . . 7 ⊢ 𝑈 = {𝑧 ∈ ω ∣ ((1^st ‘(𝐽‘𝑧)) ∈ 𝑆 ∧ (2^nd ‘(𝐽‘𝑧)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑧))) / 𝑥⦌𝑇)}
18		simpr 110	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → 𝑛 ∈ 𝑈)
19	6, 8, 2, 10, 12, 14, 16, 17, 18	ctiunctlemu1st 12875	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (1^st ‘(𝐽‘𝑛)) ∈ 𝑆)
20	4, 19	ffvelcdmd 5728	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (𝐹‘(1^st ‘(𝐽‘𝑛))) ∈ 𝐴)
21		fof 5509	. . . . . . . . . . 11 ⊢ (𝐺:𝑇–onto→𝐵 → 𝐺:𝑇⟶𝐵)
22	13, 21	syl 14	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐺:𝑇⟶𝐵)
23	22	ralrimiva 2580	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 𝐺:𝑇⟶𝐵)
24	23	adantr 276	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → ∀𝑥 ∈ 𝐴 𝐺:𝑇⟶𝐵)
25		rspsbc 3085	. . . . . . . 8 ⊢ ((𝐹‘(1^st ‘(𝐽‘𝑛))) ∈ 𝐴 → (∀𝑥 ∈ 𝐴 𝐺:𝑇⟶𝐵 → [(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥]𝐺:𝑇⟶𝐵))
26	20, 24, 25	sylc 62	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → [(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥]𝐺:𝑇⟶𝐵)
27		sbcfg 5433	. . . . . . . 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 147	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺:⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝑇⟶⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵)
30	6, 8, 2, 10, 12, 14, 16, 17, 18	ctiunctlemu2nd 12876	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (2^nd ‘(𝐽‘𝑛)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝑇)
31	29, 30	ffvelcdmd 5728	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵)
32		csbeq1 3100	. . . . . . 7 ⊢ (𝑦 = (𝐹‘(1^st ‘(𝐽‘𝑛))) → ⦋𝑦 / 𝑥⦌𝐵 = ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵)
33	32	eleq2d 2276	. . . . . 6 ⊢ (𝑦 = (𝐹‘(1^st ‘(𝐽‘𝑛))) → ((⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋𝑦 / 𝑥⦌𝐵 ↔ (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵))
34	33	rspcev 2881	. . . . 5 ⊢ (((𝐹‘(1^st ‘(𝐽‘𝑛))) ∈ 𝐴 ∧ (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵) → ∃𝑦 ∈ 𝐴 (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋𝑦 / 𝑥⦌𝐵)
35	20, 31, 34	syl2anc 411	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → ∃𝑦 ∈ 𝐴 (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋𝑦 / 𝑥⦌𝐵)
36		eliun 3936	. . . 4 ⊢ ((⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ∪ 𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵 ↔ ∃𝑦 ∈ 𝐴 (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋𝑦 / 𝑥⦌𝐵)
37	35, 36	sylibr 134	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ∪ 𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵)
38		nfcv 2349	. . . 4 ⊢ Ⅎ𝑦𝐵
39		nfcsb1v 3130	. . . 4 ⊢ Ⅎ𝑥⦋𝑦 / 𝑥⦌𝐵
40		csbeq1a 3106	. . . 4 ⊢ (𝑥 = 𝑦 → 𝐵 = ⦋𝑦 / 𝑥⦌𝐵)
41	38, 39, 40	cbviun 3969	. . 3 ⊢ ∪ 𝑥 ∈ 𝐴 𝐵 = ∪ 𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵
42	37, 41	eleqtrrdi 2300	. 2 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ∪ 𝑥 ∈ 𝐴 𝐵)
43		ctiunct.h	. 2 ⊢ 𝐻 = (𝑛 ∈ 𝑈 ↦ (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))))
44	42, 43	fmptd 5746	1 ⊢ (𝜑 → 𝐻:𝑈⟶∪ 𝑥 ∈ 𝐴 𝐵)

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 DECID wdc 836 = wceq 1373 ∈ wcel 2177 ∀wral 2485 ∃wrex 2486 {crab 2489 [wsbc 3002 ⦋csb 3097 ⊆ wss 3170 ∪ ciun 3932 ↦ cmpt 4112 ωcom 4645 × cxp 4680 ⟶wf 5275 –onto→wfo 5277 –1-1-onto→wf1o 5278 ‘cfv 5279 1^st c1st 6236 2^nd c2nd 6237

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-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-14 2180 ax-ext 2188 ax-sep 4169 ax-pow 4225 ax-pr 4260

This theorem depends on definitions: df-bi 117 df-3an 983 df-tru 1376 df-nf 1485 df-sb 1787 df-eu 2058 df-mo 2059 df-clab 2193 df-cleq 2199 df-clel 2202 df-nfc 2338 df-ral 2490 df-rex 2491 df-rab 2494 df-v 2775 df-sbc 3003 df-csb 3098 df-un 3174 df-in 3176 df-ss 3183 df-pw 3622 df-sn 3643 df-pr 3644 df-op 3646 df-uni 3856 df-iun 3934 df-br 4051 df-opab 4113 df-mpt 4114 df-id 4347 df-xp 4688 df-rel 4689 df-cnv 4690 df-co 4691 df-dm 4692 df-rn 4693 df-res 4694 df-ima 4695 df-iota 5240 df-fun 5281 df-fn 5282 df-f 5283 df-fo 5285 df-fv 5287

This theorem is referenced by: ctiunctlemfo 12880

W3C validator