Theorem brtpos2 8214

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 8213	. . . 4 ⊢ Rel tpos 𝐹
2	1	brrelex1i 5697	. . 3 ⊢ (𝐴tpos 𝐹𝐵 → 𝐴 ∈ V)
3	2	a1i 11	. 2 ⊢ (𝐵 ∈ 𝑉 → (𝐴tpos 𝐹𝐵 → 𝐴 ∈ V))
4		elex 3471	. . . 4 ⊢ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) → 𝐴 ∈ V)
5	4	adantr 480	. . 3 ⊢ ((𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵) → 𝐴 ∈ V)
6	5	a1i 11	. 2 ⊢ (𝐵 ∈ 𝑉 → ((𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵) → 𝐴 ∈ V))
7		df-tpos 8208	. . . . . 6 ⊢ tpos 𝐹 = (𝐹 ∘ (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}))
8	7	breqi 5116	. . . . 5 ⊢ (𝐴tpos 𝐹𝐵 ↔ 𝐴(𝐹 ∘ (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}))𝐵)
9		brcog 5833	. . . . 5 ⊢ ((𝐴 ∈ V ∧ 𝐵 ∈ 𝑉) → (𝐴(𝐹 ∘ (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}))𝐵 ↔ ∃𝑦(𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ∧ 𝑦𝐹𝐵)))
10	8, 9	bitrid 283	. . . 4 ⊢ ((𝐴 ∈ V ∧ 𝐵 ∈ 𝑉) → (𝐴tpos 𝐹𝐵 ↔ ∃𝑦(𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ∧ 𝑦𝐹𝐵)))
11		funmpt 6557	. . . . . . . . . . 11 ⊢ Fun (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})
12		funbrfv2b 6921	. . . . . . . . . . 11 ⊢ (Fun (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) → (𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ↔ (𝐴 ∈ dom (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) ∧ ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = 𝑦)))
13	11, 12	ax-mp 5	. . . . . . . . . 10 ⊢ (𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ↔ (𝐴 ∈ dom (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) ∧ ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = 𝑦))
14		snex 5394	. . . . . . . . . . . . . . . 16 ⊢ {𝑥} ∈ V
15	14	cnvex 7904	. . . . . . . . . . . . . . 15 ⊢ ◡{𝑥} ∈ V
16	15	uniex 7720	. . . . . . . . . . . . . 14 ⊢ ∪ ◡{𝑥} ∈ V
17		eqid 2730	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) = (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})
18	16, 17	dmmpti 6665	. . . . . . . . . . . . 13 ⊢ dom (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) = (◡dom 𝐹 ∪ {∅})
19	18	eleq2i 2821	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ dom (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) ↔ 𝐴 ∈ (◡dom 𝐹 ∪ {∅}))
20		eqcom 2737	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = 𝑦 ↔ 𝑦 = ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴))
21	19, 20	anbi12i 628	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ dom (𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥}) ∧ ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = 𝑦) ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦 = ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴)))
22		sneq 4602	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝐴 → {𝑥} = {𝐴})
23	22	cnveqd 5842	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝐴 → ◡{𝑥} = ◡{𝐴})
24	23	unieqd 4887	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝐴 → ∪ ◡{𝑥} = ∪ ◡{𝐴})
25		snex 5394	. . . . . . . . . . . . . . . 16 ⊢ {𝐴} ∈ V
26	25	cnvex 7904	. . . . . . . . . . . . . . 15 ⊢ ◡{𝐴} ∈ V
27	26	uniex 7720	. . . . . . . . . . . . . 14 ⊢ ∪ ◡{𝐴} ∈ V
28	24, 17, 27	fvmpt 6971	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) → ((𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})‘𝐴) = ∪ ◡{𝐴})
29	28	eqeq2d 2741	. . . . . . . . . . . 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 1848	. . . . 5 ⊢ (∃𝑦(𝐴(𝑥 ∈ (◡dom 𝐹 ∪ {∅}) ↦ ∪ ◡{𝑥})𝑦 ∧ 𝑦𝐹𝐵) ↔ ∃𝑦(𝑦 = ∪ ◡{𝐴} ∧ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)))
38		breq1 5113	. . . . . . 7 ⊢ (𝑦 = ∪ ◡{𝐴} → (𝑦𝐹𝐵 ↔ ∪ ◡{𝐴}𝐹𝐵))
39	38	anbi2d 630	. . . . . 6 ⊢ (𝑦 = ∪ ◡{𝐴} → ((𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵) ↔ (𝐴 ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{𝐴}𝐹𝐵)))
40	27, 39	ceqsexv 3501	. . . . 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 1540  ∃wex 1779   ∈ wcel 2109  Vcvv 3450   ∪ cun 3915  ∅c0 4299  {csn 4592  ∪ cuni 4874   class class class wbr 5110   ↦ cmpt 5191  ^◡ccnv 5640  dom cdm 5641   ∘ ccom 5645  Fun wfun 6508  ‘cfv 6514  tpos ctpos 8207

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-sep 5254  ax-nul 5264  ax-pow 5323  ax-pr 5390  ax-un 7714

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-ral 3046  df-rex 3055  df-rab 3409  df-v 3452  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-nul 4300  df-if 4492  df-pw 4568  df-sn 4593  df-pr 4595  df-op 4599  df-uni 4875  df-br 5111  df-opab 5173  df-mpt 5192  df-id 5536  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-res 5653  df-ima 5654  df-iota 6467  df-fun 6516  df-fn 6517  df-fv 6522  df-tpos 8208

This theorem is referenced by:  brtpos0  8215  reldmtpos  8216  brtpos  8217  dftpos4  8227  tpostpos  8228