Theorem pmtrfinv 19479

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.

Step	Hyp	Ref	Expression
1		pmtrrn.t	. . . . . . 7 ⊢ 𝑇 = (pmTrsp‘𝐷)
2		pmtrrn.r	. . . . . . 7 ⊢ 𝑅 = ran 𝑇
3		eqid 2737	. . . . . . 7 ⊢ dom (𝐹 ∖ I ) = dom (𝐹 ∖ I )
4	1, 2, 3	pmtrfrn 19476	. . . . . 6 ⊢ (𝐹 ∈ 𝑅 → ((𝐷 ∈ V ∧ dom (𝐹 ∖ I ) ⊆ 𝐷 ∧ dom (𝐹 ∖ I ) ≈ 2o) ∧ 𝐹 = (𝑇‘dom (𝐹 ∖ I ))))
5	4	simpld 494	. . . . 5 ⊢ (𝐹 ∈ 𝑅 → (𝐷 ∈ V ∧ dom (𝐹 ∖ I ) ⊆ 𝐷 ∧ dom (𝐹 ∖ I ) ≈ 2o))
6	1	pmtrf 19473	. . . . 5 ⊢ ((𝐷 ∈ V ∧ dom (𝐹 ∖ I ) ⊆ 𝐷 ∧ dom (𝐹 ∖ I ) ≈ 2o) → (𝑇‘dom (𝐹 ∖ I )):𝐷⟶𝐷)
7	5, 6	syl 17	. . . 4 ⊢ (𝐹 ∈ 𝑅 → (𝑇‘dom (𝐹 ∖ I )):𝐷⟶𝐷)
8	4	simprd 495	. . . . 5 ⊢ (𝐹 ∈ 𝑅 → 𝐹 = (𝑇‘dom (𝐹 ∖ I )))
9	8	feq1d 6720	. . . 4 ⊢ (𝐹 ∈ 𝑅 → (𝐹:𝐷⟶𝐷 ↔ (𝑇‘dom (𝐹 ∖ I )):𝐷⟶𝐷))
10	7, 9	mpbird 257	. . 3 ⊢ (𝐹 ∈ 𝑅 → 𝐹:𝐷⟶𝐷)
11		fco 6760	. . . 4 ⊢ ((𝐹:𝐷⟶𝐷 ∧ 𝐹:𝐷⟶𝐷) → (𝐹 ∘ 𝐹):𝐷⟶𝐷)
12	11	anidms 566	. . 3 ⊢ (𝐹:𝐷⟶𝐷 → (𝐹 ∘ 𝐹):𝐷⟶𝐷)
13		ffn 6736	. . 3 ⊢ ((𝐹 ∘ 𝐹):𝐷⟶𝐷 → (𝐹 ∘ 𝐹) Fn 𝐷)
14	10, 12, 13	3syl 18	. 2 ⊢ (𝐹 ∈ 𝑅 → (𝐹 ∘ 𝐹) Fn 𝐷)
15		fnresi 6697	. . 3 ⊢ ( I ↾ 𝐷) Fn 𝐷
16	15	a1i 11	. 2 ⊢ (𝐹 ∈ 𝑅 → ( I ↾ 𝐷) Fn 𝐷)
17	1, 2, 3	pmtrffv 19477	. . . . . . 7 ⊢ ((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) → (𝐹‘𝑥) = if(𝑥 ∈ dom (𝐹 ∖ I ), ∪ (dom (𝐹 ∖ I ) ∖ {𝑥}), 𝑥))
18		iftrue 4531	. . . . . . 7 ⊢ (𝑥 ∈ dom (𝐹 ∖ I ) → if(𝑥 ∈ dom (𝐹 ∖ I ), ∪ (dom (𝐹 ∖ I ) ∖ {𝑥}), 𝑥) = ∪ (dom (𝐹 ∖ I ) ∖ {𝑥}))
19	17, 18	sylan9eq 2797	. . . . . 6 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → (𝐹‘𝑥) = ∪ (dom (𝐹 ∖ I ) ∖ {𝑥}))
20	19	fveq2d 6910	. . . . 5 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → (𝐹‘(𝐹‘𝑥)) = (𝐹‘∪ (dom (𝐹 ∖ I ) ∖ {𝑥})))
21		simpll 767	. . . . . . 7 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → 𝐹 ∈ 𝑅)
22	5	simp2d 1144	. . . . . . . . 9 ⊢ (𝐹 ∈ 𝑅 → dom (𝐹 ∖ I ) ⊆ 𝐷)
23	22	ad2antrr 726	. . . . . . . 8 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → dom (𝐹 ∖ I ) ⊆ 𝐷)
24		1onn 8678	. . . . . . . . . . 11 ⊢ 1o ∈ ω
25	5	simp3d 1145	. . . . . . . . . . . . 13 ⊢ (𝐹 ∈ 𝑅 → dom (𝐹 ∖ I ) ≈ 2o)
26		df-2o 8507	. . . . . . . . . . . . 13 ⊢ 2o = suc 1o
27	25, 26	breqtrdi 5184	. . . . . . . . . . . 12 ⊢ (𝐹 ∈ 𝑅 → dom (𝐹 ∖ I ) ≈ suc 1o)
28	27	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → dom (𝐹 ∖ I ) ≈ suc 1o)
29		simpr 484	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → 𝑥 ∈ dom (𝐹 ∖ I ))
30		dif1ennn 9201	. . . . . . . . . . 11 ⊢ ((1o ∈ ω ∧ dom (𝐹 ∖ I ) ≈ suc 1o ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → (dom (𝐹 ∖ I ) ∖ {𝑥}) ≈ 1o)
31	24, 28, 29, 30	mp3an2i 1468	. . . . . . . . . 10 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → (dom (𝐹 ∖ I ) ∖ {𝑥}) ≈ 1o)
32		en1uniel 9069	. . . . . . . . . 10 ⊢ ((dom (𝐹 ∖ I ) ∖ {𝑥}) ≈ 1o → ∪ (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ (dom (𝐹 ∖ I ) ∖ {𝑥}))
33	31, 32	syl 17	. . . . . . . . 9 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → ∪ (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ (dom (𝐹 ∖ I ) ∖ {𝑥}))
34	33	eldifad 3963	. . . . . . . 8 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → ∪ (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ dom (𝐹 ∖ I ))
35	23, 34	sseldd 3984	. . . . . . 7 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → ∪ (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ 𝐷)
36	1, 2, 3	pmtrffv 19477	. . . . . . 7 ⊢ ((𝐹 ∈ 𝑅 ∧ ∪ (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ 𝐷) → (𝐹‘∪ (dom (𝐹 ∖ I ) ∖ {𝑥})) = if(∪ (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ dom (𝐹 ∖ I ), ∪ (dom (𝐹 ∖ I ) ∖ {∪ (dom (𝐹 ∖ I ) ∖ {𝑥})}), ∪ (dom (𝐹 ∖ I ) ∖ {𝑥})))
37	21, 35, 36	syl2anc 584	. . . . . 6 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → (𝐹‘∪ (dom (𝐹 ∖ I ) ∖ {𝑥})) = if(∪ (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ dom (𝐹 ∖ I ), ∪ (dom (𝐹 ∖ I ) ∖ {∪ (dom (𝐹 ∖ I ) ∖ {𝑥})}), ∪ (dom (𝐹 ∖ I ) ∖ {𝑥})))
38		iftrue 4531	. . . . . . . 8 ⊢ (∪ (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ dom (𝐹 ∖ I ) → if(∪ (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ dom (𝐹 ∖ I ), ∪ (dom (𝐹 ∖ I ) ∖ {∪ (dom (𝐹 ∖ I ) ∖ {𝑥})}), ∪ (dom (𝐹 ∖ I ) ∖ {𝑥})) = ∪ (dom (𝐹 ∖ I ) ∖ {∪ (dom (𝐹 ∖ I ) ∖ {𝑥})}))
39	34, 38	syl 17	. . . . . . 7 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → if(∪ (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ dom (𝐹 ∖ I ), ∪ (dom (𝐹 ∖ I ) ∖ {∪ (dom (𝐹 ∖ I ) ∖ {𝑥})}), ∪ (dom (𝐹 ∖ I ) ∖ {𝑥})) = ∪ (dom (𝐹 ∖ I ) ∖ {∪ (dom (𝐹 ∖ I ) ∖ {𝑥})}))
40	25	adantr 480	. . . . . . . 8 ⊢ ((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) → dom (𝐹 ∖ I ) ≈ 2o)
41		en2other2 10049	. . . . . . . . 9 ⊢ ((𝑥 ∈ dom (𝐹 ∖ I ) ∧ dom (𝐹 ∖ I ) ≈ 2o) → ∪ (dom (𝐹 ∖ I ) ∖ {∪ (dom (𝐹 ∖ I ) ∖ {𝑥})}) = 𝑥)
42	41	ancoms 458	. . . . . . . 8 ⊢ ((dom (𝐹 ∖ I ) ≈ 2o ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → ∪ (dom (𝐹 ∖ I ) ∖ {∪ (dom (𝐹 ∖ I ) ∖ {𝑥})}) = 𝑥)
43	40, 42	sylan 580	. . . . . . 7 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → ∪ (dom (𝐹 ∖ I ) ∖ {∪ (dom (𝐹 ∖ I ) ∖ {𝑥})}) = 𝑥)
44	39, 43	eqtrd 2777	. . . . . 6 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → if(∪ (dom (𝐹 ∖ I ) ∖ {𝑥}) ∈ dom (𝐹 ∖ I ), ∪ (dom (𝐹 ∖ I ) ∖ {∪ (dom (𝐹 ∖ I ) ∖ {𝑥})}), ∪ (dom (𝐹 ∖ I ) ∖ {𝑥})) = 𝑥)
45	37, 44	eqtrd 2777	. . . . 5 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → (𝐹‘∪ (dom (𝐹 ∖ I ) ∖ {𝑥})) = 𝑥)
46	20, 45	eqtrd 2777	. . . 4 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ 𝑥 ∈ dom (𝐹 ∖ I )) → (𝐹‘(𝐹‘𝑥)) = 𝑥)
47	10	ffnd 6737	. . . . . . . 8 ⊢ (𝐹 ∈ 𝑅 → 𝐹 Fn 𝐷)
48		fnelnfp 7197	. . . . . . . 8 ⊢ ((𝐹 Fn 𝐷 ∧ 𝑥 ∈ 𝐷) → (𝑥 ∈ dom (𝐹 ∖ I ) ↔ (𝐹‘𝑥) ≠ 𝑥))
49	47, 48	sylan 580	. . . . . . 7 ⊢ ((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) → (𝑥 ∈ dom (𝐹 ∖ I ) ↔ (𝐹‘𝑥) ≠ 𝑥))
50	49	necon2bbid 2984	. . . . . 6 ⊢ ((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) → ((𝐹‘𝑥) = 𝑥 ↔ ¬ 𝑥 ∈ dom (𝐹 ∖ I )))
51	50	biimpar 477	. . . . 5 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ ¬ 𝑥 ∈ dom (𝐹 ∖ I )) → (𝐹‘𝑥) = 𝑥)
52		fveq2 6906	. . . . . 6 ⊢ ((𝐹‘𝑥) = 𝑥 → (𝐹‘(𝐹‘𝑥)) = (𝐹‘𝑥))
53		id 22	. . . . . 6 ⊢ ((𝐹‘𝑥) = 𝑥 → (𝐹‘𝑥) = 𝑥)
54	52, 53	eqtrd 2777	. . . . 5 ⊢ ((𝐹‘𝑥) = 𝑥 → (𝐹‘(𝐹‘𝑥)) = 𝑥)
55	51, 54	syl 17	. . . 4 ⊢ (((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) ∧ ¬ 𝑥 ∈ dom (𝐹 ∖ I )) → (𝐹‘(𝐹‘𝑥)) = 𝑥)
56	46, 55	pm2.61dan 813	. . 3 ⊢ ((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) → (𝐹‘(𝐹‘𝑥)) = 𝑥)
57		fvco2 7006	. . . 4 ⊢ ((𝐹 Fn 𝐷 ∧ 𝑥 ∈ 𝐷) → ((𝐹 ∘ 𝐹)‘𝑥) = (𝐹‘(𝐹‘𝑥)))
58	47, 57	sylan 580	. . 3 ⊢ ((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) → ((𝐹 ∘ 𝐹)‘𝑥) = (𝐹‘(𝐹‘𝑥)))
59		fvresi 7193	. . . 4 ⊢ (𝑥 ∈ 𝐷 → (( I ↾ 𝐷)‘𝑥) = 𝑥)
60	59	adantl 481	. . 3 ⊢ ((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) → (( I ↾ 𝐷)‘𝑥) = 𝑥)
61	56, 58, 60	3eqtr4d 2787	. 2 ⊢ ((𝐹 ∈ 𝑅 ∧ 𝑥 ∈ 𝐷) → ((𝐹 ∘ 𝐹)‘𝑥) = (( I ↾ 𝐷)‘𝑥))
62	14, 16, 61	eqfnfvd 7054	1 ⊢ (𝐹 ∈ 𝑅 → (𝐹 ∘ 𝐹) = ( I ↾ 𝐷))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1540   ∈ wcel 2108   ≠ wne 2940  Vcvv 3480   ∖ cdif 3948   ⊆ wss 3951  ifcif 4525  {csn 4626  ∪ cuni 4907   class class class wbr 5143   I cid 5577  dom cdm 5685  ran crn 5686   ↾ cres 5687   ∘ ccom 5689  suc csuc 6386   Fn wfn 6556  ⟶wf 6557  ‘cfv 6561  ωcom 7887  1_oc1o 8499  2_oc2o 8500   ≈ cen 8982  pmTrspcpmtr 19459

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 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2708  ax-rep 5279  ax-sep 5296  ax-nul 5306  ax-pow 5365  ax-pr 5432  ax-un 7755

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2892  df-ne 2941  df-ral 3062  df-rex 3071  df-reu 3381  df-rab 3437  df-v 3482  df-sbc 3789  df-csb 3900  df-dif 3954  df-un 3956  df-in 3958  df-ss 3968  df-pss 3971  df-nul 4334  df-if 4526  df-pw 4602  df-sn 4627  df-pr 4629  df-op 4633  df-uni 4908  df-iun 4993  df-br 5144  df-opab 5206  df-mpt 5226  df-tr 5260  df-id 5578  df-eprel 5584  df-po 5592  df-so 5593  df-fr 5637  df-we 5639  df-xp 5691  df-rel 5692  df-cnv 5693  df-co 5694  df-dm 5695  df-rn 5696  df-res 5697  df-ima 5698  df-ord 6387  df-on 6388  df-lim 6389  df-suc 6390  df-iota 6514  df-fun 6563  df-fn 6564  df-f 6565  df-f1 6566  df-fo 6567  df-f1o 6568  df-fv 6569  df-om 7888  df-1o 8506  df-2o 8507  df-er 8745  df-en 8986  df-dom 8987  df-sdom 8988  df-fin 8989  df-pmtr 19460

This theorem is referenced by:  pmtrff1o  19481  pmtrfcnv  19482  symggen  19488  psgnunilem1  19511  cyc3genpmlem  33171