Theorem brtpos2 6219

Description: Value of the transposition at a pair ⟨𝐴, 𝐵⟩. (Contributed by Mario Carneiro, 10-Sep-2015.)

Assertion

Ref	Expression
brtpos2	⊢ (𝐵 ∈ 𝑉 → (𝐴tpos 𝐹𝐵 ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵)))

Proof of Theorem brtpos2

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		reltpos 6218	. . . 4 ⊢ Rel tpos 𝐹
2	1	brrelex1i 4647	. . 3 ⊢ (𝐴tpos 𝐹𝐵 → 𝐴 ∈ V)
3	2	a1i 9	. 2 ⊢ (𝐵 ∈ 𝑉 → (𝐴tpos 𝐹𝐵 → 𝐴 ∈ V))
4		elex 2737	. . . 4 ⊢ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) → 𝐴 ∈ V)
5	4	adantr 274	. . 3 ⊢ ((𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵) → 𝐴 ∈ V)
6	5	a1i 9	. 2 ⊢ (𝐵 ∈ 𝑉 → ((𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵) → 𝐴 ∈ V))
7		df-tpos 6213	. . . . . 6 ⊢ tpos 𝐹 = (𝐹 ∘ (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}))
8	7	breqi 3988	. . . . 5 ⊢ (𝐴tpos 𝐹𝐵 ↔ 𝐴(𝐹 ∘ (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}))𝐵)
9		brcog 4771	. . . . 5 ⊢ ((𝐴 ∈ V ∧ 𝐵 ∈ 𝑉) → (𝐴(𝐹 ∘ (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}))𝐵 ↔ ∃𝑦(𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ∧ 𝑦𝐹𝐵)))
10	8, 9	syl5bb 191	. . . 4 ⊢ ((𝐴 ∈ V ∧ 𝐵 ∈ 𝑉) → (𝐴tpos 𝐹𝐵 ↔ ∃𝑦(𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ∧ 𝑦𝐹𝐵)))
11		funmpt 5226	. . . . . . . . . . 11 ⊢ Fun (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})
12		funbrfv2b 5531	. . . . . . . . . . 11 ⊢ (Fun (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) → (𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ↔ (𝐴 ∈ dom (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) ∧ ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = 𝑦)))
13	11, 12	ax-mp 5	. . . . . . . . . 10 ⊢ (𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ↔ (𝐴 ∈ dom (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) ∧ ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = 𝑦))
14		vex 2729	. . . . . . . . . . . . . . . . 17 ⊢ 𝑥 ∈ V
15		snexg 4163	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ V → {𝑥} ∈ V)
16	14, 15	ax-mp 5	. . . . . . . . . . . . . . . 16 ⊢ {𝑥} ∈ V
17	16	cnvex 5142	. . . . . . . . . . . . . . 15 ⊢ ◡{𝑥} ∈ V
18	17	uniex 4415	. . . . . . . . . . . . . 14 ⊢ ∪ ◡{𝑥} ∈ V
19		eqid 2165	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) = (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})
20	18, 19	dmmpti 5317	. . . . . . . . . . . . 13 ⊢ dom (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) = (◡dom 𝐹 ∪ {∅})
21	20	eleq2i 2233	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ dom (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) ↔ 𝐴 ∈ (◡dom 𝐹 ∪ {∅}))
22		eqcom 2167	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = 𝑦 ↔ 𝑦 = ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴))
23	21, 22	anbi12i 456	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ dom (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) ∧ ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = 𝑦) ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦 = ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴)))
24		snexg 4163	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) → {𝐴} ∈ V)
25		cnvexg 5141	. . . . . . . . . . . . . . . 16 ⊢ ({𝐴} ∈ V → ◡{𝐴} ∈ V)
26	24, 25	syl 14	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) → ◡{𝐴} ∈ V)
27		uniexg 4417	. . . . . . . . . . . . . . 15 ⊢ (◡{𝐴} ∈ V → ∪ ◡{𝐴} ∈ V)
28	26, 27	syl 14	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) → ∪ ◡{𝐴} ∈ V)
29		sneq 3587	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝐴 → {𝑥} = {𝐴})
30	29	cnveqd 4780	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝐴 → ◡{𝑥} = ◡{𝐴})
31	30	unieqd 3800	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝐴 → ∪ ◡{𝑥} = ∪ ◡{𝐴})
32	31, 19	fvmptg 5562	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴} ∈ V) → ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = ∪ ◡{𝐴})
33	28, 32	mpdan 418	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) → ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = ∪ ◡{𝐴})
34	33	eqeq2d 2177	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) → (𝑦 = ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) ↔ 𝑦 = ∪ ◡{𝐴}))
35	34	pm5.32i 450	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦 = ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴)) ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦 = ∪ ◡{𝐴}))
36	23, 35	bitri 183	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) ∧ ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = 𝑦) ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦 = ∪ ◡{𝐴}))
37	13, 36	bitri 183	. . . . . . . . 9 ⊢ (𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦 = ∪ ◡{𝐴}))
38		ancom 264	. . . . . . . . 9 ⊢ ((𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦 = ∪ ◡{𝐴}) ↔ (𝑦 = ∪ ◡{𝐴} ∧ 𝐴 ∈ (◡dom 𝐹 ∪ {∅})))
39	37, 38	bitri 183	. . . . . . . 8 ⊢ (𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ↔ (𝑦 = ∪ ◡{𝐴} ∧ 𝐴 ∈ (◡dom 𝐹 ∪ {∅})))
40	39	anbi1i 454	. . . . . . 7 ⊢ ((𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ∧ 𝑦𝐹𝐵) ↔ ((𝑦 = ∪ ◡{𝐴} ∧ 𝐴 ∈ (◡dom 𝐹 ∪ {∅})) ∧ 𝑦𝐹𝐵))
41		anass 399	. . . . . . 7 ⊢ (((𝑦 = ∪ ◡{𝐴} ∧ 𝐴 ∈ (◡dom 𝐹 ∪ {∅})) ∧ 𝑦𝐹𝐵) ↔ (𝑦 = ∪ ◡{𝐴} ∧ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)))
42	40, 41	bitri 183	. . . . . 6 ⊢ ((𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ∧ 𝑦𝐹𝐵) ↔ (𝑦 = ∪ ◡{𝐴} ∧ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)))
43	42	exbii 1593	. . . . 5 ⊢ (∃𝑦(𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ∧ 𝑦𝐹𝐵) ↔ ∃𝑦(𝑦 = ∪ ◡{𝐴} ∧ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)))
44		exsimpr 1606	. . . . . . 7 ⊢ (∃𝑦(𝑦 = ∪ ◡{𝐴} ∧ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)) → ∃𝑦(𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵))
45		exsimpl 1605	. . . . . . . 8 ⊢ (∃𝑦(𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵) → ∃𝑦 𝐴 ∈ (◡dom 𝐹 ∪ {∅}))
46		19.9v 1859	. . . . . . . 8 ⊢ (∃𝑦 𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ↔ 𝐴 ∈ (◡dom 𝐹 ∪ {∅}))
47	45, 46	sylib 121	. . . . . . 7 ⊢ (∃𝑦(𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵) → 𝐴 ∈ (◡dom 𝐹 ∪ {∅}))
48	44, 47	syl 14	. . . . . 6 ⊢ (∃𝑦(𝑦 = ∪ ◡{𝐴} ∧ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)) → 𝐴 ∈ (◡dom 𝐹 ∪ {∅}))
49		simpl 108	. . . . . 6 ⊢ ((𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵) → 𝐴 ∈ (◡dom 𝐹 ∪ {∅}))
50		breq1 3985	. . . . . . . . 9 ⊢ (𝑦 = ∪ ◡{𝐴} → (𝑦𝐹𝐵 ↔ ∪ ◡{𝐴}𝐹𝐵))
51	50	anbi2d 460	. . . . . . . 8 ⊢ (𝑦 = ∪ ◡{𝐴} → ((𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵) ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵)))
52	51	ceqsexgv 2855	. . . . . . 7 ⊢ (∪ ◡{𝐴} ∈ V → (∃𝑦(𝑦 = ∪ ◡{𝐴} ∧ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)) ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵)))
53	28, 52	syl 14	. . . . . 6 ⊢ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) → (∃𝑦(𝑦 = ∪ ◡{𝐴} ∧ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)) ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵)))
54	48, 49, 53	pm5.21nii 694	. . . . 5 ⊢ (∃𝑦(𝑦 = ∪ ◡{𝐴} ∧ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)) ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵))
55	43, 54	bitri 183	. . . 4 ⊢ (∃𝑦(𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ∧ 𝑦𝐹𝐵) ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵))
56	10, 55	bitrdi 195	. . 3 ⊢ ((𝐴 ∈ V ∧ 𝐵 ∈ 𝑉) → (𝐴tpos 𝐹𝐵 ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵)))
57	56	expcom 115	. 2 ⊢ (𝐵 ∈ 𝑉 → (𝐴 ∈ V → (𝐴tpos 𝐹𝐵 ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵))))
58	3, 6, 57	pm5.21ndd 695	1 ⊢ (𝐵 ∈ 𝑉 → (𝐴tpos 𝐹𝐵 ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵)))

