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 32039
Description: Lemma for cycpmconjv 32040. (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 6787 . . . 4 (𝐹:𝐷–1-1-onto→𝐷 β†’ Fun 𝐹)
31, 2syl 17 . . 3 (πœ‘ β†’ Fun 𝐹)
4 funrel 6519 . . . . . . 7 (Fun 𝐹 β†’ Rel 𝐹)
5 dfrel2 6142 . . . . . . 7 (Rel 𝐹 ↔ ◑◑𝐹 = 𝐹)
64, 5sylib 217 . . . . . 6 (Fun 𝐹 β†’ ◑◑𝐹 = 𝐹)
76reseq1d 5937 . . . . 5 (Fun 𝐹 β†’ (◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡)) = (𝐹 β†Ύ (𝐷 βˆ– 𝐡)))
87cnveqd 5832 . . . 4 (Fun 𝐹 β†’ β—‘(◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡)) = β—‘(𝐹 β†Ύ (𝐷 βˆ– 𝐡)))
98coeq2d 5819 . . 3 (Fun 𝐹 β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(𝐹 β†Ύ (𝐷 βˆ– 𝐡))))
103, 9syl 17 . 2 (πœ‘ β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(𝐹 β†Ύ (𝐷 βˆ– 𝐡))))
11 difssd 4093 . . . . . 6 (πœ‘ β†’ (𝐷 βˆ– 𝐡) βŠ† 𝐷)
12 f1odm 6789 . . . . . . 7 (𝐹:𝐷–1-1-onto→𝐷 β†’ dom 𝐹 = 𝐷)
131, 12syl 17 . . . . . 6 (πœ‘ β†’ dom 𝐹 = 𝐷)
1411, 13sseqtrrd 3986 . . . . 5 (πœ‘ β†’ (𝐷 βˆ– 𝐡) βŠ† dom 𝐹)
15 ssdmres 5961 . . . . 5 ((𝐷 βˆ– 𝐡) βŠ† dom 𝐹 ↔ dom (𝐹 β†Ύ (𝐷 βˆ– 𝐡)) = (𝐷 βˆ– 𝐡))
1614, 15sylib 217 . . . 4 (πœ‘ β†’ dom (𝐹 β†Ύ (𝐷 βˆ– 𝐡)) = (𝐷 βˆ– 𝐡))
17 ssidd 3968 . . . 4 (πœ‘ β†’ (𝐷 βˆ– 𝐡) βŠ† (𝐷 βˆ– 𝐡))
1816, 17eqsstrd 3983 . . 3 (πœ‘ β†’ dom (𝐹 β†Ύ (𝐷 βˆ– 𝐡)) βŠ† (𝐷 βˆ– 𝐡))
19 cores2 6212 . . 3 (dom (𝐹 β†Ύ (𝐷 βˆ– 𝐡)) βŠ† (𝐷 βˆ– 𝐡) β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ ◑𝐹))
2018, 19syl 17 . 2 (πœ‘ β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(◑◑𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ ◑𝐹))
21 f1ocnv 6797 . . . . . 6 (𝐹:𝐷–1-1-onto→𝐷 β†’ ◑𝐹:𝐷–1-1-onto→𝐷)
22 f1ofun 6787 . . . . . 6 (◑𝐹:𝐷–1-1-onto→𝐷 β†’ Fun ◑𝐹)
231, 21, 223syl 18 . . . . 5 (πœ‘ β†’ Fun ◑𝐹)
24 ssidd 3968 . . . . . . . 8 (πœ‘ β†’ 𝐷 βŠ† 𝐷)
2524, 13sseqtrrd 3986 . . . . . . 7 (πœ‘ β†’ 𝐷 βŠ† dom 𝐹)
26 fores 6767 . . . . . . 7 ((Fun 𝐹 ∧ 𝐷 βŠ† dom 𝐹) β†’ (𝐹 β†Ύ 𝐷):𝐷–ontoβ†’(𝐹 β€œ 𝐷))
273, 25, 26syl2anc 585 . . . . . 6 (πœ‘ β†’ (𝐹 β†Ύ 𝐷):𝐷–ontoβ†’(𝐹 β€œ 𝐷))
28 df-ima 5647 . . . . . . 7 (𝐹 β€œ 𝐷) = ran (𝐹 β†Ύ 𝐷)
29 foeq3 6755 . . . . . . 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 3986 . . . . . . 7 (πœ‘ β†’ 𝐡 βŠ† dom 𝐹)
34 fores 6767 . . . . . . 7 ((Fun 𝐹 ∧ 𝐡 βŠ† dom 𝐹) β†’ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’(𝐹 β€œ 𝐡))
353, 33, 34syl2anc 585 . . . . . 6 (πœ‘ β†’ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’(𝐹 β€œ 𝐡))
36 df-ima 5647 . . . . . . 7 (𝐹 β€œ 𝐡) = ran (𝐹 β†Ύ 𝐡)
37 foeq3 6755 . . . . . . 7 ((𝐹 β€œ 𝐡) = ran (𝐹 β†Ύ 𝐡) β†’ ((𝐹 β†Ύ 𝐡):𝐡–ontoβ†’(𝐹 β€œ 𝐡) ↔ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’ran (𝐹 β†Ύ 𝐡)))
3836, 37ax-mp 5 . . . . . 6 ((𝐹 β†Ύ 𝐡):𝐡–ontoβ†’(𝐹 β€œ 𝐡) ↔ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’ran (𝐹 β†Ύ 𝐡))
3935, 38sylib 217 . . . . 5 (πœ‘ β†’ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’ran (𝐹 β†Ύ 𝐡))
40 resdif 6806 . . . . 5 ((Fun ◑𝐹 ∧ (𝐹 β†Ύ 𝐷):𝐷–ontoβ†’ran (𝐹 β†Ύ 𝐷) ∧ (𝐹 β†Ύ 𝐡):𝐡–ontoβ†’ran (𝐹 β†Ύ 𝐡)) β†’ (𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(ran (𝐹 β†Ύ 𝐷) βˆ– ran (𝐹 β†Ύ 𝐡)))
4123, 31, 39, 40syl3anc 1372 . . . 4 (πœ‘ β†’ (𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(ran (𝐹 β†Ύ 𝐷) βˆ– ran (𝐹 β†Ύ 𝐡)))
42 f1ofn 6786 . . . . . . . . 9 (𝐹:𝐷–1-1-onto→𝐷 β†’ 𝐹 Fn 𝐷)
43 fnresdm 6621 . . . . . . . . 9 (𝐹 Fn 𝐷 β†’ (𝐹 β†Ύ 𝐷) = 𝐹)
441, 42, 433syl 18 . . . . . . . 8 (πœ‘ β†’ (𝐹 β†Ύ 𝐷) = 𝐹)
4544rneqd 5894 . . . . . . 7 (πœ‘ β†’ ran (𝐹 β†Ύ 𝐷) = ran 𝐹)
46 f1ofo 6792 . . . . . . . 8 (𝐹:𝐷–1-1-onto→𝐷 β†’ 𝐹:𝐷–onto→𝐷)
47 forn 6760 . . . . . . . 8 (𝐹:𝐷–onto→𝐷 β†’ ran 𝐹 = 𝐷)
481, 46, 473syl 18 . . . . . . 7 (πœ‘ β†’ ran 𝐹 = 𝐷)
4945, 48eqtrd 2773 . . . . . 6 (πœ‘ β†’ ran (𝐹 β†Ύ 𝐷) = 𝐷)
5049difeq1d 4082 . . . . 5 (πœ‘ β†’ (ran (𝐹 β†Ύ 𝐷) βˆ– ran (𝐹 β†Ύ 𝐡)) = (𝐷 βˆ– ran (𝐹 β†Ύ 𝐡)))
5150f1oeq3d 6782 . . . 4 (πœ‘ β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(ran (𝐹 β†Ύ 𝐷) βˆ– ran (𝐹 β†Ύ 𝐡)) ↔ (𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(𝐷 βˆ– ran (𝐹 β†Ύ 𝐡))))
5241, 51mpbid 231 . . 3 (πœ‘ β†’ (𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(𝐷 βˆ– ran (𝐹 β†Ύ 𝐡)))
53 f1ococnv2 6812 . . 3 ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)):(𝐷 βˆ– 𝐡)–1-1-ontoβ†’(𝐷 βˆ– ran (𝐹 β†Ύ 𝐡)) β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ( I β†Ύ (𝐷 βˆ– ran (𝐹 β†Ύ 𝐡))))
5452, 53syl 17 . 2 (πœ‘ β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ β—‘(𝐹 β†Ύ (𝐷 βˆ– 𝐡))) = ( I β†Ύ (𝐷 βˆ– ran (𝐹 β†Ύ 𝐡))))
5510, 20, 543eqtr3d 2781 1 (πœ‘ β†’ ((𝐹 β†Ύ (𝐷 βˆ– 𝐡)) ∘ ◑𝐹) = ( I β†Ύ (𝐷 βˆ– ran (𝐹 β†Ύ 𝐡))))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   = wceq 1542   βˆ– cdif 3908   βŠ† wss 3911   I cid 5531  β—‘ccnv 5633  dom cdm 5634  ran crn 5635   β†Ύ cres 5636   β€œ cima 5637   ∘ ccom 5638  Rel wrel 5639  Fun wfun 6491   Fn wfn 6492  β€“ontoβ†’wfo 6495  β€“1-1-ontoβ†’wf1o 6496
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-sep 5257  ax-nul 5264  ax-pr 5385
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-clab 2711  df-cleq 2725  df-clel 2811  df-ral 3062  df-rex 3071  df-rab 3407  df-v 3446  df-dif 3914  df-un 3916  df-in 3918  df-ss 3928  df-nul 4284  df-if 4488  df-sn 4588  df-pr 4590  df-op 4594  df-br 5107  df-opab 5169  df-id 5532  df-xp 5640  df-rel 5641  df-cnv 5642  df-co 5643  df-dm 5644  df-rn 5645  df-res 5646  df-ima 5647  df-fun 6499  df-fn 6500  df-f 6501  df-f1 6502  df-fo 6503  df-f1o 6504
This theorem is referenced by:  cycpmconjv  32040
  Copyright terms: Public domain W3C validator