ctiunctlemf - Intuitionistic Logic Explorer

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

Theorem ctiunctlemf 11954

Description: Lemma for ctiunct 11956. (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 5345	. . . . . . 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 468	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ 𝑈) ∧ 𝑥 ∈ 𝐴) → 𝑇 ⊆ ω)
11		ctiunct.tdc	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → ∀𝑛 ∈ ω DECID 𝑛 ∈ 𝑇)
12	11	adantlr 468	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ 𝑈) ∧ 𝑥 ∈ 𝐴) → ∀𝑛 ∈ ω DECID 𝑛 ∈ 𝑇)
13		ctiunct.g	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐺:𝑇–onto→𝐵)
14	13	adantlr 468	. . . . . . 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 11950	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (1^st ‘(𝐽‘𝑛)) ∈ 𝑆)
20	4, 19	ffvelrnd 5556	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (𝐹‘(1^st ‘(𝐽‘𝑛))) ∈ 𝐴)
21		fof 5345	. . . . . . . . . . 11 ⊢ (𝐺:𝑇–onto→𝐵 → 𝐺:𝑇⟶𝐵)
22	13, 21	syl 14	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐺:𝑇⟶𝐵)
23	22	ralrimiva 2505	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 𝐺:𝑇⟶𝐵)
24	23	adantr 274	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → ∀𝑥 ∈ 𝐴 𝐺:𝑇⟶𝐵)
25		rspsbc 2991	. . . . . . . 8 ⊢ ((𝐹‘(1^st ‘(𝐽‘𝑛))) ∈ 𝐴 → (∀𝑥 ∈ 𝐴 𝐺:𝑇⟶𝐵 → [(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥]𝐺:𝑇⟶𝐵))
26	20, 24, 25	sylc 62	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → [(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥]𝐺:𝑇⟶𝐵)
27		sbcfg 5271	. . . . . . . 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 11951	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (2^nd ‘(𝐽‘𝑛)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝑇)
31	29, 30	ffvelrnd 5556	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵)
32		csbeq1 3006	. . . . . . 7 ⊢ (𝑦 = (𝐹‘(1^st ‘(𝐽‘𝑛))) → ⦋𝑦 / 𝑥⦌𝐵 = ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵)
33	32	eleq2d 2209	. . . . . 6 ⊢ (𝑦 = (𝐹‘(1^st ‘(𝐽‘𝑛))) → ((⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋𝑦 / 𝑥⦌𝐵 ↔ (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵))
34	33	rspcev 2789	. . . . 5 ⊢ (((𝐹‘(1^st ‘(𝐽‘𝑛))) ∈ 𝐴 ∧ (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐵) → ∃𝑦 ∈ 𝐴 (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋𝑦 / 𝑥⦌𝐵)
35	20, 31, 34	syl2anc 408	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → ∃𝑦 ∈ 𝐴 (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋𝑦 / 𝑥⦌𝐵)
36		eliun 3817	. . . 4 ⊢ ((⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ∪ 𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵 ↔ ∃𝑦 ∈ 𝐴 (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ⦋𝑦 / 𝑥⦌𝐵)
37	35, 36	sylibr 133	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ∪ 𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵)
38		nfcv 2281	. . . 4 ⊢ Ⅎ𝑦𝐵
39		nfcsb1v 3035	. . . 4 ⊢ Ⅎ𝑥⦋𝑦 / 𝑥⦌𝐵
40		csbeq1a 3012	. . . 4 ⊢ (𝑥 = 𝑦 → 𝐵 = ⦋𝑦 / 𝑥⦌𝐵)
41	38, 39, 40	cbviun 3850	. . 3 ⊢ ∪ 𝑥 ∈ 𝐴 𝐵 = ∪ 𝑦 ∈ 𝐴 ⦋𝑦 / 𝑥⦌𝐵
42	37, 41	eleqtrrdi 2233	. 2 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝑈) → (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))) ∈ ∪ 𝑥 ∈ 𝐴 𝐵)
43		ctiunct.h	. 2 ⊢ 𝐻 = (𝑛 ∈ 𝑈 ↦ (⦋(𝐹‘(1^st ‘(𝐽‘𝑛))) / 𝑥⦌𝐺‘(2^nd ‘(𝐽‘𝑛))))
44	42, 43	fmptd 5574	1 ⊢ (𝜑 → 𝐻:𝑈⟶∪ 𝑥 ∈ 𝐴 𝐵)

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 103 ↔ wb 104 DECID wdc 819 = wceq 1331 ∈ wcel 1480 ∀wral 2416 ∃wrex 2417 {crab 2420 [wsbc 2909 ⦋csb 3003 ⊆ wss 3071 ∪ ciun 3813 ↦ cmpt 3989 ωcom 4504 × cxp 4537 ⟶wf 5119 –onto→wfo 5121 –1-1-onto→wf1o 5122 ‘cfv 5123 1^st c1st 6036 2^nd c2nd 6037

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 698 ax-5 1423 ax-7 1424 ax-gen 1425 ax-ie1 1469 ax-ie2 1470 ax-8 1482 ax-10 1483 ax-11 1484 ax-i12 1485 ax-bndl 1486 ax-4 1487 ax-14 1492 ax-17 1506 ax-i9 1510 ax-ial 1514 ax-i5r 1515 ax-ext 2121 ax-sep 4046 ax-pow 4098 ax-pr 4131

This theorem depends on definitions: df-bi 116 df-3an 964 df-tru 1334 df-nf 1437 df-sb 1736 df-eu 2002 df-mo 2003 df-clab 2126 df-cleq 2132 df-clel 2135 df-nfc 2270 df-ral 2421 df-rex 2422 df-rab 2425 df-v 2688 df-sbc 2910 df-csb 3004 df-un 3075 df-in 3077 df-ss 3084 df-pw 3512 df-sn 3533 df-pr 3534 df-op 3536 df-uni 3737 df-iun 3815 df-br 3930 df-opab 3990 df-mpt 3991 df-id 4215 df-xp 4545 df-rel 4546 df-cnv 4547 df-co 4548 df-dm 4549 df-rn 4550 df-res 4551 df-ima 4552 df-iota 5088 df-fun 5125 df-fn 5126 df-f 5127 df-fo 5129 df-fv 5131

This theorem is referenced by: ctiunctlemfo 11955

W3C validator