Theorem brtpos2 8162

Description: Value of the transposition at an ordered 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 8161	. . . 4 ⊢ Rel tpos 𝐹
2	1	brrelex1i 5670	. . 3 ⊢ (𝐴tpos 𝐹𝐵 → 𝐴 ∈ V)
3	2	a1i 11	. 2 ⊢ (𝐵 ∈ 𝑉 → (𝐴tpos 𝐹𝐵 → 𝐴 ∈ V))
4		elex 3457	. . . 4 ⊢ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) → 𝐴 ∈ V)
5	4	adantr 480	. . 3 ⊢ ((𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵) → 𝐴 ∈ V)
6	5	a1i 11	. 2 ⊢ (𝐵 ∈ 𝑉 → ((𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵) → 𝐴 ∈ V))
7		df-tpos 8156	. . . . . 6 ⊢ tpos 𝐹 = (𝐹 ∘ (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}))
8	7	breqi 5095	. . . . 5 ⊢ (𝐴tpos 𝐹𝐵 ↔ 𝐴(𝐹 ∘ (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}))𝐵)
9		brcog 5805	. . . . 5 ⊢ ((𝐴 ∈ V ∧ 𝐵 ∈ 𝑉) → (𝐴(𝐹 ∘ (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}))𝐵 ↔ ∃𝑦(𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ∧ 𝑦𝐹𝐵)))
10	8, 9	bitrid 283	. . . 4 ⊢ ((𝐴 ∈ V ∧ 𝐵 ∈ 𝑉) → (𝐴tpos 𝐹𝐵 ↔ ∃𝑦(𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ∧ 𝑦𝐹𝐵)))
11		funmpt 6519	. . . . . . . . . . 11 ⊢ Fun (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})
12		funbrfv2b 6879	. . . . . . . . . . 11 ⊢ (Fun (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) → (𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ↔ (𝐴 ∈ dom (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) ∧ ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = 𝑦)))
13	11, 12	ax-mp 5	. . . . . . . . . 10 ⊢ (𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ↔ (𝐴 ∈ dom (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) ∧ ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = 𝑦))
14		snex 5372	. . . . . . . . . . . . . . . 16 ⊢ {𝑥} ∈ V
15	14	cnvex 7855	. . . . . . . . . . . . . . 15 ⊢ ◡{𝑥} ∈ V
16	15	uniex 7674	. . . . . . . . . . . . . 14 ⊢ ∪ ◡{𝑥} ∈ V
17		eqid 2731	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) = (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})
18	16, 17	dmmpti 6625	. . . . . . . . . . . . 13 ⊢ dom (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) = (◡dom 𝐹 ∪ {∅})
19	18	eleq2i 2823	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ dom (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) ↔ 𝐴 ∈ (◡dom 𝐹 ∪ {∅}))
20		eqcom 2738	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = 𝑦 ↔ 𝑦 = ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴))
21	19, 20	anbi12i 628	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ dom (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) ∧ ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = 𝑦) ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦 = ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴)))
22		sneq 4583	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝐴 → {𝑥} = {𝐴})
23	22	cnveqd 5814	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝐴 → ◡{𝑥} = ◡{𝐴})
24	23	unieqd 4869	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝐴 → ∪ ◡{𝑥} = ∪ ◡{𝐴})
25		snex 5372	. . . . . . . . . . . . . . . 16 ⊢ {𝐴} ∈ V
26	25	cnvex 7855	. . . . . . . . . . . . . . 15 ⊢ ◡{𝐴} ∈ V
27	26	uniex 7674	. . . . . . . . . . . . . 14 ⊢ ∪ ◡{𝐴} ∈ V
28	24, 17, 27	fvmpt 6929	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) → ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = ∪ ◡{𝐴})
29	28	eqeq2d 2742	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) → (𝑦 = ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) ↔ 𝑦 = ∪ ◡{𝐴}))
30	29	pm5.32i 574	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦 = ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴)) ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦 = ∪ ◡{𝐴}))
31	21, 30	bitri 275	. . . . . . . . . 10 ⊢ ((𝐴 ∈ dom (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) ∧ ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = 𝑦) ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦 = ∪ ◡{𝐴}))
32	13, 31	bitri 275	. . . . . . . . 9 ⊢ (𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦 = ∪ ◡{𝐴}))
33	32	biancomi 462	. . . . . . . 8 ⊢ (𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ↔ (𝑦 = ∪ ◡{𝐴} ∧ 𝐴 ∈ (◡dom 𝐹 ∪ {∅})))
34	33	anbi1i 624	. . . . . . 7 ⊢ ((𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ∧ 𝑦𝐹𝐵) ↔ ((𝑦 = ∪ ◡{𝐴} ∧ 𝐴 ∈ (◡dom 𝐹 ∪ {∅})) ∧ 𝑦𝐹𝐵))
35		anass 468	. . . . . . 7 ⊢ (((𝑦 = ∪ ◡{𝐴} ∧ 𝐴 ∈ (◡dom 𝐹 ∪ {∅})) ∧ 𝑦𝐹𝐵) ↔ (𝑦 = ∪ ◡{𝐴} ∧ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)))
36	34, 35	bitri 275	. . . . . 6 ⊢ ((𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ∧ 𝑦𝐹𝐵) ↔ (𝑦 = ∪ ◡{𝐴} ∧ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)))
37	36	exbii 1849	. . . . 5 ⊢ (∃𝑦(𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ∧ 𝑦𝐹𝐵) ↔ ∃𝑦(𝑦 = ∪ ◡{𝐴} ∧ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)))
38		breq1 5092	. . . . . . 7 ⊢ (𝑦 = ∪ ◡{𝐴} → (𝑦𝐹𝐵 ↔ ∪ ◡{𝐴}𝐹𝐵))
39	38	anbi2d 630	. . . . . 6 ⊢ (𝑦 = ∪ ◡{𝐴} → ((𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵) ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵)))
40	27, 39	ceqsexv 3486	. . . . 5 ⊢ (∃𝑦(𝑦 = ∪ ◡{𝐴} ∧ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)) ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵))
41	37, 40	bitri 275	. . . 4 ⊢ (∃𝑦(𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ∧ 𝑦𝐹𝐵) ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵))
42	10, 41	bitrdi 287	. . 3 ⊢ ((𝐴 ∈ V ∧ 𝐵 ∈ 𝑉) → (𝐴tpos 𝐹𝐵 ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵)))
43	42	expcom 413	. 2 ⊢ (𝐵 ∈ 𝑉 → (𝐴 ∈ V → (𝐴tpos 𝐹𝐵 ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵))))
44	3, 6, 43	pm5.21ndd 379	1 ⊢ (𝐵 ∈ 𝑉 → (𝐴tpos 𝐹𝐵 ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1541  ∃wex 1780   ∈ wcel 2111  Vcvv 3436   ∪ cun 3895  ∅c0 4280  {csn 4573  ∪ cuni 4856   class class class wbr 5089   ↦ cmpt 5170  ^◡ccnv 5613  dom cdm 5614   ∘ ccom 5618  Fun wfun 6475  ‘cfv 6481  tpos ctpos 8155

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2113  ax-9 2121  ax-10 2144  ax-11 2160  ax-12 2180  ax-ext 2703  ax-sep 5232  ax-nul 5242  ax-pow 5301  ax-pr 5368  ax-un 7668

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2535  df-eu 2564  df-clab 2710  df-cleq 2723  df-clel 2806  df-nfc 2881  df-ne 2929  df-ral 3048  df-rex 3057  df-rab 3396  df-v 3438  df-dif 3900  df-un 3902  df-in 3904  df-ss 3914  df-nul 4281  df-if 4473  df-pw 4549  df-sn 4574  df-pr 4576  df-op 4580  df-uni 4857  df-br 5090  df-opab 5152  df-mpt 5171  df-id 5509  df-xp 5620  df-rel 5621  df-cnv 5622  df-co 5623  df-dm 5624  df-rn 5625  df-res 5626  df-ima 5627  df-iota 6437  df-fun 6483  df-fn 6484  df-fv 6489  df-tpos 8156

This theorem is referenced by:  brtpos0  8163  reldmtpos  8164  brtpos  8165  dftpos4  8175  tpostpos  8176