opabfi - Intuitionistic Logic Explorer

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

Theorem opabfi 7126

Description: Finiteness of an ordered pair abstraction which is a decidable subset of finite sets. (Contributed by Jim Kingdon, 16-Sep-2025.)

**Hypotheses**
Ref	Expression
opabfi.s	⊢ 𝑆 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)}
opabfi.a	⊢ (𝜑 → 𝐴 ∈ Fin)
opabfi.b	⊢ (𝜑 → 𝐵 ∈ Fin)
opabfi.dc	⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐵 DECID 𝜓)

**Assertion**
Ref	Expression
opabfi	⊢ (𝜑 → 𝑆 ∈ Fin)

Distinct variable groups: 𝑥,𝐴,𝑦 𝑥,𝐵,𝑦 Allowed substitution hints: 𝜑(𝑥,𝑦) 𝜓(𝑥,𝑦) 𝑆(𝑥,𝑦)

Proof of Theorem opabfi Dummy variable 𝑧 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		opabfi.a	. . 3 ⊢ (𝜑 → 𝐴 ∈ Fin)
2		opabfi.b	. . 3 ⊢ (𝜑 → 𝐵 ∈ Fin)
3		xpfi 7119	. . 3 ⊢ ((𝐴 ∈ Fin ∧ 𝐵 ∈ Fin) → (𝐴 × 𝐵) ∈ Fin)
4	1, 2, 3	syl2anc 411	. 2 ⊢ (𝜑 → (𝐴 × 𝐵) ∈ Fin)
5		opabfi.s	. . . 4 ⊢ 𝑆 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)}
6		opabssxp 4798	. . . 4 ⊢ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)} ⊆ (𝐴 × 𝐵)
7	5, 6	eqsstri 3257	. . 3 ⊢ 𝑆 ⊆ (𝐴 × 𝐵)
8	7	a1i 9	. 2 ⊢ (𝜑 → 𝑆 ⊆ (𝐴 × 𝐵))
9		xp2nd 6324	. . . . . 6 ⊢ (𝑧 ∈ (𝐴 × 𝐵) → (2^nd ‘𝑧) ∈ 𝐵)
10	9	adantl 277	. . . . 5 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝐴 × 𝐵)) → (2^nd ‘𝑧) ∈ 𝐵)
11		xp1st 6323	. . . . . . 7 ⊢ (𝑧 ∈ (𝐴 × 𝐵) → (1^st ‘𝑧) ∈ 𝐴)
12	11	adantl 277	. . . . . 6 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝐴 × 𝐵)) → (1^st ‘𝑧) ∈ 𝐴)
13		opabfi.dc	. . . . . . 7 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐵 DECID 𝜓)
14	13	adantr 276	. . . . . 6 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝐴 × 𝐵)) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐵 DECID 𝜓)
15		nfcv 2372	. . . . . . . 8 ⊢ Ⅎ𝑥𝐵
16		nfsbc1v 3048	. . . . . . . . 9 ⊢ Ⅎ𝑥[(1^st ‘𝑧) / 𝑥]𝜓
17	16	nfdc 1705	. . . . . . . 8 ⊢ Ⅎ𝑥DECID [(1^st ‘𝑧) / 𝑥]𝜓
18	15, 17	nfralw 2567	. . . . . . 7 ⊢ Ⅎ𝑥∀𝑦 ∈ 𝐵 DECID [(1^st ‘𝑧) / 𝑥]𝜓
19		sbceq1a 3039	. . . . . . . . 9 ⊢ (𝑥 = (1^st ‘𝑧) → (𝜓 ↔ [(1^st ‘𝑧) / 𝑥]𝜓))
20	19	dcbid 843	. . . . . . . 8 ⊢ (𝑥 = (1^st ‘𝑧) → (DECID 𝜓 ↔ DECID [(1^st ‘𝑧) / 𝑥]𝜓))
21	20	ralbidv 2530	. . . . . . 7 ⊢ (𝑥 = (1^st ‘𝑧) → (∀𝑦 ∈ 𝐵 DECID 𝜓 ↔ ∀𝑦 ∈ 𝐵 DECID [(1^st ‘𝑧) / 𝑥]𝜓))
22	18, 21	rspc 2902	. . . . . 6 ⊢ ((1^st ‘𝑧) ∈ 𝐴 → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐵 DECID 𝜓 → ∀𝑦 ∈ 𝐵 DECID [(1^st ‘𝑧) / 𝑥]𝜓))
23	12, 14, 22	sylc 62	. . . . 5 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝐴 × 𝐵)) → ∀𝑦 ∈ 𝐵 DECID [(1^st ‘𝑧) / 𝑥]𝜓)
24		nfsbc1v 3048	. . . . . . 7 ⊢ Ⅎ𝑦[(2^nd ‘𝑧) / 𝑦][(1^st ‘𝑧) / 𝑥]𝜓
25	24	nfdc 1705	. . . . . 6 ⊢ Ⅎ𝑦DECID [(2^nd ‘𝑧) / 𝑦][(1^st ‘𝑧) / 𝑥]𝜓
26		sbceq1a 3039	. . . . . . 7 ⊢ (𝑦 = (2^nd ‘𝑧) → ([(1^st ‘𝑧) / 𝑥]𝜓 ↔ [(2^nd ‘𝑧) / 𝑦][(1^st ‘𝑧) / 𝑥]𝜓))
27	26	dcbid 843	. . . . . 6 ⊢ (𝑦 = (2^nd ‘𝑧) → (DECID [(1^st ‘𝑧) / 𝑥]𝜓 ↔ DECID [(2^nd ‘𝑧) / 𝑦][(1^st ‘𝑧) / 𝑥]𝜓))
28	25, 27	rspc 2902	. . . . 5 ⊢ ((2^nd ‘𝑧) ∈ 𝐵 → (∀𝑦 ∈ 𝐵 DECID [(1^st ‘𝑧) / 𝑥]𝜓 → DECID [(2^nd ‘𝑧) / 𝑦][(1^st ‘𝑧) / 𝑥]𝜓))
29	10, 23, 28	sylc 62	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝐴 × 𝐵)) → DECID [(2^nd ‘𝑧) / 𝑦][(1^st ‘𝑧) / 𝑥]𝜓)
30		nfv 1574	. . . . . . . . . 10 ⊢ Ⅎ𝑥((1^st ‘𝑧) ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)
31	30, 16	nfan 1611	. . . . . . . . 9 ⊢ Ⅎ𝑥(((1^st ‘𝑧) ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ [(1^st ‘𝑧) / 𝑥]𝜓)
32		nfv 1574	. . . . . . . . . 10 ⊢ Ⅎ𝑦((1^st ‘𝑧) ∈ 𝐴 ∧ (2^nd ‘𝑧) ∈ 𝐵)
33	32, 24	nfan 1611	. . . . . . . . 9 ⊢ Ⅎ𝑦(((1^st ‘𝑧) ∈ 𝐴 ∧ (2^nd ‘𝑧) ∈ 𝐵) ∧ [(2^nd ‘𝑧) / 𝑦][(1^st ‘𝑧) / 𝑥]𝜓)
34		eleq1 2292	. . . . . . . . . . 11 ⊢ (𝑥 = (1^st ‘𝑧) → (𝑥 ∈ 𝐴 ↔ (1^st ‘𝑧) ∈ 𝐴))
35	34	anbi1d 465	. . . . . . . . . 10 ⊢ (𝑥 = (1^st ‘𝑧) → ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ↔ ((1^st ‘𝑧) ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)))
36	35, 19	anbi12d 473	. . . . . . . . 9 ⊢ (𝑥 = (1^st ‘𝑧) → (((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓) ↔ (((1^st ‘𝑧) ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ [(1^st ‘𝑧) / 𝑥]𝜓)))
37		eleq1 2292	. . . . . . . . . . 11 ⊢ (𝑦 = (2^nd ‘𝑧) → (𝑦 ∈ 𝐵 ↔ (2^nd ‘𝑧) ∈ 𝐵))
38	37	anbi2d 464	. . . . . . . . . 10 ⊢ (𝑦 = (2^nd ‘𝑧) → (((1^st ‘𝑧) ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ↔ ((1^st ‘𝑧) ∈ 𝐴 ∧ (2^nd ‘𝑧) ∈ 𝐵)))
39	38, 26	anbi12d 473	. . . . . . . . 9 ⊢ (𝑦 = (2^nd ‘𝑧) → ((((1^st ‘𝑧) ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ [(1^st ‘𝑧) / 𝑥]𝜓) ↔ (((1^st ‘𝑧) ∈ 𝐴 ∧ (2^nd ‘𝑧) ∈ 𝐵) ∧ [(2^nd ‘𝑧) / 𝑦][(1^st ‘𝑧) / 𝑥]𝜓)))
40	31, 33, 36, 39	opelopabgf 4362	. . . . . . . 8 ⊢ (((1^st ‘𝑧) ∈ 𝐴 ∧ (2^nd ‘𝑧) ∈ 𝐵) → (⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)} ↔ (((1^st ‘𝑧) ∈ 𝐴 ∧ (2^nd ‘𝑧) ∈ 𝐵) ∧ [(2^nd ‘𝑧) / 𝑦][(1^st ‘𝑧) / 𝑥]𝜓)))
41	11, 9, 40	syl2anc 411	. . . . . . 7 ⊢ (𝑧 ∈ (𝐴 × 𝐵) → (⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)} ↔ (((1^st ‘𝑧) ∈ 𝐴 ∧ (2^nd ‘𝑧) ∈ 𝐵) ∧ [(2^nd ‘𝑧) / 𝑦][(1^st ‘𝑧) / 𝑥]𝜓)))
42		1st2nd2 6333	. . . . . . . 8 ⊢ (𝑧 ∈ (𝐴 × 𝐵) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
43	5	a1i 9	. . . . . . . 8 ⊢ (𝑧 ∈ (𝐴 × 𝐵) → 𝑆 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)})
44	42, 43	eleq12d 2300	. . . . . . 7 ⊢ (𝑧 ∈ (𝐴 × 𝐵) → (𝑧 ∈ 𝑆 ↔ ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝜓)}))
45		ibar 301	. . . . . . . 8 ⊢ (((1^st ‘𝑧) ∈ 𝐴 ∧ (2^nd ‘𝑧) ∈ 𝐵) → ([(2^nd ‘𝑧) / 𝑦][(1^st ‘𝑧) / 𝑥]𝜓 ↔ (((1^st ‘𝑧) ∈ 𝐴 ∧ (2^nd ‘𝑧) ∈ 𝐵) ∧ [(2^nd ‘𝑧) / 𝑦][(1^st ‘𝑧) / 𝑥]𝜓)))
46	11, 9, 45	syl2anc 411	. . . . . . 7 ⊢ (𝑧 ∈ (𝐴 × 𝐵) → ([(2^nd ‘𝑧) / 𝑦][(1^st ‘𝑧) / 𝑥]𝜓 ↔ (((1^st ‘𝑧) ∈ 𝐴 ∧ (2^nd ‘𝑧) ∈ 𝐵) ∧ [(2^nd ‘𝑧) / 𝑦][(1^st ‘𝑧) / 𝑥]𝜓)))
47	41, 44, 46	3bitr4d 220	. . . . . 6 ⊢ (𝑧 ∈ (𝐴 × 𝐵) → (𝑧 ∈ 𝑆 ↔ [(2^nd ‘𝑧) / 𝑦][(1^st ‘𝑧) / 𝑥]𝜓))
48	47	dcbid 843	. . . . 5 ⊢ (𝑧 ∈ (𝐴 × 𝐵) → (DECID 𝑧 ∈ 𝑆 ↔ DECID [(2^nd ‘𝑧) / 𝑦][(1^st ‘𝑧) / 𝑥]𝜓))
49	48	adantl 277	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝐴 × 𝐵)) → (DECID 𝑧 ∈ 𝑆 ↔ DECID [(2^nd ‘𝑧) / 𝑦][(1^st ‘𝑧) / 𝑥]𝜓))
50	29, 49	mpbird 167	. . 3 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝐴 × 𝐵)) → DECID 𝑧 ∈ 𝑆)
51	50	ralrimiva 2603	. 2 ⊢ (𝜑 → ∀𝑧 ∈ (𝐴 × 𝐵)DECID 𝑧 ∈ 𝑆)
52		ssfidc 7124	. 2 ⊢ (((𝐴 × 𝐵) ∈ Fin ∧ 𝑆 ⊆ (𝐴 × 𝐵) ∧ ∀𝑧 ∈ (𝐴 × 𝐵)DECID 𝑧 ∈ 𝑆) → 𝑆 ∈ Fin)
53	4, 8, 51, 52	syl3anc 1271	1 ⊢ (𝜑 → 𝑆 ∈ Fin)

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 DECID wdc 839 = wceq 1395 ∈ wcel 2200 ∀wral 2508 [wsbc 3029 ⊆ wss 3198 ⟨cop 3670 {copab 4147 × cxp 4721 ‘cfv 5324 1^st c1st 6296 2^nd c2nd 6297 Fincfn 6904

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-in1 617 ax-in2 618 ax-io 714 ax-5 1493 ax-7 1494 ax-gen 1495 ax-ie1 1539 ax-ie2 1540 ax-8 1550 ax-10 1551 ax-11 1552 ax-i12 1553 ax-bndl 1555 ax-4 1556 ax-17 1572 ax-i9 1576 ax-ial 1580 ax-i5r 1581 ax-13 2202 ax-14 2203 ax-ext 2211 ax-coll 4202 ax-sep 4205 ax-nul 4213 ax-pow 4262 ax-pr 4297 ax-un 4528 ax-setind 4633 ax-iinf 4684

This theorem depends on definitions: df-bi 117 df-dc 840 df-3or 1003 df-3an 1004 df-tru 1398 df-fal 1401 df-nf 1507 df-sb 1809 df-eu 2080 df-mo 2081 df-clab 2216 df-cleq 2222 df-clel 2225 df-nfc 2361 df-ne 2401 df-ral 2513 df-rex 2514 df-reu 2515 df-rab 2517 df-v 2802 df-sbc 3030 df-csb 3126 df-dif 3200 df-un 3202 df-in 3204 df-ss 3211 df-nul 3493 df-if 3604 df-pw 3652 df-sn 3673 df-pr 3674 df-op 3676 df-uni 3892 df-int 3927 df-iun 3970 df-br 4087 df-opab 4149 df-mpt 4150 df-tr 4186 df-id 4388 df-iord 4461 df-on 4463 df-suc 4466 df-iom 4687 df-xp 4729 df-rel 4730 df-cnv 4731 df-co 4732 df-dm 4733 df-rn 4734 df-res 4735 df-ima 4736 df-iota 5284 df-fun 5326 df-fn 5327 df-f 5328 df-f1 5329 df-fo 5330 df-f1o 5331 df-fv 5332 df-1st 6298 df-2nd 6299 df-1o 6577 df-er 6697 df-en 6905 df-fin 6907

This theorem is referenced by: lgsquadlemsfi 15797 lgsquadlem3 15801

W3C validator