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 32840
Description: Lemma for cycpmconjv 32841. (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 6835 . . . 4 (𝐹:𝐷–1-1-onto→𝐷 β†’ Fun 𝐹)
31, 2syl 17 . . 3 (πœ‘ β†’ Fun 𝐹)
4 funrel 6564 . . . . . . 7 (Fun 𝐹 β†’ Rel 𝐹)
5 dfrel2 6187 . . . . . . 7 (Rel 𝐹 ↔ ◑◑𝐹 = 𝐹)
64, 5sylib 217 . . . . . 6 (Fun 𝐹 β†’ ◑◑𝐹 = 𝐹)
76reseq1d 5978 . . . . 5 (Fun 𝐹 β†’ (◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡)) = (𝐹 β†Ύ (𝐷 βˆ– 𝐡)))
87cnveqd 5872 . . . 4 (Fun 𝐹 β†’ β—‘(◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡)) = β—‘(𝐹 β†Ύ (𝐷 βˆ– 𝐡)))
98coeq2d 5859 . . 3 (Fun 𝐹 β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(𝐹 β†Ύ (𝐷 βˆ– 𝐡))))
103, 9syl 17 . 2 (πœ‘ β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(𝐹 β†Ύ (𝐷 βˆ– 𝐡))))
11 difssd 4128 . . . . . 6 (πœ‘ β†’ (𝐷 βˆ– 𝐡) βŠ† 𝐷)
12 f1odm 6837 . . . . . . 7 (𝐹:𝐷–1-1-onto→𝐷 β†’ dom 𝐹 = 𝐷)
131, 12syl 17 . . . . . 6 (πœ‘ β†’ dom 𝐹 = 𝐷)
1411, 13sseqtrrd 4019 . . . . 5 (πœ‘ β†’ (𝐷 βˆ– 𝐡) βŠ† dom 𝐹)
15 ssdmres 6002 . . . . 5 ((𝐷 βˆ– 𝐡) βŠ† dom 𝐹 ↔ dom (𝐹 β†Ύ (𝐷 βˆ– 𝐡)) = (𝐷 βˆ– 𝐡))
1614, 15sylib 217 . . . 4 (πœ‘ β†’ dom (𝐹 β†Ύ (𝐷 βˆ– 𝐡)) = (𝐷 βˆ– 𝐡))
17 ssidd 4001 . . . 4 (πœ‘ β†’ (𝐷 βˆ– 𝐡) βŠ† (𝐷 βˆ– 𝐡))
1816, 17eqsstrd 4016 . . 3 (πœ‘ β†’ dom (𝐹 β†Ύ (𝐷 βˆ– 𝐡)) βŠ† (𝐷 βˆ– 𝐡))
19 cores2 6257 . . 3 (dom (𝐹 β†Ύ (𝐷 βˆ– 𝐡)) βŠ† (𝐷 βˆ– 𝐡) β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ ◑𝐹))
2018, 19syl 17 . 2 (πœ‘ β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ ◑𝐹))
21 f1ocnv 6845 . . . . . 6 (𝐹:𝐷–1-1-onto→𝐷 β†’ ◑𝐹:𝐷–1-1-onto→𝐷)
22 f1ofun 6835 . . . . . 6 (◑𝐹:𝐷–1-1-onto→𝐷 β†’ Fun ◑𝐹)
231, 21, 223syl 18 . . . . 5 (πœ‘ β†’ Fun ◑𝐹)
24 ssidd 4001 . . . . . . . 8 (πœ‘ β†’ 𝐷 βŠ† 𝐷)
2524, 13sseqtrrd 4019 . . . . . . 7 (πœ‘ β†’ 𝐷 βŠ† dom 𝐹)
26 fores 6815 . . . . . . 7 ((Fun 𝐹 ∧ 𝐷 βŠ† dom 𝐹) β†’ (𝐹 β†Ύ 𝐷):𝐷–ontoβ†’(𝐹 β€œ 𝐷))
273, 25, 26syl2anc 583 . . . . . 6 (πœ‘ β†’ (𝐹 β†Ύ 𝐷):𝐷–ontoβ†’(𝐹 β€œ 𝐷))
28 df-ima 5685 . . . . . . 7 (𝐹 β€œ 𝐷) = ran (𝐹 β†Ύ 𝐷)
29 foeq3 6803 . . . . . . 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 4019 . . . . . . 7 (πœ‘ β†’ 𝐡 βŠ† dom 𝐹)
34 fores 6815 . . . . . . 7 ((Fun 𝐹 ∧ 𝐡 βŠ† dom 𝐹) β†’ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’(𝐹 β€œ 𝐡))
353, 33, 34syl2anc 583 . . . . . 6 (πœ‘ β†’ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’(𝐹 β€œ 𝐡))
36 df-ima 5685 . . . . . . 7 (𝐹 β€œ 𝐡) = ran (𝐹 β†Ύ 𝐡)
37 foeq3 6803 . . . . . . 7 ((𝐹 β€œ 𝐡) = ran (𝐹 β†Ύ 𝐡) β†’ ((𝐹 β†Ύ 𝐡):𝐡–ontoβ†’(𝐹 β€œ 𝐡) ↔ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’ran (𝐹 β†Ύ 𝐡)))
3836, 37ax-mp 5 . . . . . 6 ((𝐹 β†Ύ 𝐡):𝐡–ontoβ†’(𝐹 β€œ 𝐡) ↔ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’ran (𝐹 β†Ύ 𝐡))
3935, 38sylib 217 . . . . 5 (πœ‘ β†’ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’ran (𝐹 β†Ύ 𝐡))
40 resdif 6854 . . . . 5 ((Fun ◑𝐹 ∧ (𝐹 β†Ύ 𝐷):𝐷–ontoβ†’ran (𝐹 β†Ύ 𝐷) ∧ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’ran (𝐹 β†Ύ 𝐡)) β†’ (𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(ran (𝐹 β†Ύ 𝐷) βˆ– ran (𝐹 β†Ύ 𝐡)))
4123, 31, 39, 40syl3anc 1369 . . . 4 (πœ‘ β†’ (𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(ran (𝐹 β†Ύ 𝐷) βˆ– ran (𝐹 β†Ύ 𝐡)))
42 f1ofn 6834 . . . . . . . . 9 (𝐹:𝐷–1-1-onto→𝐷 β†’ 𝐹 Fn 𝐷)
43 fnresdm 6668 . . . . . . . . 9 (𝐹 Fn 𝐷 β†’ (𝐹 β†Ύ 𝐷) = 𝐹)
441, 42, 433syl 18 . . . . . . . 8 (πœ‘ β†’ (𝐹 β†Ύ 𝐷) = 𝐹)
4544rneqd 5934 . . . . . . 7 (πœ‘ β†’ ran (𝐹 β†Ύ 𝐷) = ran 𝐹)
46 f1ofo 6840 . . . . . . . 8 (𝐹:𝐷–1-1-onto→𝐷 β†’ 𝐹:𝐷–onto→𝐷)
47 forn 6808 . . . . . . . 8 (𝐹:𝐷–onto→𝐷 β†’ ran 𝐹 = 𝐷)
481, 46, 473syl 18 . . . . . . 7 (πœ‘ β†’ ran 𝐹 = 𝐷)
4945, 48eqtrd 2767 . . . . . 6 (πœ‘ β†’ ran (𝐹 β†Ύ 𝐷) = 𝐷)
5049difeq1d 4117 . . . . 5 (πœ‘ β†’ (ran (𝐹 β†Ύ 𝐷) βˆ– ran (𝐹 β†Ύ 𝐡)) = (𝐷 βˆ– ran (𝐹 β†Ύ 𝐡)))
5150f1oeq3d 6830 . . . 4 (πœ‘ β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(ran (𝐹 β†Ύ 𝐷) βˆ– ran (𝐹 β†Ύ 𝐡)) ↔ (𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(𝐷 βˆ– ran (𝐹 β†Ύ 𝐡))))
5241, 51mpbid 231 . . 3 (πœ‘ β†’ (𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(𝐷 βˆ– ran (𝐹 β†Ύ 𝐡)))
53 f1ococnv2 6860 . . 3 ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(𝐷 βˆ– ran (𝐹 β†Ύ 𝐡)) β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ( I β†Ύ (𝐷 βˆ– ran (𝐹 β†Ύ 𝐡))))
5452, 53syl 17 . 2 (πœ‘ β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ( I β†Ύ (𝐷 βˆ– ran (𝐹 β†Ύ 𝐡))))
5510, 20, 543eqtr3d 2775 1 (πœ‘ β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ ◑𝐹) = ( I β†Ύ (𝐷 βˆ– ran (𝐹 β†Ύ 𝐡))))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   = wceq 1534   βˆ– cdif 3941   βŠ† wss 3944   I cid 5569  β—‘ccnv 5671  dom cdm 5672  ran crn 5673   β†Ύ cres 5674   β€œ cima 5675   ∘ ccom 5676  Rel wrel 5677  Fun wfun 6536   Fn wfn 6537  β€“ontoβ†’wfo 6540  β€“1-1-ontoβ†’wf1o 6541
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 2164  ax-ext 2698  ax-sep 5293  ax-nul 5300  ax-pr 5423
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 847  df-3an 1087  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2529  df-clab 2705  df-cleq 2719  df-clel 2805  df-ral 3057  df-rex 3066  df-rab 3428  df-v 3471  df-dif 3947  df-un 3949  df-in 3951  df-ss 3961  df-nul 4319  df-if 4525  df-sn 4625  df-pr 4627  df-op 4631  df-br 5143  df-opab 5205  df-id 5570  df-xp 5678  df-rel 5679  df-cnv 5680  df-co 5681  df-dm 5682  df-rn 5683  df-res 5684  df-ima 5685  df-fun 6544  df-fn 6545  df-f 6546  df-f1 6547  df-fo 6548  df-f1o 6549
This theorem is referenced by:  cycpmconjv  32841
  Copyright terms: Public domain W3C validator