finxp1o - Mathbox for ML

	Mathbox for ML		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > finxp1o		Structured version Visualization version GIF version

Theorem finxp1o 32405

Description: The value of Cartesian exponentiation at one. (Contributed by ML, 17-Oct-2020.)

**Assertion**
Ref	Expression
finxp1o	⊢ (𝑈↑↑1_𝑜) = 𝑈

Proof of Theorem finxp1o Dummy variables 𝑛 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		1onn 7606	. . . . . 6 ⊢ 1_𝑜 ∈ ω
2	1	a1i 11	. . . . 5 ⊢ (𝑦 ∈ 𝑈 → 1_𝑜 ∈ ω)
3		finxpreclem1 32402	. . . . . 6 ⊢ (𝑦 ∈ 𝑈 → ∅ = ((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩)))‘⟨1_𝑜, 𝑦⟩))
4		1on 7454	. . . . . . . 8 ⊢ 1_𝑜 ∈ On
5		1n0 7462	. . . . . . . 8 ⊢ 1_𝑜 ≠ ∅
6		nnlim 6970	. . . . . . . . 9 ⊢ (1_𝑜 ∈ ω → ¬ Lim 1_𝑜)
7	1, 6	ax-mp 5	. . . . . . . 8 ⊢ ¬ Lim 1_𝑜
8		rdgsucuni 32393	. . . . . . . 8 ⊢ ((1_𝑜 ∈ On ∧ 1_𝑜 ≠ ∅ ∧ ¬ Lim 1_𝑜) → (rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘1_𝑜) = ((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩)))‘(rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘∪ 1_𝑜)))
9	4, 5, 7, 8	mp3an 1416	. . . . . . 7 ⊢ (rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘1_𝑜) = ((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩)))‘(rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘∪ 1_𝑜))
10		df-1o 7447	. . . . . . . . . . . 12 ⊢ 1_𝑜 = suc ∅
11	10	unieqi 4381	. . . . . . . . . . 11 ⊢ ∪ 1_𝑜 = ∪ suc ∅
12		0elon 5695	. . . . . . . . . . . 12 ⊢ ∅ ∈ On
13	12	onunisuci 5758	. . . . . . . . . . 11 ⊢ ∪ suc ∅ = ∅
14	11, 13	eqtri 2632	. . . . . . . . . 10 ⊢ ∪ 1_𝑜 = ∅
15	14	fveq2i 6106	. . . . . . . . 9 ⊢ (rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘∪ 1_𝑜) = (rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘∅)
16		opex 4859	. . . . . . . . . 10 ⊢ ⟨1_𝑜, 𝑦⟩ ∈ V
17	16	rdg0 7404	. . . . . . . . 9 ⊢ (rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘∅) = ⟨1_𝑜, 𝑦⟩
18	15, 17	eqtri 2632	. . . . . . . 8 ⊢ (rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘∪ 1_𝑜) = ⟨1_𝑜, 𝑦⟩
19	18	fveq2i 6106	. . . . . . 7 ⊢ ((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩)))‘(rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘∪ 1_𝑜)) = ((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩)))‘⟨1_𝑜, 𝑦⟩)
20	9, 19	eqtri 2632	. . . . . 6 ⊢ (rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘1_𝑜) = ((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩)))‘⟨1_𝑜, 𝑦⟩)
21	3, 20	syl6eqr 2662	. . . . 5 ⊢ (𝑦 ∈ 𝑈 → ∅ = (rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘1_𝑜))
22		df-finxp 32397	. . . . . 6 ⊢ (𝑈↑↑1_𝑜) = {𝑦 ∣ (1_𝑜 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘1_𝑜))}
23	22	abeq2i 2722	. . . . 5 ⊢ (𝑦 ∈ (𝑈↑↑1_𝑜) ↔ (1_𝑜 ∈ ω ∧ ∅ = (rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘1_𝑜)))
24	2, 21, 23	sylanbrc 695	. . . 4 ⊢ (𝑦 ∈ 𝑈 → 𝑦 ∈ (𝑈↑↑1_𝑜))
25	1, 23	mpbiran 955	. . . . 5 ⊢ (𝑦 ∈ (𝑈↑↑1_𝑜) ↔ ∅ = (rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘1_𝑜))
26		vex 3176	. . . . . . 7 ⊢ 𝑦 ∈ V
27	20	eqcomi 2619	. . . . . . . . . 10 ⊢ ((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩)))‘⟨1_𝑜, 𝑦⟩) = (rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘1_𝑜)
28		finxpreclem2 32403	. . . . . . . . . . . 12 ⊢ ((𝑦 ∈ V ∧ ¬ 𝑦 ∈ 𝑈) → ¬ ∅ = ((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩)))‘⟨1_𝑜, 𝑦⟩))
29	28	neqned 2789	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ V ∧ ¬ 𝑦 ∈ 𝑈) → ∅ ≠ ((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩)))‘⟨1_𝑜, 𝑦⟩))
30	29	necomd 2837	. . . . . . . . . 10 ⊢ ((𝑦 ∈ V ∧ ¬ 𝑦 ∈ 𝑈) → ((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩)))‘⟨1_𝑜, 𝑦⟩) ≠ ∅)
31	27, 30	syl5eqner 2857	. . . . . . . . 9 ⊢ ((𝑦 ∈ V ∧ ¬ 𝑦 ∈ 𝑈) → (rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘1_𝑜) ≠ ∅)
32	31	necomd 2837	. . . . . . . 8 ⊢ ((𝑦 ∈ V ∧ ¬ 𝑦 ∈ 𝑈) → ∅ ≠ (rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘1_𝑜))
33	32	neneqd 2787	. . . . . . 7 ⊢ ((𝑦 ∈ V ∧ ¬ 𝑦 ∈ 𝑈) → ¬ ∅ = (rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘1_𝑜))
34	26, 33	mpan 702	. . . . . 6 ⊢ (¬ 𝑦 ∈ 𝑈 → ¬ ∅ = (rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘1_𝑜))
35	34	con4i 112	. . . . 5 ⊢ (∅ = (rec((𝑛 ∈ ω, 𝑥 ∈ V ↦ if((𝑛 = 1_𝑜 ∧ 𝑥 ∈ 𝑈), ∅, if(𝑥 ∈ (V × 𝑈), ⟨∪ 𝑛, (1^st ‘𝑥)⟩, ⟨𝑛, 𝑥⟩))), ⟨1_𝑜, 𝑦⟩)‘1_𝑜) → 𝑦 ∈ 𝑈)
36	25, 35	sylbi 206	. . . 4 ⊢ (𝑦 ∈ (𝑈↑↑1_𝑜) → 𝑦 ∈ 𝑈)
37	24, 36	impbii 198	. . 3 ⊢ (𝑦 ∈ 𝑈 ↔ 𝑦 ∈ (𝑈↑↑1_𝑜))
38	37	eqriv 2607	. 2 ⊢ 𝑈 = (𝑈↑↑1_𝑜)
39	38	eqcomi 2619	1 ⊢ (𝑈↑↑1_𝑜) = 𝑈

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 ∧ wa 383 = wceq 1475 ∈ wcel 1977 ≠ wne 2780 Vcvv 3173 ∅c0 3874 ifcif 4036 ⟨cop 4131 ∪ cuni 4372 × cxp 5036 Oncon0 5640 Lim wlim 5641 suc csuc 5642 ‘cfv 5804 ↦ cmpt2 6551 ωcom 6957 1^st c1st 7057 reccrdg 7392 1_𝑜c1o 7440 ↑↑cfinxp 32396

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1713 ax-4 1728 ax-5 1827 ax-6 1875 ax-7 1922 ax-8 1979 ax-9 1986 ax-10 2006 ax-11 2021 ax-12 2034 ax-13 2234 ax-ext 2590 ax-rep 4699 ax-sep 4709 ax-nul 4717 ax-pow 4769 ax-pr 4833 ax-un 6847

