Theorem brtpos 8250

Description: The transposition swaps arguments of a three-parameter relation. (Contributed by Mario Carneiro, 10-Sep-2015.)

Assertion

Ref	Expression
brtpos	⊢ (𝐶 ∈ 𝑉 → (⟨𝐴, 𝐵⟩tpos 𝐹𝐶 ↔ ⟨𝐵, 𝐴⟩𝐹𝐶))

Proof of Theorem brtpos

Step	Hyp	Ref	Expression
1		brtpos2 8247	. . . . 5 ⊢ (𝐶 ∈ 𝑉 → (⟨𝐴, 𝐵⟩tpos 𝐹𝐶 ↔ (⟨𝐴, 𝐵⟩ ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{⟨𝐴, 𝐵⟩}𝐹𝐶)))
2	1	adantr 479	. . . 4 ⊢ ((𝐶 ∈ 𝑉 ∧ (𝐴 ∈ V ∧ 𝐵 ∈ V)) → (⟨𝐴, 𝐵⟩tpos 𝐹𝐶 ↔ (⟨𝐴, 𝐵⟩ ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{⟨𝐴, 𝐵⟩}𝐹𝐶)))
3		opex 5470	. . . . . . . . . 10 ⊢ ⟨𝐵, 𝐴⟩ ∈ V
4		breldmg 5916	. . . . . . . . . . 11 ⊢ ((⟨𝐵, 𝐴⟩ ∈ V ∧ 𝐶 ∈ 𝑉 ∧ ⟨𝐵, 𝐴⟩𝐹𝐶) → ⟨𝐵, 𝐴⟩ ∈ dom 𝐹)
5	4	3expia 1118	. . . . . . . . . 10 ⊢ ((⟨𝐵, 𝐴⟩ ∈ V ∧ 𝐶 ∈ 𝑉) → (⟨𝐵, 𝐴⟩𝐹𝐶 → ⟨𝐵, 𝐴⟩ ∈ dom 𝐹))
6	3, 5	mpan 688	. . . . . . . . 9 ⊢ (𝐶 ∈ 𝑉 → (⟨𝐵, 𝐴⟩𝐹𝐶 → ⟨𝐵, 𝐴⟩ ∈ dom 𝐹))
7	6	adantr 479	. . . . . . . 8 ⊢ ((𝐶 ∈ 𝑉 ∧ (𝐴 ∈ V ∧ 𝐵 ∈ V)) → (⟨𝐵, 𝐴⟩𝐹𝐶 → ⟨𝐵, 𝐴⟩ ∈ dom 𝐹))
8		opelcnvg 5887	. . . . . . . . 9 ⊢ ((𝐴 ∈ V ∧ 𝐵 ∈ V) → (⟨𝐴, 𝐵⟩ ∈ ◡dom 𝐹 ↔ ⟨𝐵, 𝐴⟩ ∈ dom 𝐹))
9	8	adantl 480	. . . . . . . 8 ⊢ ((𝐶 ∈ 𝑉 ∧ (𝐴 ∈ V ∧ 𝐵 ∈ V)) → (⟨𝐴, 𝐵⟩ ∈ ◡dom 𝐹 ↔ ⟨𝐵, 𝐴⟩ ∈ dom 𝐹))
10	7, 9	sylibrd 258	. . . . . . 7 ⊢ ((𝐶 ∈ 𝑉 ∧ (𝐴 ∈ V ∧ 𝐵 ∈ V)) → (⟨𝐵, 𝐴⟩𝐹𝐶 → ⟨𝐴, 𝐵⟩ ∈ ◡dom 𝐹))
11		elun1 4177	. . . . . . 7 ⊢ (⟨𝐴, 𝐵⟩ ∈ ◡dom 𝐹 → ⟨𝐴, 𝐵⟩ ∈ (◡dom 𝐹 ∪ {∅}))
12	10, 11	syl6 35	. . . . . 6 ⊢ ((𝐶 ∈ 𝑉 ∧ (𝐴 ∈ V ∧ 𝐵 ∈ V)) → (⟨𝐵, 𝐴⟩𝐹𝐶 → ⟨𝐴, 𝐵⟩ ∈ (◡dom 𝐹 ∪ {∅})))
13	12	pm4.71rd 561	. . . . 5 ⊢ ((𝐶 ∈ 𝑉 ∧ (𝐴 ∈ V ∧ 𝐵 ∈ V)) → (⟨𝐵, 𝐴⟩𝐹𝐶 ↔ (⟨𝐴, 𝐵⟩ ∈ (◡dom 𝐹 ∪ {∅}) ∧ ⟨𝐵, 𝐴⟩𝐹𝐶)))
14		opswap 6240	. . . . . . 7 ⊢ ∪ ◡{⟨𝐴, 𝐵⟩} = ⟨𝐵, 𝐴⟩
15	14	breq1i 5160	. . . . . 6 ⊢ (∪ ◡{⟨𝐴, 𝐵⟩}𝐹𝐶 ↔ ⟨𝐵, 𝐴⟩𝐹𝐶)
16	15	anbi2i 621	. . . . 5 ⊢ ((⟨𝐴, 𝐵⟩ ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{⟨𝐴, 𝐵⟩}𝐹𝐶) ↔ (⟨𝐴, 𝐵⟩ ∈ (◡dom 𝐹 ∪ {∅}) ∧ ⟨𝐵, 𝐴⟩𝐹𝐶))
17	13, 16	bitr4di 288	. . . 4 ⊢ ((𝐶 ∈ 𝑉 ∧ (𝐴 ∈ V ∧ 𝐵 ∈ V)) → (⟨𝐵, 𝐴⟩𝐹𝐶 ↔ (⟨𝐴, 𝐵⟩ ∈ (◡dom 𝐹 ∪ {∅}) ∧ ∪ ◡{⟨𝐴, 𝐵⟩}𝐹𝐶)))
18	2, 17	bitr4d 281	. . 3 ⊢ ((𝐶 ∈ 𝑉 ∧ (𝐴 ∈ V ∧ 𝐵 ∈ V)) → (⟨𝐴, 𝐵⟩tpos 𝐹𝐶 ↔ ⟨𝐵, 𝐴⟩𝐹𝐶))
19	18	ex 411	. 2 ⊢ (𝐶 ∈ 𝑉 → ((𝐴 ∈ V ∧ 𝐵 ∈ V) → (⟨𝐴, 𝐵⟩tpos 𝐹𝐶 ↔ ⟨𝐵, 𝐴⟩𝐹𝐶)))
20		brtpos0 8248	. . 3 ⊢ (𝐶 ∈ 𝑉 → (∅tpos 𝐹𝐶 ↔ ∅𝐹𝐶))
21		opprc 4902	. . . . 5 ⊢ (¬ (𝐴 ∈ V ∧ 𝐵 ∈ V) → ⟨𝐴, 𝐵⟩ = ∅)
22	21	breq1d 5163	. . . 4 ⊢ (¬ (𝐴 ∈ V ∧ 𝐵 ∈ V) → (⟨𝐴, 𝐵⟩tpos 𝐹𝐶 ↔ ∅tpos 𝐹𝐶))
23		ancom 459	. . . . 5 ⊢ ((𝐴 ∈ V ∧ 𝐵 ∈ V) ↔ (𝐵 ∈ V ∧ 𝐴 ∈ V))
24		opprc 4902	. . . . . 6 ⊢ (¬ (𝐵 ∈ V ∧ 𝐴 ∈ V) → ⟨𝐵, 𝐴⟩ = ∅)
25	24	breq1d 5163	. . . . 5 ⊢ (¬ (𝐵 ∈ V ∧ 𝐴 ∈ V) → (⟨𝐵, 𝐴⟩𝐹𝐶 ↔ ∅𝐹𝐶))
26	23, 25	sylnbi 329	. . . 4 ⊢ (¬ (𝐴 ∈ V ∧ 𝐵 ∈ V) → (⟨𝐵, 𝐴⟩𝐹𝐶 ↔ ∅𝐹𝐶))
27	22, 26	bibi12d 344	. . 3 ⊢ (¬ (𝐴 ∈ V ∧ 𝐵 ∈ V) → ((⟨𝐴, 𝐵⟩tpos 𝐹𝐶 ↔ ⟨𝐵, 𝐴⟩𝐹𝐶) ↔ (∅tpos 𝐹𝐶 ↔ ∅𝐹𝐶)))
28	20, 27	syl5ibrcom 246	. 2 ⊢ (𝐶 ∈ 𝑉 → (¬ (𝐴 ∈ V ∧ 𝐵 ∈ V) → (⟨𝐴, 𝐵⟩tpos 𝐹𝐶 ↔ ⟨𝐵, 𝐴⟩𝐹𝐶)))
29	19, 28	pm2.61d 179	1 ⊢ (𝐶 ∈ 𝑉 → (⟨𝐴, 𝐵⟩tpos 𝐹𝐶 ↔ ⟨𝐵, 𝐴⟩𝐹𝐶))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 394   ∈ wcel 2099  Vcvv 3462   ∪ cun 3945  ∅c0 4325  {csn 4633  ⟨cop 4639  ∪ cuni 4913   class class class wbr 5153  ^◡ccnv 5681  dom cdm 5682  tpos ctpos 8240

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2167  ax-ext 2697  ax-sep 5304  ax-nul 5311  ax-pow 5369  ax-pr 5433  ax-un 7746

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3an 1086  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2529  df-eu 2558  df-clab 2704  df-cleq 2718  df-clel 2803  df-nfc 2878  df-ne 2931  df-ral 3052  df-rex 3061  df-rab 3420  df-v 3464  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-nul 4326  df-if 4534  df-pw 4609  df-sn 4634  df-pr 4636  df-op 4640  df-uni 4914  df-br 5154  df-opab 5216  df-mpt 5237  df-id 5580  df-xp 5688  df-rel 5689  df-cnv 5690  df-co 5691  df-dm 5692  df-rn 5693  df-res 5694  df-ima 5695  df-iota 6506  df-fun 6556  df-fn 6557  df-fv 6562  df-tpos 8241

This theorem is referenced by:  ottpos  8251  relbrtpos  8252  dmtpos  8253  rntpos  8254  ovtpos  8256  dftpos3  8259  tpostpos  8261