ctiunctlemu1st - Intuitionistic Logic Explorer

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

Theorem ctiunctlemu1st 11947

Description: Lemma for ctiunct 11953. (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 5426	. . . . . . 7 ⊢ (𝑧 = 𝑁 → (1^st ‘(𝐽‘𝑧)) = (1^st ‘(𝐽‘𝑁)))
3	2	eleq1d 2208	. . . . . 6 ⊢ (𝑧 = 𝑁 → ((1^st ‘(𝐽‘𝑧)) ∈ 𝑆 ↔ (1^st ‘(𝐽‘𝑁)) ∈ 𝑆))
4		2fveq3 5426	. . . . . . 7 ⊢ (𝑧 = 𝑁 → (2^nd ‘(𝐽‘𝑧)) = (2^nd ‘(𝐽‘𝑁)))
5	2	fveq2d 5425	. . . . . . . 8 ⊢ (𝑧 = 𝑁 → (𝐹‘(1^st ‘(𝐽‘𝑧))) = (𝐹‘(1^st ‘(𝐽‘𝑁))))
6	5	csbeq1d 3010	. . . . . . 7 ⊢ (𝑧 = 𝑁 → ⦋(𝐹‘(1^st ‘(𝐽‘𝑧))) / 𝑥⦌𝑇 = ⦋(𝐹‘(1^st ‘(𝐽‘𝑁))) / 𝑥⦌𝑇)
7	4, 6	eleq12d 2210	. . . . . 6 ⊢ (𝑧 = 𝑁 → ((2^nd ‘(𝐽‘𝑧)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑧))) / 𝑥⦌𝑇 ↔ (2^nd ‘(𝐽‘𝑁)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑁))) / 𝑥⦌𝑇))
8	3, 7	anbi12d 464	. . . . 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 2843	. . . 4 ⊢ (𝑁 ∈ 𝑈 ↔ (𝑁 ∈ ω ∧ ((1^st ‘(𝐽‘𝑁)) ∈ 𝑆 ∧ (2^nd ‘(𝐽‘𝑁)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑁))) / 𝑥⦌𝑇)))
11	1, 10	sylib 121	. . 3 ⊢ (𝜑 → (𝑁 ∈ ω ∧ ((1^st ‘(𝐽‘𝑁)) ∈ 𝑆 ∧ (2^nd ‘(𝐽‘𝑁)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑁))) / 𝑥⦌𝑇)))
12	11	simprd 113	. 2 ⊢ (𝜑 → ((1^st ‘(𝐽‘𝑁)) ∈ 𝑆 ∧ (2^nd ‘(𝐽‘𝑁)) ∈ ⦋(𝐹‘(1^st ‘(𝐽‘𝑁))) / 𝑥⦌𝑇))
13	12	simpld 111	1 ⊢ (𝜑 → (1^st ‘(𝐽‘𝑁)) ∈ 𝑆)

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 103 DECID wdc 819 = wceq 1331 ∈ wcel 1480 ∀wral 2416 {crab 2420 ⦋csb 3003 ⊆ wss 3071 ωcom 4504 × cxp 4537 –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-17 1506 ax-i9 1510 ax-ial 1514 ax-i5r 1515 ax-ext 2121

This theorem depends on definitions: df-bi 116 df-3an 964 df-tru 1334 df-nf 1437 df-sb 1736 df-clab 2126 df-cleq 2132 df-clel 2135 df-nfc 2270 df-rex 2422 df-rab 2425 df-v 2688 df-sbc 2910 df-csb 3004 df-un 3075 df-sn 3533 df-pr 3534 df-op 3536 df-uni 3737 df-br 3930 df-iota 5088 df-fv 5131

This theorem is referenced by: ctiunctlemf 11951

W3C validator