el2xptp0 - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > el2xptp0		Structured version Visualization version GIF version

Theorem el2xptp0 7851

Description: A member of a nested Cartesian product is an ordered triple. (Contributed by Alexander van der Vekens, 15-Feb-2018.)

**Assertion**
Ref	Expression
el2xptp0	⊢ ((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → ((𝐴 ∈ ((𝑈 × 𝑉) × 𝑊) ∧ ((1^st ‘(1^st ‘𝐴)) = 𝑋 ∧ (2^nd ‘(1^st ‘𝐴)) = 𝑌 ∧ (2^nd ‘𝐴) = 𝑍)) ↔ 𝐴 = ⟨𝑋, 𝑌, 𝑍⟩))

**Proof of Theorem el2xptp0**
Step	Hyp	Ref	Expression
1		xp1st 7836	. . . . . 6 ⊢ (𝐴 ∈ ((𝑈 × 𝑉) × 𝑊) → (1^st ‘𝐴) ∈ (𝑈 × 𝑉))
2	1	ad2antrl 724	. . . . 5 ⊢ (((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) ∧ (𝐴 ∈ ((𝑈 × 𝑉) × 𝑊) ∧ ((1^st ‘(1^st ‘𝐴)) = 𝑋 ∧ (2^nd ‘(1^st ‘𝐴)) = 𝑌 ∧ (2^nd ‘𝐴) = 𝑍))) → (1^st ‘𝐴) ∈ (𝑈 × 𝑉))
3		3simpa 1146	. . . . . . 7 ⊢ (((1^st ‘(1^st ‘𝐴)) = 𝑋 ∧ (2^nd ‘(1^st ‘𝐴)) = 𝑌 ∧ (2^nd ‘𝐴) = 𝑍) → ((1^st ‘(1^st ‘𝐴)) = 𝑋 ∧ (2^nd ‘(1^st ‘𝐴)) = 𝑌))
4	3	adantl 481	. . . . . 6 ⊢ ((𝐴 ∈ ((𝑈 × 𝑉) × 𝑊) ∧ ((1^st ‘(1^st ‘𝐴)) = 𝑋 ∧ (2^nd ‘(1^st ‘𝐴)) = 𝑌 ∧ (2^nd ‘𝐴) = 𝑍)) → ((1^st ‘(1^st ‘𝐴)) = 𝑋 ∧ (2^nd ‘(1^st ‘𝐴)) = 𝑌))
5	4	adantl 481	. . . . 5 ⊢ (((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) ∧ (𝐴 ∈ ((𝑈 × 𝑉) × 𝑊) ∧ ((1^st ‘(1^st ‘𝐴)) = 𝑋 ∧ (2^nd ‘(1^st ‘𝐴)) = 𝑌 ∧ (2^nd ‘𝐴) = 𝑍))) → ((1^st ‘(1^st ‘𝐴)) = 𝑋 ∧ (2^nd ‘(1^st ‘𝐴)) = 𝑌))
6		eqopi 7840	. . . . 5 ⊢ (((1^st ‘𝐴) ∈ (𝑈 × 𝑉) ∧ ((1^st ‘(1^st ‘𝐴)) = 𝑋 ∧ (2^nd ‘(1^st ‘𝐴)) = 𝑌)) → (1^st ‘𝐴) = ⟨𝑋, 𝑌⟩)
7	2, 5, 6	syl2anc 583	. . . 4 ⊢ (((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) ∧ (𝐴 ∈ ((𝑈 × 𝑉) × 𝑊) ∧ ((1^st ‘(1^st ‘𝐴)) = 𝑋 ∧ (2^nd ‘(1^st ‘𝐴)) = 𝑌 ∧ (2^nd ‘𝐴) = 𝑍))) → (1^st ‘𝐴) = ⟨𝑋, 𝑌⟩)
8		simprr3 1221	. . . 4 ⊢ (((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) ∧ (𝐴 ∈ ((𝑈 × 𝑉) × 𝑊) ∧ ((1^st ‘(1^st ‘𝐴)) = 𝑋 ∧ (2^nd ‘(1^st ‘𝐴)) = 𝑌 ∧ (2^nd ‘𝐴) = 𝑍))) → (2^nd ‘𝐴) = 𝑍)
9	7, 8	jca 511	. . 3 ⊢ (((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) ∧ (𝐴 ∈ ((𝑈 × 𝑉) × 𝑊) ∧ ((1^st ‘(1^st ‘𝐴)) = 𝑋 ∧ (2^nd ‘(1^st ‘𝐴)) = 𝑌 ∧ (2^nd ‘𝐴) = 𝑍))) → ((1^st ‘𝐴) = ⟨𝑋, 𝑌⟩ ∧ (2^nd ‘𝐴) = 𝑍))
10		df-ot 4567	. . . . . 6 ⊢ ⟨𝑋, 𝑌, 𝑍⟩ = ⟨⟨𝑋, 𝑌⟩, 𝑍⟩
11	10	eqeq2i 2751	. . . . 5 ⊢ (𝐴 = ⟨𝑋, 𝑌, 𝑍⟩ ↔ 𝐴 = ⟨⟨𝑋, 𝑌⟩, 𝑍⟩)
12		eqop 7846	. . . . 5 ⊢ (𝐴 ∈ ((𝑈 × 𝑉) × 𝑊) → (𝐴 = ⟨⟨𝑋, 𝑌⟩, 𝑍⟩ ↔ ((1^st ‘𝐴) = ⟨𝑋, 𝑌⟩ ∧ (2^nd ‘𝐴) = 𝑍)))
13	11, 12	syl5bb 282	. . . 4 ⊢ (𝐴 ∈ ((𝑈 × 𝑉) × 𝑊) → (𝐴 = ⟨𝑋, 𝑌, 𝑍⟩ ↔ ((1^st ‘𝐴) = ⟨𝑋, 𝑌⟩ ∧ (2^nd ‘𝐴) = 𝑍)))
14	13	ad2antrl 724	. . 3 ⊢ (((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) ∧ (𝐴 ∈ ((𝑈 × 𝑉) × 𝑊) ∧ ((1^st ‘(1^st ‘𝐴)) = 𝑋 ∧ (2^nd ‘(1^st ‘𝐴)) = 𝑌 ∧ (2^nd ‘𝐴) = 𝑍))) → (𝐴 = ⟨𝑋, 𝑌, 𝑍⟩ ↔ ((1^st ‘𝐴) = ⟨𝑋, 𝑌⟩ ∧ (2^nd ‘𝐴) = 𝑍)))
15	9, 14	mpbird 256	. 2 ⊢ (((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) ∧ (𝐴 ∈ ((𝑈 × 𝑉) × 𝑊) ∧ ((1^st ‘(1^st ‘𝐴)) = 𝑋 ∧ (2^nd ‘(1^st ‘𝐴)) = 𝑌 ∧ (2^nd ‘𝐴) = 𝑍))) → 𝐴 = ⟨𝑋, 𝑌, 𝑍⟩)
16		opelxpi 5617	. . . . . . . 8 ⊢ ((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉) → ⟨𝑋, 𝑌⟩ ∈ (𝑈 × 𝑉))
17	16	3adant3 1130	. . . . . . 7 ⊢ ((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → ⟨𝑋, 𝑌⟩ ∈ (𝑈 × 𝑉))
18		simp3 1136	. . . . . . 7 ⊢ ((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → 𝑍 ∈ 𝑊)
19	17, 18	opelxpd 5618	. . . . . 6 ⊢ ((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → ⟨⟨𝑋, 𝑌⟩, 𝑍⟩ ∈ ((𝑈 × 𝑉) × 𝑊))
20	10, 19	eqeltrid 2843	. . . . 5 ⊢ ((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → ⟨𝑋, 𝑌, 𝑍⟩ ∈ ((𝑈 × 𝑉) × 𝑊))
21	20	adantr 480	. . . 4 ⊢ (((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) ∧ 𝐴 = ⟨𝑋, 𝑌, 𝑍⟩) → ⟨𝑋, 𝑌, 𝑍⟩ ∈ ((𝑈 × 𝑉) × 𝑊))
22		eleq1 2826	. . . . 5 ⊢ (𝐴 = ⟨𝑋, 𝑌, 𝑍⟩ → (𝐴 ∈ ((𝑈 × 𝑉) × 𝑊) ↔ ⟨𝑋, 𝑌, 𝑍⟩ ∈ ((𝑈 × 𝑉) × 𝑊)))
23	22	adantl 481	. . . 4 ⊢ (((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) ∧ 𝐴 = ⟨𝑋, 𝑌, 𝑍⟩) → (𝐴 ∈ ((𝑈 × 𝑉) × 𝑊) ↔ ⟨𝑋, 𝑌, 𝑍⟩ ∈ ((𝑈 × 𝑉) × 𝑊)))
24	21, 23	mpbird 256	. . 3 ⊢ (((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) ∧ 𝐴 = ⟨𝑋, 𝑌, 𝑍⟩) → 𝐴 ∈ ((𝑈 × 𝑉) × 𝑊))
25		2fveq3 6761	. . . . 5 ⊢ (𝐴 = ⟨𝑋, 𝑌, 𝑍⟩ → (1^st ‘(1^st ‘𝐴)) = (1^st ‘(1^st ‘⟨𝑋, 𝑌, 𝑍⟩)))
26		ot1stg 7818	. . . . 5 ⊢ ((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → (1^st ‘(1^st ‘⟨𝑋, 𝑌, 𝑍⟩)) = 𝑋)
27	25, 26	sylan9eqr 2801	. . . 4 ⊢ (((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) ∧ 𝐴 = ⟨𝑋, 𝑌, 𝑍⟩) → (1^st ‘(1^st ‘𝐴)) = 𝑋)
28		2fveq3 6761	. . . . 5 ⊢ (𝐴 = ⟨𝑋, 𝑌, 𝑍⟩ → (2^nd ‘(1^st ‘𝐴)) = (2^nd ‘(1^st ‘⟨𝑋, 𝑌, 𝑍⟩)))
29		ot2ndg 7819	. . . . 5 ⊢ ((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → (2^nd ‘(1^st ‘⟨𝑋, 𝑌, 𝑍⟩)) = 𝑌)
30	28, 29	sylan9eqr 2801	. . . 4 ⊢ (((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) ∧ 𝐴 = ⟨𝑋, 𝑌, 𝑍⟩) → (2^nd ‘(1^st ‘𝐴)) = 𝑌)
31		fveq2 6756	. . . . 5 ⊢ (𝐴 = ⟨𝑋, 𝑌, 𝑍⟩ → (2^nd ‘𝐴) = (2^nd ‘⟨𝑋, 𝑌, 𝑍⟩))
32		ot3rdg 7820	. . . . . 6 ⊢ (𝑍 ∈ 𝑊 → (2^nd ‘⟨𝑋, 𝑌, 𝑍⟩) = 𝑍)
33	32	3ad2ant3 1133	. . . . 5 ⊢ ((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → (2^nd ‘⟨𝑋, 𝑌, 𝑍⟩) = 𝑍)
34	31, 33	sylan9eqr 2801	. . . 4 ⊢ (((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) ∧ 𝐴 = ⟨𝑋, 𝑌, 𝑍⟩) → (2^nd ‘𝐴) = 𝑍)
35	27, 30, 34	3jca 1126	. . 3 ⊢ (((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) ∧ 𝐴 = ⟨𝑋, 𝑌, 𝑍⟩) → ((1^st ‘(1^st ‘𝐴)) = 𝑋 ∧ (2^nd ‘(1^st ‘𝐴)) = 𝑌 ∧ (2^nd ‘𝐴) = 𝑍))
36	24, 35	jca 511	. 2 ⊢ (((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) ∧ 𝐴 = ⟨𝑋, 𝑌, 𝑍⟩) → (𝐴 ∈ ((𝑈 × 𝑉) × 𝑊) ∧ ((1^st ‘(1^st ‘𝐴)) = 𝑋 ∧ (2^nd ‘(1^st ‘𝐴)) = 𝑌 ∧ (2^nd ‘𝐴) = 𝑍)))
37	15, 36	impbida 797	1 ⊢ ((𝑋 ∈ 𝑈 ∧ 𝑌 ∈ 𝑉 ∧ 𝑍 ∈ 𝑊) → ((𝐴 ∈ ((𝑈 × 𝑉) × 𝑊) ∧ ((1^st ‘(1^st ‘𝐴)) = 𝑋 ∧ (2^nd ‘(1^st ‘𝐴)) = 𝑌 ∧ (2^nd ‘𝐴) = 𝑍)) ↔ 𝐴 = ⟨𝑋, 𝑌, 𝑍⟩))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 395 ∧ w3a 1085 = wceq 1539 ∈ wcel 2108 ⟨cop 4564 ⟨cotp 4566 × cxp 5578 ‘cfv 6418 1^st c1st 7802 2^nd c2nd 7803

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1799 ax-4 1813 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2110 ax-9 2118 ax-10 2139 ax-11 2156 ax-12 2173 ax-ext 2709 ax-sep 5218 ax-nul 5225 ax-pr 5347 ax-un 7566

This theorem depends on definitions: df-bi 206 df-an 396 df-or 844 df-3an 1087 df-tru 1542 df-fal 1552 df-ex 1784 df-nf 1788 df-sb 2069 df-mo 2540 df-eu 2569 df-clab 2716 df-cleq 2730 df-clel 2817 df-nfc 2888 df-ne 2943 df-ral 3068 df-rex 3069 df-rab 3072 df-v 3424 df-dif 3886 df-un 3888 df-in 3890 df-ss 3900 df-nul 4254 df-if 4457 df-sn 4559 df-pr 4561 df-op 4565 df-ot 4567 df-uni 4837 df-br 5071 df-opab 5133 df-mpt 5154 df-id 5480 df-xp 5586 df-rel 5587 df-cnv 5588 df-co 5589 df-dm 5590 df-rn 5591 df-iota 6376 df-fun 6420 df-fv 6426 df-1st 7804 df-2nd 7805

This theorem is referenced by: (None)

W3C validator