Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  cycpmconjvlem Structured version   Visualization version   GIF version

Theorem cycpmconjvlem 32902
Description: Lemma for cycpmconjv 32903. (Contributed by Thierry Arnoux, 9-Oct-2023.)
Hypotheses
Ref Expression
cycpmconjvlem.f (πœ‘ β†’ 𝐹:𝐷–1-1-onto→𝐷)
cycpmconjvlem.b (πœ‘ β†’ 𝐡 βŠ† 𝐷)
Assertion
Ref Expression
cycpmconjvlem (πœ‘ β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ ◑𝐹) = ( I β†Ύ (𝐷 βˆ– ran (𝐹 β†Ύ 𝐡))))

Proof of Theorem cycpmconjvlem
StepHypRef Expression
1 cycpmconjvlem.f . . . 4 (πœ‘ β†’ 𝐹:𝐷–1-1-onto→𝐷)
2 f1ofun 6834 . . . 4 (𝐹:𝐷–1-1-onto→𝐷 β†’ Fun 𝐹)
31, 2syl 17 . . 3 (πœ‘ β†’ Fun 𝐹)
4 funrel 6565 . . . . . . 7 (Fun 𝐹 β†’ Rel 𝐹)
5 dfrel2 6189 . . . . . . 7 (Rel 𝐹 ↔ ◑◑𝐹 = 𝐹)
64, 5sylib 217 . . . . . 6 (Fun 𝐹 β†’ ◑◑𝐹 = 𝐹)
76reseq1d 5979 . . . . 5 (Fun 𝐹 β†’ (◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡)) = (𝐹 β†Ύ (𝐷 βˆ– 𝐡)))
87cnveqd 5873 . . . 4 (Fun 𝐹 β†’ β—‘(◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡)) = β—‘(𝐹 β†Ύ (𝐷 βˆ– 𝐡)))
98coeq2d 5860 . . 3 (Fun 𝐹 β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(𝐹 β†Ύ (𝐷 βˆ– 𝐡))))
103, 9syl 17 . 2 (πœ‘ β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(𝐹 β†Ύ (𝐷 βˆ– 𝐡))))
11 difssd 4126 . . . . . 6 (πœ‘ β†’ (𝐷 βˆ– 𝐡) βŠ† 𝐷)
12 f1odm 6836 . . . . . . 7 (𝐹:𝐷–1-1-onto→𝐷 β†’ dom 𝐹 = 𝐷)
131, 12syl 17 . . . . . 6 (πœ‘ β†’ dom 𝐹 = 𝐷)
1411, 13sseqtrrd 4015 . . . . 5 (πœ‘ β†’ (𝐷 βˆ– 𝐡) βŠ† dom 𝐹)
15 ssdmres 6013 . . . . 5 ((𝐷 βˆ– 𝐡) βŠ† dom 𝐹 ↔ dom (𝐹 β†Ύ (𝐷 βˆ– 𝐡)) = (𝐷 βˆ– 𝐡))
1614, 15sylib 217 . . . 4 (πœ‘ β†’ dom (𝐹 β†Ύ (𝐷 βˆ– 𝐡)) = (𝐷 βˆ– 𝐡))
17 ssidd 3997 . . . 4 (πœ‘ β†’ (𝐷 βˆ– 𝐡) βŠ† (𝐷 βˆ– 𝐡))
1816, 17eqsstrd 4012 . . 3 (πœ‘ β†’ dom (𝐹 β†Ύ (𝐷 βˆ– 𝐡)) βŠ† (𝐷 βˆ– 𝐡))
19 cores2 6259 . . 3 (dom (𝐹 β†Ύ (𝐷 βˆ– 𝐡)) βŠ† (𝐷 βˆ– 𝐡) β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ ◑𝐹))
2018, 19syl 17 . 2 (πœ‘ β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ ◑𝐹))
21 f1ocnv 6844 . . . . . 6 (𝐹:𝐷–1-1-onto→𝐷 β†’ ◑𝐹:𝐷–1-1-onto→𝐷)
22 f1ofun 6834 . . . . . 6 (◑𝐹:𝐷–1-1-onto→𝐷 β†’ Fun ◑𝐹)
231, 21, 223syl 18 . . . . 5 (πœ‘ β†’ Fun ◑𝐹)
24 ssidd 3997 . . . . . . . 8 (πœ‘ β†’ 𝐷 βŠ† 𝐷)
2524, 13sseqtrrd 4015 . . . . . . 7 (πœ‘ β†’ 𝐷 βŠ† dom 𝐹)
26 fores 6814 . . . . . . 7 ((Fun 𝐹 ∧ 𝐷 βŠ† dom 𝐹) β†’ (𝐹 β†Ύ 𝐷):𝐷–ontoβ†’(𝐹 β€œ 𝐷))
273, 25, 26syl2anc 582 . . . . . 6 (πœ‘ β†’ (𝐹 β†Ύ 𝐷):𝐷–ontoβ†’(𝐹 β€œ 𝐷))
28 df-ima 5686 . . . . . . 7 (𝐹 β€œ 𝐷) = ran (𝐹 β†Ύ 𝐷)
29 foeq3 6802 . . . . . . 7 ((𝐹 β€œ 𝐷) = ran (𝐹 β†Ύ 𝐷) β†’ ((𝐹 β†Ύ 𝐷):𝐷–ontoβ†’(𝐹 β€œ 𝐷) ↔ (𝐹 β†Ύ 𝐷):𝐷–ontoβ†’ran (𝐹 β†Ύ 𝐷)))
3028, 29ax-mp 5 . . . . . 6 ((𝐹 β†Ύ 𝐷):𝐷–ontoβ†’(𝐹 β€œ 𝐷) ↔ (𝐹 β†Ύ 𝐷):𝐷–ontoβ†’ran (𝐹 β†Ύ 𝐷))
3127, 30sylib 217 . . . . 5 (πœ‘ β†’ (𝐹 β†Ύ 𝐷):𝐷–ontoβ†’ran (𝐹 β†Ύ 𝐷))
32 cycpmconjvlem.b . . . . . . . 8 (πœ‘ β†’ 𝐡 βŠ† 𝐷)
3332, 13sseqtrrd 4015 . . . . . . 7 (πœ‘ β†’ 𝐡 βŠ† dom 𝐹)
34 fores 6814 . . . . . . 7 ((Fun 𝐹 ∧ 𝐡 βŠ† dom 𝐹) β†’ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’(𝐹 β€œ 𝐡))
353, 33, 34syl2anc 582 . . . . . 6 (πœ‘ β†’ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’(𝐹 β€œ 𝐡))
36 df-ima 5686 . . . . . . 7 (𝐹 β€œ 𝐡) = ran (𝐹 β†Ύ 𝐡)
37 foeq3 6802 . . . . . . 7 ((𝐹 β€œ 𝐡) = ran (𝐹 β†Ύ 𝐡) β†’ ((𝐹 β†Ύ 𝐡):𝐡–ontoβ†’(𝐹 β€œ 𝐡) ↔ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’ran (𝐹 β†Ύ 𝐡)))
3836, 37ax-mp 5 . . . . . 6 ((𝐹 β†Ύ 𝐡):𝐡–ontoβ†’(𝐹 β€œ 𝐡) ↔ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’ran (𝐹 β†Ύ 𝐡))
3935, 38sylib 217 . . . . 5 (πœ‘ β†’ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’ran (𝐹 β†Ύ 𝐡))
40 resdif 6853 . . . . 5 ((Fun ◑𝐹 ∧ (𝐹 β†Ύ 𝐷):𝐷–ontoβ†’ran (𝐹 β†Ύ 𝐷) ∧ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’ran (𝐹 β†Ύ 𝐡)) β†’ (𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(ran (𝐹 β†Ύ 𝐷) βˆ– ran (𝐹 β†Ύ 𝐡)))
4123, 31, 39, 40syl3anc 1368 . . . 4 (πœ‘ β†’ (𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(ran (𝐹 β†Ύ 𝐷) βˆ– ran (𝐹 β†Ύ 𝐡)))
42 f1ofn 6833 . . . . . . . . 9 (𝐹:𝐷–1-1-onto→𝐷 β†’ 𝐹 Fn 𝐷)
43 fnresdm 6669 . . . . . . . . 9 (𝐹 Fn 𝐷 β†’ (𝐹 β†Ύ 𝐷) = 𝐹)
441, 42, 433syl 18 . . . . . . . 8 (πœ‘ β†’ (𝐹 β†Ύ 𝐷) = 𝐹)
4544rneqd 5935 . . . . . . 7 (πœ‘ β†’ ran (𝐹 β†Ύ 𝐷) = ran 𝐹)
46 f1ofo 6839 . . . . . . . 8 (𝐹:𝐷–1-1-onto→𝐷 β†’ 𝐹:𝐷–onto→𝐷)
47 forn 6807 . . . . . . . 8 (𝐹:𝐷–onto→𝐷 β†’ ran 𝐹 = 𝐷)
481, 46, 473syl 18 . . . . . . 7 (πœ‘ β†’ ran 𝐹 = 𝐷)
4945, 48eqtrd 2765 . . . . . 6 (πœ‘ β†’ ran (𝐹 β†Ύ 𝐷) = 𝐷)
5049difeq1d 4114 . . . . 5 (πœ‘ β†’ (ran (𝐹 β†Ύ 𝐷) βˆ– ran (𝐹 β†Ύ 𝐡)) = (𝐷 βˆ– ran (𝐹 β†Ύ 𝐡)))
5150f1oeq3d 6829 . . . 4 (πœ‘ β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(ran (𝐹 β†Ύ 𝐷) βˆ– ran (𝐹 β†Ύ 𝐡)) ↔ (𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(𝐷 βˆ– ran (𝐹 β†Ύ 𝐡))))
5241, 51mpbid 231 . . 3 (πœ‘ β†’ (𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(𝐷 βˆ– ran (𝐹 β†Ύ 𝐡)))
53 f1ococnv2 6859 . . 3 ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(𝐷 βˆ– ran (𝐹 β†Ύ 𝐡)) β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ( I β†Ύ (𝐷 βˆ– ran (𝐹 β†Ύ 𝐡))))
5452, 53syl 17 . 2 (πœ‘ β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ( I β†Ύ (𝐷 βˆ– ran (𝐹 β†Ύ 𝐡))))
5510, 20, 543eqtr3d 2773 1 (πœ‘ β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ ◑𝐹) = ( I β†Ύ (𝐷 βˆ– ran (𝐹 β†Ύ 𝐡))))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   = wceq 1533   βˆ– cdif 3938   βŠ† wss 3941   I cid 5570  β—‘ccnv 5672  dom cdm 5673  ran crn 5674   β†Ύ cres 5675   β€œ cima 5676   ∘ ccom 5677  Rel wrel 5678  Fun wfun 6537   Fn wfn 6538  β€“ontoβ†’wfo 6541  β€“1-1-ontoβ†’wf1o 6542
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 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-sep 5295  ax-nul 5302  ax-pr 5424
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-clab 2703  df-cleq 2717  df-clel 2802  df-ral 3052  df-rex 3061  df-rab 3420  df-v 3465  df-dif 3944  df-un 3946  df-in 3948  df-ss 3958  df-nul 4320  df-if 4526  df-sn 4626  df-pr 4628  df-op 4632  df-br 5145  df-opab 5207  df-id 5571  df-xp 5679  df-rel 5680  df-cnv 5681  df-co 5682  df-dm 5683  df-rn 5684  df-res 5685  df-ima 5686  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550
This theorem is referenced by:  cycpmconjv  32903
  Copyright terms: Public domain W3C validator