Syntax hints:   → wi 4   ∧ wa 103   ↔ wb 104   = wceq 1343  ∃wex 1480   ∈ wcel 2136  Vcvv 2726   ∪ cun 3114  ∅c0 3409  {csn 3576  ∪ cuni 3789   class class class wbr 3982   ↦ cmpt 4043  ^◡ccnv 4603  dom cdm 4604   ∘ ccom 4608  Fun wfun 5182  ‘cfv 5188  tpos ctpos 6212

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 699  ax-5 1435  ax-7 1436  ax-gen 1437  ax-ie1 1481  ax-ie2 1482  ax-8 1492  ax-10 1493  ax-11 1494  ax-i12 1495  ax-bndl 1497  ax-4 1498  ax-17 1514  ax-i9 1518  ax-ial 1522  ax-i5r 1523  ax-13 2138  ax-14 2139  ax-ext 2147  ax-sep 4100  ax-pow 4153  ax-pr 4187  ax-un 4411

This theorem depends on definitions:  df-bi 116  df-3an 970  df-tru 1346  df-nf 1449  df-sb 1751  df-eu 2017  df-mo 2018  df-clab 2152  df-cleq 2158  df-clel 2161  df-nfc 2297  df-ral 2449  df-rex 2450  df-rab 2453  df-v 2728  df-sbc 2952  df-un 3120  df-in 3122  df-ss 3129  df-pw 3561  df-sn 3582  df-pr 3583  df-op 3585  df-uni 3790  df-br 3983  df-opab 4044  df-mpt 4045  df-id 4271  df-xp 4610  df-rel 4611  df-cnv 4612  df-co 4613  df-dm 4614  df-rn 4615  df-res 4616  df-ima 4617  df-iota 5153  df-fun 5190  df-fn 5191  df-fv 5196  df-tpos 6213

This theorem is referenced by:  brtpos0  6220  reldmtpos  6221  brtposg  6222  dftpos4  6231  tpostpos  6232