ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  brtpos2 GIF version

Theorem brtpos2 5998
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.
StepHypRef Expression
1 reltpos 5997 . . . 4 Rel tpos 𝐹
21brrelexi 4468 . . 3 (𝐴tpos 𝐹𝐵𝐴 ∈ V)
32a1i 9 . 2 (𝐵𝑉 → (𝐴tpos 𝐹𝐵𝐴 ∈ V))
4 elex 2630 . . . 4 (𝐴 ∈ (dom 𝐹 ∪ {∅}) → 𝐴 ∈ V)
54adantr 270 . . 3 ((𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ {𝐴}𝐹𝐵) → 𝐴 ∈ V)
65a1i 9 . 2 (𝐵𝑉 → ((𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ {𝐴}𝐹𝐵) → 𝐴 ∈ V))
7 df-tpos 5992 . . . . . 6 tpos 𝐹 = (𝐹 ∘ (𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥}))
87breqi 3843 . . . . 5 (𝐴tpos 𝐹𝐵𝐴(𝐹 ∘ (𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥}))𝐵)
9 brcog 4591 . . . . 5 ((𝐴 ∈ V ∧ 𝐵𝑉) → (𝐴(𝐹 ∘ (𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥}))𝐵 ↔ ∃𝑦(𝐴(𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})𝑦𝑦𝐹𝐵)))
108, 9syl5bb 190 . . . 4 ((𝐴 ∈ V ∧ 𝐵𝑉) → (𝐴tpos 𝐹𝐵 ↔ ∃𝑦(𝐴(𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})𝑦𝑦𝐹𝐵)))
11 funmpt 5038 . . . . . . . . . . 11 Fun (𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})
12 funbrfv2b 5333 . . . . . . . . . . 11 (Fun (𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥}) → (𝐴(𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})𝑦 ↔ (𝐴 ∈ dom (𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥}) ∧ ((𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})‘𝐴) = 𝑦)))
1311, 12ax-mp 7 . . . . . . . . . 10 (𝐴(𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})𝑦 ↔ (𝐴 ∈ dom (𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥}) ∧ ((𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})‘𝐴) = 𝑦))
14 vex 2622 . . . . . . . . . . . . . . . . 17 𝑥 ∈ V
15 snexg 4010 . . . . . . . . . . . . . . . . 17 (𝑥 ∈ V → {𝑥} ∈ V)
1614, 15ax-mp 7 . . . . . . . . . . . . . . . 16 {𝑥} ∈ V
1716cnvex 4956 . . . . . . . . . . . . . . 15 {𝑥} ∈ V
1817uniex 4255 . . . . . . . . . . . . . 14 {𝑥} ∈ V
19 eqid 2088 . . . . . . . . . . . . . 14 (𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥}) = (𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})
2018, 19dmmpti 5129 . . . . . . . . . . . . 13 dom (𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥}) = (dom 𝐹 ∪ {∅})
2120eleq2i 2154 . . . . . . . . . . . 12 (𝐴 ∈ dom (𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥}) ↔ 𝐴 ∈ (dom 𝐹 ∪ {∅}))
22 eqcom 2090 . . . . . . . . . . . 12 (((𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})‘𝐴) = 𝑦𝑦 = ((𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})‘𝐴))
2321, 22anbi12i 448 . . . . . . . . . . 11 ((𝐴 ∈ dom (𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥}) ∧ ((𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})‘𝐴) = 𝑦) ↔ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦 = ((𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})‘𝐴)))
24 snexg 4010 . . . . . . . . . . . . . . . 16 (𝐴 ∈ (dom 𝐹 ∪ {∅}) → {𝐴} ∈ V)
25 cnvexg 4955 . . . . . . . . . . . . . . . 16 ({𝐴} ∈ V → {𝐴} ∈ V)
2624, 25syl 14 . . . . . . . . . . . . . . 15 (𝐴 ∈ (dom 𝐹 ∪ {∅}) → {𝐴} ∈ V)
27 uniexg 4256 . . . . . . . . . . . . . . 15 ({𝐴} ∈ V → {𝐴} ∈ V)
2826, 27syl 14 . . . . . . . . . . . . . 14 (𝐴 ∈ (dom 𝐹 ∪ {∅}) → {𝐴} ∈ V)
29 sneq 3452 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝐴 → {𝑥} = {𝐴})
3029cnveqd 4600 . . . . . . . . . . . . . . . 16 (𝑥 = 𝐴{𝑥} = {𝐴})
3130unieqd 3659 . . . . . . . . . . . . . . 15 (𝑥 = 𝐴 {𝑥} = {𝐴})
3231, 19fvmptg 5364 . . . . . . . . . . . . . 14 ((𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ {𝐴} ∈ V) → ((𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})‘𝐴) = {𝐴})
3328, 32mpdan 412 . . . . . . . . . . . . 13 (𝐴 ∈ (dom 𝐹 ∪ {∅}) → ((𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})‘𝐴) = {𝐴})
3433eqeq2d 2099 . . . . . . . . . . . 12 (𝐴 ∈ (dom 𝐹 ∪ {∅}) → (𝑦 = ((𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})‘𝐴) ↔ 𝑦 = {𝐴}))
3534pm5.32i 442 . . . . . . . . . . 11 ((𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦 = ((𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})‘𝐴)) ↔ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦 = {𝐴}))
3623, 35bitri 182 . . . . . . . . . 10 ((𝐴 ∈ dom (𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥}) ∧ ((𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})‘𝐴) = 𝑦) ↔ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦 = {𝐴}))
3713, 36bitri 182 . . . . . . . . 9 (𝐴(𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})𝑦 ↔ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦 = {𝐴}))
38 ancom 262 . . . . . . . . 9 ((𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦 = {𝐴}) ↔ (𝑦 = {𝐴} ∧ 𝐴 ∈ (dom 𝐹 ∪ {∅})))
3937, 38bitri 182 . . . . . . . 8 (𝐴(𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})𝑦 ↔ (𝑦 = {𝐴} ∧ 𝐴 ∈ (dom 𝐹 ∪ {∅})))
4039anbi1i 446 . . . . . . 7 ((𝐴(𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})𝑦𝑦𝐹𝐵) ↔ ((𝑦 = {𝐴} ∧ 𝐴 ∈ (dom 𝐹 ∪ {∅})) ∧ 𝑦𝐹𝐵))
41 anass 393 . . . . . . 7 (((𝑦 = {𝐴} ∧ 𝐴 ∈ (dom 𝐹 ∪ {∅})) ∧ 𝑦𝐹𝐵) ↔ (𝑦 = {𝐴} ∧ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)))
4240, 41bitri 182 . . . . . 6 ((𝐴(𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})𝑦𝑦𝐹𝐵) ↔ (𝑦 = {𝐴} ∧ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)))
4342exbii 1541 . . . . 5 (∃𝑦(𝐴(𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})𝑦𝑦𝐹𝐵) ↔ ∃𝑦(𝑦 = {𝐴} ∧ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)))
44 exsimpr 1554 . . . . . . 7 (∃𝑦(𝑦 = {𝐴} ∧ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)) → ∃𝑦(𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵))
45 exsimpl 1553 . . . . . . . 8 (∃𝑦(𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵) → ∃𝑦 𝐴 ∈ (dom 𝐹 ∪ {∅}))
46 19.9v 1799 . . . . . . . 8 (∃𝑦 𝐴 ∈ (dom 𝐹 ∪ {∅}) ↔ 𝐴 ∈ (dom 𝐹 ∪ {∅}))
4745, 46sylib 120 . . . . . . 7 (∃𝑦(𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵) → 𝐴 ∈ (dom 𝐹 ∪ {∅}))
4844, 47syl 14 . . . . . 6 (∃𝑦(𝑦 = {𝐴} ∧ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)) → 𝐴 ∈ (dom 𝐹 ∪ {∅}))
49 simpl 107 . . . . . 6 ((𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ {𝐴}𝐹𝐵) → 𝐴 ∈ (dom 𝐹 ∪ {∅}))
50 breq1 3840 . . . . . . . . 9 (𝑦 = {𝐴} → (𝑦𝐹𝐵 {𝐴}𝐹𝐵))
5150anbi2d 452 . . . . . . . 8 (𝑦 = {𝐴} → ((𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵) ↔ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ {𝐴}𝐹𝐵)))
5251ceqsexgv 2744 . . . . . . 7 ( {𝐴} ∈ V → (∃𝑦(𝑦 = {𝐴} ∧ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)) ↔ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ {𝐴}𝐹𝐵)))
5328, 52syl 14 . . . . . 6 (𝐴 ∈ (dom 𝐹 ∪ {∅}) → (∃𝑦(𝑦 = {𝐴} ∧ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)) ↔ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ {𝐴}𝐹𝐵)))
5448, 49, 53pm5.21nii 655 . . . . 5 (∃𝑦(𝑦 = {𝐴} ∧ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ 𝑦𝐹𝐵)) ↔ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ {𝐴}𝐹𝐵))
5543, 54bitri 182 . . . 4 (∃𝑦(𝐴(𝑥 ∈ (dom 𝐹 ∪ {∅}) ↦ {𝑥})𝑦𝑦𝐹𝐵) ↔ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ {𝐴}𝐹𝐵))
5610, 55syl6bb 194 . . 3 ((𝐴 ∈ V ∧ 𝐵𝑉) → (𝐴tpos 𝐹𝐵 ↔ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ {𝐴}𝐹𝐵)))
5756expcom 114 . 2 (𝐵𝑉 → (𝐴 ∈ V → (𝐴tpos 𝐹𝐵 ↔ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ {𝐴}𝐹𝐵))))
583, 6, 57pm5.21ndd 656 1 (𝐵𝑉 → (𝐴tpos 𝐹𝐵 ↔ (𝐴 ∈ (dom 𝐹 ∪ {∅}) ∧ {𝐴}𝐹𝐵)))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 102  wb 103   = wceq 1289  wex 1426  wcel 1438  Vcvv 2619  cun 2995  c0 3284  {csn 3441   cuni 3648   class class class wbr 3837  cmpt 3891  ccnv 4427  dom cdm 4428  ccom 4432  Fun wfun 4996  cfv 5002  tpos ctpos 5991
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-io 665  ax-5 1381  ax-7 1382  ax-gen 1383  ax-ie1 1427  ax-ie2 1428  ax-8 1440  ax-10 1441  ax-11 1442  ax-i12 1443  ax-bndl 1444  ax-4 1445  ax-13 1449  ax-14 1450  ax-17 1464  ax-i9 1468  ax-ial 1472  ax-i5r 1473  ax-ext 2070  ax-sep 3949  ax-pow 4001  ax-pr 4027  ax-un 4251
This theorem depends on definitions:  df-bi 115  df-3an 926  df-tru 1292  df-nf 1395  df-sb 1693  df-eu 1951  df-mo 1952  df-clab 2075  df-cleq 2081  df-clel 2084  df-nfc 2217  df-ral 2364  df-rex 2365  df-rab 2368  df-v 2621  df-sbc 2839  df-un 3001  df-in 3003  df-ss 3010  df-pw 3427  df-sn 3447  df-pr 3448  df-op 3450  df-uni 3649  df-br 3838  df-opab 3892  df-mpt 3893  df-id 4111  df-xp 4434  df-rel 4435  df-cnv 4436  df-co 4437  df-dm 4438  df-rn 4439  df-res 4440  df-ima 4441  df-iota 4967  df-fun 5004  df-fn 5005  df-fv 5010  df-tpos 5992
This theorem is referenced by:  brtpos0  5999  reldmtpos  6000  brtposg  6001  dftpos4  6010  tpostpos  6011
  Copyright terms: Public domain W3C validator