MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  pmtrfinv Structured version   Visualization version   GIF version

Theorem pmtrfinv 18581
Description: A transposition function is an involution. (Contributed by Stefan O'Rear, 22-Aug-2015.)
Hypotheses
Ref Expression
pmtrrn.t 𝑇 = (pmTrsp‘𝐷)
pmtrrn.r 𝑅 = ran 𝑇
Assertion
Ref Expression
pmtrfinv (𝐹𝑅 → (𝐹𝐹) = ( I ↾ 𝐷))

Proof of Theorem pmtrfinv
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 pmtrrn.t . . . . . . 7 𝑇 = (pmTrsp‘𝐷)
2 pmtrrn.r . . . . . . 7 𝑅 = ran 𝑇
3 eqid 2819 . . . . . . 7 dom (𝐹 ∖ I ) = dom (𝐹 ∖ I )
41, 2, 3pmtrfrn 18578 . . . . . 6 (𝐹𝑅 → ((𝐷 ∈ V ∧ dom (𝐹 ∖ I ) ⊆ 𝐷 ∧ dom (𝐹 ∖ I ) ≈ 2o) ∧ 𝐹 = (𝑇‘dom (𝐹 ∖ I ))))
54simpld 497 . . . . 5 (𝐹𝑅 → (𝐷 ∈ V ∧ dom (𝐹 ∖ I ) ⊆ 𝐷 ∧ dom (𝐹 ∖ I ) ≈ 2o))
61pmtrf 18575 . . . . 5 ((𝐷 ∈ V ∧ dom (𝐹 ∖ I ) ⊆ 𝐷 ∧ dom (𝐹 ∖ I ) ≈ 2o) → (𝑇‘dom (𝐹 ∖ I )):𝐷𝐷)
75, 6syl 17 . . . 4 (𝐹𝑅 → (𝑇‘dom (𝐹 ∖ I )):𝐷𝐷)
84simprd 498 . . . . 5 (𝐹𝑅𝐹 = (𝑇‘dom (𝐹 ∖ I )))
98feq1d 6492 . . . 4 (𝐹𝑅 → (𝐹:𝐷𝐷 ↔ (𝑇‘dom (𝐹 ∖ I )):𝐷𝐷))
107, 9mpbird 259 . . 3 (𝐹𝑅𝐹:𝐷𝐷)
11 fco 6524 . . . 4 ((𝐹:𝐷𝐷𝐹:𝐷𝐷) → (𝐹𝐹):𝐷𝐷)
1211anidms 569 . . 3 (𝐹:𝐷𝐷 → (𝐹𝐹):𝐷𝐷)
13 ffn 6507 . . 3 ((𝐹𝐹):𝐷𝐷 → (𝐹𝐹) Fn 𝐷)
1410, 12, 133syl 18 . 2 (𝐹𝑅 → (𝐹𝐹) Fn 𝐷)
15 fnresi 6469 . . 3 ( I ↾ 𝐷) Fn 𝐷
1615a1i 11 . 2 (𝐹𝑅 → ( I ↾ 𝐷) Fn 𝐷)
171, 2, 3pmtrffv 18579 . . . . . . 7 ((𝐹𝑅𝑥𝐷) → (𝐹𝑥) = if(𝑥 ∈ dom (𝐹 ∖ I ), (dom (𝐹 ∖ I ) ∖ {𝑥}), 𝑥))
18 iftrue 4471 . . . . . . 7 (𝑥 ∈ dom (𝐹 ∖ I ) → if(𝑥 ∈ dom (𝐹 ∖ I ), (dom (𝐹 ∖ I ) ∖ {𝑥}), 𝑥) = (dom (𝐹 ∖ I ) ∖ {𝑥}))
1917, 18sylan9eq 2874 . . . . . 6 (((𝐹𝑅𝑥𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → (𝐹𝑥) = (dom (𝐹 ∖ I ) ∖ {𝑥}))
2019fveq2d 6667 . . . . 5 (((𝐹𝑅𝑥𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → (𝐹‘(𝐹𝑥)) = (𝐹 (dom (𝐹 ∖ I ) ∖ {𝑥})))
21 simpll 765 . . . . . . 7 (((𝐹𝑅𝑥𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → 𝐹𝑅)
225simp2d 1137 . . . . . . . . 9 (𝐹𝑅 → dom (𝐹 ∖ I ) ⊆ 𝐷)
2322ad2antrr 724 . . . . . . . 8 (((𝐹𝑅𝑥𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → dom (𝐹 ∖ I ) ⊆ 𝐷)
24 1onn 8257 . . . . . . . . . . 11 1o ∈ ω
255simp3d 1138 . . . . . . . . . . . . 13 (𝐹𝑅 → dom (𝐹 ∖ I ) ≈ 2o)
26 df-2o 8095 . . . . . . . . . . . . 13 2o = suc 1o
2725, 26breqtrdi 5098 . . . . . . . . . . . 12 (𝐹𝑅 → dom (𝐹 ∖ I ) ≈ suc 1o)
2827ad2antrr 724 . . . . . . . . . . 11 (((𝐹𝑅𝑥𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → dom (𝐹 ∖ I ) ≈ suc 1o)
29 simpr 487 . . . . . . . . . . 11 (((𝐹𝑅𝑥𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → 𝑥 ∈ dom (𝐹 ∖ I ))
30 dif1en 8743 . . . . . . . . . . 11 ((1o ∈ ω ∧ dom (𝐹 ∖ I ) ≈ suc 1o𝑥 ∈ dom (𝐹 ∖ I )) → (dom (𝐹 ∖ I ) ∖ {𝑥}) ≈ 1o)
3124, 28, 29, 30mp3an2i 1459 . . . . . . . . . 10 (((𝐹𝑅𝑥𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → (dom (𝐹 ∖ I ) ∖ {𝑥}) ≈ 1o)
32 en1uniel 8573 . . . . . . . . . 10 ((dom (𝐹 ∖ I ) ∖ {𝑥}) ≈ 1o (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ (dom (𝐹 ∖ I ) ∖ {𝑥}))
3331, 32syl 17 . . . . . . . . 9 (((𝐹𝑅𝑥𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ (dom (𝐹 ∖ I ) ∖ {𝑥}))
3433eldifad 3946 . . . . . . . 8 (((𝐹𝑅𝑥𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ dom (𝐹 ∖ I ))
3523, 34sseldd 3966 . . . . . . 7 (((𝐹𝑅𝑥𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ 𝐷)
361, 2, 3pmtrffv 18579 . . . . . . 7 ((𝐹𝑅 (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ 𝐷) → (𝐹 (dom (𝐹 ∖ I ) ∖ {𝑥})) = if( (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ dom (𝐹 ∖ I ), (dom (𝐹 ∖ I ) ∖ { (dom (𝐹 ∖ I ) ∖ {𝑥})}), (dom (𝐹 ∖ I ) ∖ {𝑥})))
3721, 35, 36syl2anc 586 . . . . . 6 (((𝐹𝑅𝑥𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → (𝐹 (dom (𝐹 ∖ I ) ∖ {𝑥})) = if( (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ dom (𝐹 ∖ I ), (dom (𝐹 ∖ I ) ∖ { (dom (𝐹 ∖ I ) ∖ {𝑥})}), (dom (𝐹 ∖ I ) ∖ {𝑥})))
38 iftrue 4471 . . . . . . . 8 ( (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ dom (𝐹 ∖ I ) → if( (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ dom (𝐹 ∖ I ), (dom (𝐹 ∖ I ) ∖ { (dom (𝐹 ∖ I ) ∖ {𝑥})}), (dom (𝐹 ∖ I ) ∖ {𝑥})) = (dom (𝐹 ∖ I ) ∖ { (dom (𝐹 ∖ I ) ∖ {𝑥})}))
3934, 38syl 17 . . . . . . 7 (((𝐹𝑅𝑥𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → if( (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ dom (𝐹 ∖ I ), (dom (𝐹 ∖ I ) ∖ { (dom (𝐹 ∖ I ) ∖ {𝑥})}), (dom (𝐹 ∖ I ) ∖ {𝑥})) = (dom (𝐹 ∖ I ) ∖ { (dom (𝐹 ∖ I ) ∖ {𝑥})}))
4025adantr 483 . . . . . . . 8 ((𝐹𝑅𝑥𝐷) → dom (𝐹 ∖ I ) ≈ 2o)
41 en2other2 9427 . . . . . . . . 9 ((𝑥 ∈ dom (𝐹 ∖ I ) ∧ dom (𝐹 ∖ I ) ≈ 2o) → (dom (𝐹 ∖ I ) ∖ { (dom (𝐹 ∖ I ) ∖ {𝑥})}) = 𝑥)
4241ancoms 461 . . . . . . . 8 ((dom (𝐹 ∖ I ) ≈ 2o𝑥 ∈ dom (𝐹 ∖ I )) → (dom (𝐹 ∖ I ) ∖ { (dom (𝐹 ∖ I ) ∖ {𝑥})}) = 𝑥)
4340, 42sylan 582 . . . . . . 7 (((𝐹𝑅𝑥𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → (dom (𝐹 ∖ I ) ∖ { (dom (𝐹 ∖ I ) ∖ {𝑥})}) = 𝑥)
4439, 43eqtrd 2854 . . . . . 6 (((𝐹𝑅𝑥𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → if( (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ dom (𝐹 ∖ I ), (dom (𝐹 ∖ I ) ∖ { (dom (𝐹 ∖ I ) ∖ {𝑥})}), (dom (𝐹 ∖ I ) ∖ {𝑥})) = 𝑥)
4537, 44eqtrd 2854 . . . . 5 (((𝐹𝑅𝑥𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → (𝐹 (dom (𝐹 ∖ I ) ∖ {𝑥})) = 𝑥)
4620, 45eqtrd 2854 . . . 4 (((𝐹𝑅𝑥𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → (𝐹‘(𝐹𝑥)) = 𝑥)
4710ffnd 6508 . . . . . . . 8 (𝐹𝑅𝐹 Fn 𝐷)
48 fnelnfp 6932 . . . . . . . 8 ((𝐹 Fn 𝐷𝑥𝐷) → (𝑥 ∈ dom (𝐹 ∖ I ) ↔ (𝐹𝑥) ≠ 𝑥))
4947, 48sylan 582 . . . . . . 7 ((𝐹𝑅𝑥𝐷) → (𝑥 ∈ dom (𝐹 ∖ I ) ↔ (𝐹𝑥) ≠ 𝑥))
5049necon2bbid 3057 . . . . . 6 ((𝐹𝑅𝑥𝐷) → ((𝐹𝑥) = 𝑥 ↔ ¬ 𝑥 ∈ dom (𝐹 ∖ I )))
5150biimpar 480 . . . . 5 (((𝐹𝑅𝑥𝐷) ∧ ¬ 𝑥 ∈ dom (𝐹 ∖ I )) → (𝐹𝑥) = 𝑥)
52 fveq2 6663 . . . . . 6 ((𝐹𝑥) = 𝑥 → (𝐹‘(𝐹𝑥)) = (𝐹𝑥))
53 id 22 . . . . . 6 ((𝐹𝑥) = 𝑥 → (𝐹𝑥) = 𝑥)
5452, 53eqtrd 2854 . . . . 5 ((𝐹𝑥) = 𝑥 → (𝐹‘(𝐹𝑥)) = 𝑥)
5551, 54syl 17 . . . 4 (((𝐹𝑅𝑥𝐷) ∧ ¬ 𝑥 ∈ dom (𝐹 ∖ I )) → (𝐹‘(𝐹𝑥)) = 𝑥)
5646, 55pm2.61dan 811 . . 3 ((𝐹𝑅𝑥𝐷) → (𝐹‘(𝐹𝑥)) = 𝑥)
57 fvco2 6751 . . . 4 ((𝐹 Fn 𝐷𝑥𝐷) → ((𝐹𝐹)‘𝑥) = (𝐹‘(𝐹𝑥)))
5847, 57sylan 582 . . 3 ((𝐹𝑅𝑥𝐷) → ((𝐹𝐹)‘𝑥) = (𝐹‘(𝐹𝑥)))
59 fvresi 6928 . . . 4 (𝑥𝐷 → (( I ↾ 𝐷)‘𝑥) = 𝑥)
6059adantl 484 . . 3 ((𝐹𝑅𝑥𝐷) → (( I ↾ 𝐷)‘𝑥) = 𝑥)
6156, 58, 603eqtr4d 2864 . 2 ((𝐹𝑅𝑥𝐷) → ((𝐹𝐹)‘𝑥) = (( I ↾ 𝐷)‘𝑥))
6214, 16, 61eqfnfvd 6798 1 (𝐹𝑅 → (𝐹𝐹) = ( I ↾ 𝐷))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 398  w3a 1081   = wceq 1530  wcel 2107  wne 3014  Vcvv 3493  cdif 3931  wss 3934  ifcif 4465  {csn 4559   cuni 4830   class class class wbr 5057   I cid 5452  dom cdm 5548  ran crn 5549  cres 5550  ccom 5552  suc csuc 6186   Fn wfn 6343  wf 6344  cfv 6348  ωcom 7572  1oc1o 8087  2oc2o 8088  cen 8498  pmTrspcpmtr 18561
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1904  ax-6 1963  ax-7 2008  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2153  ax-12 2169  ax-ext 2791  ax-rep 5181  ax-sep 5194  ax-nul 5201  ax-pow 5257  ax-pr 5320  ax-un 7453
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1082  df-3an 1083  df-tru 1533  df-ex 1774  df-nf 1778  df-sb 2063  df-mo 2616  df-eu 2648  df-clab 2798  df-cleq 2812  df-clel 2891  df-nfc 2961  df-ne 3015  df-ral 3141  df-rex 3142  df-reu 3143  df-rab 3145  df-v 3495  df-sbc 3771  df-csb 3882  df-dif 3937  df-un 3939  df-in 3941  df-ss 3950  df-pss 3952  df-nul 4290  df-if 4466  df-pw 4539  df-sn 4560  df-pr 4562  df-tp 4564  df-op 4566  df-uni 4831  df-iun 4912  df-br 5058  df-opab 5120  df-mpt 5138  df-tr 5164  df-id 5453  df-eprel 5458  df-po 5467  df-so 5468  df-fr 5507  df-we 5509  df-xp 5554  df-rel 5555  df-cnv 5556  df-co 5557  df-dm 5558  df-rn 5559  df-res 5560  df-ima 5561  df-ord 6187  df-on 6188  df-lim 6189  df-suc 6190  df-iota 6307  df-fun 6350  df-fn 6351  df-f 6352  df-f1 6353  df-fo 6354  df-f1o 6355  df-fv 6356  df-om 7573  df-1o 8094  df-2o 8095  df-er 8281  df-en 8502  df-dom 8503  df-sdom 8504  df-fin 8505  df-pmtr 18562
This theorem is referenced by:  pmtrff1o  18583  pmtrfcnv  18584  symggen  18590  psgnunilem1  18613  cyc3genpmlem  30786
  Copyright terms: Public domain W3C validator