ctiunctlemu1st - Intuitionistic Logic Explorer

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

Theorem ctiunctlemu1st 12594

Description: Lemma for ctiunct 12600. (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 ‘(𝐽‘𝑧))) / 𝑥⦌𝑇)}
ctiunctlem.n	⊢ (𝜑 → 𝑁 ∈ 𝑈)

**Assertion**
Ref	Expression
ctiunctlemu1st	⊢ (𝜑 → (1^st ‘(𝐽‘𝑁)) ∈ 𝑆)

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

**Proof of Theorem ctiunctlemu1st**
Step	Hyp	Ref	Expression
1		ctiunctlem.n	. . . 4 ⊢ (𝜑 → 𝑁 ∈ 𝑈)
2		2fveq3 5560	. . . . . . 7 ⊢ (𝑧 = 𝑁 → (1^st ‘(𝐽‘𝑧)) = (1^st ‘(𝐽‘𝑁)))
3	2	eleq1d 2262	. . . . . 6 ⊢ (𝑧 = 𝑁 → ((1^st ‘(𝐽‘𝑧)) ∈ 𝑆 ↔ (1^st ‘(𝐽‘𝑁)) ∈ 𝑆))
4		2fveq3 5560	. . . . . . 7 ⊢ (𝑧 = 𝑁 → (2^nd ‘(𝐽‘𝑧)) = (2^nd ‘(𝐽‘𝑁)))
5	2	fveq2d 5559	. . . . . . . 8 ⊢ (𝑧 = 𝑁 → (𝐹‘(1^st ‘(𝐽‘𝑧))) = (𝐹‘(1^st ‘(𝐽‘𝑁))))
6	5	csbeq1d 3088	. . . . . . 7 ⊢ (𝑧 = 𝑁 → ⦋(𝐹‘(1^st ‘(𝐽‘𝑧))) / 𝑥⦌𝑇 = ⦋(𝐹‘(1^st ‘(𝐽‘𝑁))) / 𝑥⦌𝑇)
7	4, 6	eleq12d 2264	. . . . . 6 ⊢ (𝑧 = 𝑁 → ((2^nd ‘(𝐽‘𝑧)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑧))) / 𝑥⦌𝑇 ↔ (2^nd ‘(𝐽‘𝑁)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑁))) / 𝑥⦌𝑇))
8	3, 7	anbi12d 473	. . . . 5 ⊢ (𝑧 = 𝑁 → (((1^st ‘(𝐽‘𝑧)) ∈ 𝑆 ∧ (2^nd ‘(𝐽‘𝑧)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑧))) / 𝑥⦌𝑇) ↔ ((1^st ‘(𝐽‘𝑁)) ∈ 𝑆 ∧ (2^nd ‘(𝐽‘𝑁)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑁))) / 𝑥⦌𝑇)))
9		ctiunct.u	. . . . 5 ⊢ 𝑈 = {𝑧 ∈ ω ∣ ((1^st ‘(𝐽‘𝑧)) ∈ 𝑆 ∧ (2^nd ‘(𝐽‘𝑧)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑧))) / 𝑥⦌𝑇)}
10	8, 9	elrab2 2920	. . . 4 ⊢ (𝑁 ∈ 𝑈 ↔ (𝑁 ∈ ω ∧ ((1^st ‘(𝐽‘𝑁)) ∈ 𝑆 ∧ (2^nd ‘(𝐽‘𝑁)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑁))) / 𝑥⦌𝑇)))
11	1, 10	sylib 122	. . 3 ⊢ (𝜑 → (𝑁 ∈ ω ∧ ((1^st ‘(𝐽‘𝑁)) ∈ 𝑆 ∧ (2^nd ‘(𝐽‘𝑁)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑁))) / 𝑥⦌𝑇)))
12	11	simprd 114	. 2 ⊢ (𝜑 → ((1^st ‘(𝐽‘𝑁)) ∈ 𝑆 ∧ (2^nd ‘(𝐽‘𝑁)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑁))) / 𝑥⦌𝑇))
13	12	simpld 112	1 ⊢ (𝜑 → (1^st ‘(𝐽‘𝑁)) ∈ 𝑆)

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 DECID wdc 835 = wceq 1364 ∈ wcel 2164 ∀wral 2472 {crab 2476 ⦋csb 3081 ⊆ wss 3154 ωcom 4623 × cxp 4658 –onto→wfo 5253 –1-1-onto→wf1o 5254 ‘cfv 5255 1^st c1st 6193 2^nd c2nd 6194

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 1458 ax-7 1459 ax-gen 1460 ax-ie1 1504 ax-ie2 1505 ax-8 1515 ax-10 1516 ax-11 1517 ax-i12 1518 ax-bndl 1520 ax-4 1521 ax-17 1537 ax-i9 1541 ax-ial 1545 ax-i5r 1546 ax-ext 2175

This theorem depends on definitions: df-bi 117 df-3an 982 df-tru 1367 df-nf 1472 df-sb 1774 df-clab 2180 df-cleq 2186 df-clel 2189 df-nfc 2325 df-rex 2478 df-rab 2481 df-v 2762 df-sbc 2987 df-csb 3082 df-un 3158 df-sn 3625 df-pr 3626 df-op 3628 df-uni 3837 df-br 4031 df-iota 5216 df-fv 5263

This theorem is referenced by: ctiunctlemf 12598

W3C validator