This theorem depends on definitions: df-bi 196 df-or 384 df-an 385 df-3or 1032 df-3an 1033 df-tru 1478 df-fal 1481 df-ex 1696 df-nf 1701 df-sb 1868 df-eu 2462 df-mo 2463 df-clab 2597 df-cleq 2603 df-clel 2606 df-nfc 2740 df-ne 2782 df-ral 2901 df-rex 2902 df-reu 2903 df-rab 2905 df-v 3175 df-sbc 3403 df-csb 3500 df-dif 3543 df-un 3545 df-in 3547 df-ss 3554 df-pss 3556 df-nul 3875 df-if 4037 df-pw 4110 df-sn 4126 df-pr 4128 df-tp 4130 df-op 4132 df-uni 4373 df-iun 4457 df-br 4584 df-opab 4644 df-mpt 4645 df-tr 4681 df-eprel 4949 df-id 4953 df-po 4959 df-so 4960 df-fr 4997 df-we 4999 df-xp 5044 df-rel 5045 df-cnv 5046 df-co 5047 df-dm 5048 df-rn 5049 df-res 5050 df-ima 5051 df-pred 5597 df-ord 5643 df-on 5644 df-lim 5645 df-suc 5646 df-iota 5768 df-fun 5806 df-fn 5807 df-f 5808 df-f1 5809 df-fo 5810 df-f1o 5811 df-fv 5812 df-ov 6552 df-oprab 6553 df-mpt2 6554 df-om 6958 df-wrecs 7294 df-recs 7355 df-rdg 7393 df-1o 7447 df-finxp 32397

This theorem is referenced by: finxp2o 32412 finxp00 32415

W3C validator