ctiunctlemf - Intuitionistic Logic Explorer

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

Theorem ctiunctlemf 12655

Description: Lemma for ctiunct 12657. (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 5480	. . . . . . 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 12651	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (1^st ‘(𝐽‘𝑛)) ∈ 𝑆)
20	4, 19	ffvelcdmd 5698	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (𝐹‘(1^st ‘(𝐽‘𝑛))) ∈ 𝐴)
21		fof 5480	. . . . . . . . . . 11 ⊢ (𝐺:𝑇–onto→𝐵 → 𝐺:𝑇⟶𝐵)
22	13, 21	syl 14	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐺:𝑇⟶𝐵)
23	22	ralrimiva 2570	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 𝐺:𝑇⟶𝐵)
24	23	adantr 276	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → ∀𝑥 ∈ 𝐴 𝐺:𝑇⟶𝐵)
25		rspsbc 3072	. . . . . . . 8 ⊢ ((𝐹‘(1^st ‘(𝐽‘𝑛))) ∈ 𝐴 → (∀𝑥 ∈ 𝐴 𝐺:𝑇⟶𝐵 → [(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥]𝐺:𝑇⟶𝐵))
26	20, 24, 25	sylc 62	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → [(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥]𝐺:𝑇⟶𝐵)
27		sbcfg 5406	. . . . . . . 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 12652	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (2^nd ‘(𝐽‘𝑛)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝑇)
31	29, 30	ffvelcdmd 5698	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵)
32		csbeq1 3087	. . . . . . 7 ⊢ (𝑦 = (𝐹‘(1^st ‘(𝐽‘𝑛))) → ⦋𝑦 / 𝑥⦌𝐵 = ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵)
33	32	eleq2d 2266	. . . . . 6 ⊢ (𝑦 = (𝐹‘(1^st ‘(𝐽‘𝑛))) → ((⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋𝑦 / 𝑥⦌𝐵 ↔ (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵))
34	33	rspcev 2868	. . . . 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 3920	. . . 4 ⊢ ((⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ∪ 𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵 ↔ ∃𝑦 ∈ 𝐴 (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋𝑦 / 𝑥⦌𝐵)
37	35, 36	sylibr 134	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ∪ 𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵)
38		nfcv 2339	. . . 4 ⊢ Ⅎ𝑦𝐵
39		nfcsb1v 3117	. . . 4 ⊢ Ⅎ𝑥⦋𝑦 / 𝑥⦌𝐵
40		csbeq1a 3093	. . . 4 ⊢ (𝑥 = 𝑦 → 𝐵 = ⦋𝑦 / 𝑥⦌𝐵)
41	38, 39, 40	cbviun 3953	. . 3 ⊢ ∪ 𝑥 ∈ 𝐴 𝐵 = ∪ 𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵
42	37, 41	eleqtrrdi 2290	. 2 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ∪ 𝑥 ∈ 𝐴 𝐵)
43		ctiunct.h	. 2 ⊢ 𝐻 = (𝑛 ∈ 𝑈 ↦ (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))))
44	42, 43	fmptd 5716	1 ⊢ (𝜑 → 𝐻:𝑈⟶∪ 𝑥 ∈ 𝐴 𝐵)

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 DECID wdc 835 = wceq 1364 ∈ wcel 2167 ∀wral 2475 ∃wrex 2476 {crab 2479 [wsbc 2989 ⦋csb 3084 ⊆ wss 3157 ∪ ciun 3916 ↦ cmpt 4094 ωcom 4626 × cxp 4661 ⟶wf 5254 –onto→wfo 5256 –1-1-onto→wf1o 5257 ‘cfv 5258 1^st c1st 6196 2^nd c2nd 6197

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 710 ax-5 1461 ax-7 1462 ax-gen 1463 ax-ie1 1507 ax-ie2 1508 ax-8 1518 ax-10 1519 ax-11 1520 ax-i12 1521 ax-bndl 1523 ax-4 1524 ax-17 1540 ax-i9 1544 ax-ial 1548 ax-i5r 1549 ax-14 2170 ax-ext 2178 ax-sep 4151 ax-pow 4207 ax-pr 4242

This theorem depends on definitions: df-bi 117 df-3an 982 df-tru 1367 df-nf 1475 df-sb 1777 df-eu 2048 df-mo 2049 df-clab 2183 df-cleq 2189 df-clel 2192 df-nfc 2328 df-ral 2480 df-rex 2481 df-rab 2484 df-v 2765 df-sbc 2990 df-csb 3085 df-un 3161 df-in 3163 df-ss 3170 df-pw 3607 df-sn 3628 df-pr 3629 df-op 3631 df-uni 3840 df-iun 3918 df-br 4034 df-opab 4095 df-mpt 4096 df-id 4328 df-xp 4669 df-rel 4670 df-cnv 4671 df-co 4672 df-dm 4673 df-rn 4674 df-res 4675 df-ima 4676 df-iota 5219 df-fun 5260 df-fn 5261 df-f 5262 df-fo 5264 df-fv 5266

This theorem is referenced by: ctiunctlemfo 12656

W3C validator