Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  tocyccntz Structured version   Visualization version   GIF version
Theorem tocyccntz 32303
Description: All elements of a (finite) set of cycles commute if their orbits are disjoint. (Contributed by Thierry Arnoux, 27-Nov-2023.)
Hypotheses
Ref Expression
tocyccntz.s 𝑆 = (SymGrpβ€˜π·)
tocyccntz.z 𝑍 = (Cntzβ€˜π‘†)
tocyccntz.m 𝑀 = (toCycβ€˜π·)
tocyccntz.1 (πœ‘ β†’ 𝐷 ∈ 𝑉)
tocyccntz.2 (πœ‘ β†’ Disj π‘₯ ∈ 𝐴 ran π‘₯)
tocyccntz.a (πœ‘ β†’ 𝐴 βŠ† dom 𝑀)
Assertion
Ref Expression
tocyccntz (πœ‘ β†’ (𝑀 β€œ 𝐴) βŠ† (π‘β€˜(𝑀 β€œ 𝐴)))
Distinct variable groups:   π‘₯,𝐴   π‘₯,𝑀   πœ‘,π‘₯
Allowed substitution hints:   𝐷(π‘₯)   𝑆(π‘₯)   𝑉(π‘₯)   𝑍(π‘₯)
Proof of Theorem tocyccntz
Dummy variables 𝑐 𝑠 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 tocyccntz.s . 2 𝑆 = (SymGrpβ€˜π·)
2 eqid 2733 . 2 (Baseβ€˜π‘†) = (Baseβ€˜π‘†)
3 tocyccntz.z . 2 𝑍 = (Cntzβ€˜π‘†)
4 tocyccntz.1 . . 3 (πœ‘ β†’ 𝐷 ∈ 𝑉)
5 tocyccntz.m . . . 4 𝑀 = (toCycβ€˜π·)
65, 1, 2tocycf 32276 . . 3 (𝐷 ∈ 𝑉 β†’ 𝑀:{𝑐 ∈ Word 𝐷 ∣ 𝑐:dom 𝑐–1-1→𝐷}⟢(Baseβ€˜π‘†))
7 fimass 6739 . . 3 (𝑀:{𝑐 ∈ Word 𝐷 ∣ 𝑐:dom 𝑐–1-1→𝐷}⟢(Baseβ€˜π‘†) β†’ (𝑀 β€œ 𝐴) βŠ† (Baseβ€˜π‘†))
84, 6, 73syl 18 . 2 (πœ‘ β†’ (𝑀 β€œ 𝐴) βŠ† (Baseβ€˜π‘†))
9 difss 4132 . . . . . . 7 (𝐴 βˆ– (β—‘β™― β€œ {0, 1})) βŠ† 𝐴
10 tocyccntz.2 . . . . . . 7 (πœ‘ β†’ Disj π‘₯ ∈ 𝐴 ran π‘₯)
11 disjss1 5120 . . . . . . 7 ((𝐴 βˆ– (β—‘β™― β€œ {0, 1})) βŠ† 𝐴 β†’ (Disj π‘₯ ∈ 𝐴 ran π‘₯ β†’ Disj π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))ran π‘₯))
129, 10, 11mpsyl 68 . . . . . 6 (πœ‘ β†’ Disj π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))ran π‘₯)
134adantr 482 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ 𝐷 ∈ 𝑉)
14 tocyccntz.a . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐴 βŠ† dom 𝑀)
1514adantr 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ 𝐴 βŠ† dom 𝑀)
16 simpr 486 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))
1716eldifad 3961 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ π‘₯ ∈ 𝐴)
1815, 17sseldd 3984 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ π‘₯ ∈ dom 𝑀)
19 fdm 6727 . . . . . . . . . . . . 13 (𝑀:{𝑐 ∈ Word 𝐷 ∣ 𝑐:dom 𝑐–1-1→𝐷}⟢(Baseβ€˜π‘†) β†’ dom 𝑀 = {𝑐 ∈ Word 𝐷 ∣ 𝑐:dom 𝑐–1-1→𝐷})
2013, 6, 193syl 18 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ dom 𝑀 = {𝑐 ∈ Word 𝐷 ∣ 𝑐:dom 𝑐–1-1→𝐷})
2118, 20eleqtrd 2836 . . . . . . . . . . 11 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ π‘₯ ∈ {𝑐 ∈ Word 𝐷 ∣ 𝑐:dom 𝑐–1-1→𝐷})
22 id 22 . . . . . . . . . . . . 13 (𝑐 = π‘₯ β†’ 𝑐 = π‘₯)
23 dmeq 5904 . . . . . . . . . . . . 13 (𝑐 = π‘₯ β†’ dom 𝑐 = dom π‘₯)
24 eqidd 2734 . . . . . . . . . . . . 13 (𝑐 = π‘₯ β†’ 𝐷 = 𝐷)
2522, 23, 24f1eq123d 6826 . . . . . . . . . . . 12 (𝑐 = π‘₯ β†’ (𝑐:dom 𝑐–1-1→𝐷 ↔ π‘₯:dom π‘₯–1-1→𝐷))
2625elrab 3684 . . . . . . . . . . 11 (π‘₯ ∈ {𝑐 ∈ Word 𝐷 ∣ 𝑐:dom 𝑐–1-1→𝐷} ↔ (π‘₯ ∈ Word 𝐷 ∧ π‘₯:dom π‘₯–1-1→𝐷))
2721, 26sylib 217 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ (π‘₯ ∈ Word 𝐷 ∧ π‘₯:dom π‘₯–1-1→𝐷))
2827simpld 496 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ π‘₯ ∈ Word 𝐷)
2927simprd 497 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ π‘₯:dom π‘₯–1-1→𝐷)
3016eldifbd 3962 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ Β¬ π‘₯ ∈ (β—‘β™― β€œ {0, 1}))
31 hashgt1 32020 . . . . . . . . . . 11 (π‘₯ ∈ V β†’ (Β¬ π‘₯ ∈ (β—‘β™― β€œ {0, 1}) ↔ 1 < (β™―β€˜π‘₯)))
3231elv 3481 . . . . . . . . . 10 (Β¬ π‘₯ ∈ (β—‘β™― β€œ {0, 1}) ↔ 1 < (β™―β€˜π‘₯))
3330, 32sylib 217 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ 1 < (β™―β€˜π‘₯))
345, 13, 28, 29, 33cycpmrn 32302 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ ran π‘₯ = dom ((π‘€β€˜π‘₯) βˆ– I ))
3516fvresd 6912 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) = (π‘€β€˜π‘₯))
3635difeq1d 4122 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ (((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) βˆ– I ) = ((π‘€β€˜π‘₯) βˆ– I ))
3736dmeqd 5906 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ dom (((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) βˆ– I ) = dom ((π‘€β€˜π‘₯) βˆ– I ))
3834, 37eqtr4d 2776 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ ran π‘₯ = dom (((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) βˆ– I ))
3938disjeq2dv 5119 . . . . . 6 (πœ‘ β†’ (Disj π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))ran π‘₯ ↔ Disj π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))dom (((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) βˆ– I )))
4012, 39mpbid 231 . . . . 5 (πœ‘ β†’ Disj π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))dom (((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) βˆ– I ))
414, 6syl 17 . . . . . . . . . . 11 (πœ‘ β†’ 𝑀:{𝑐 ∈ Word 𝐷 ∣ 𝑐:dom 𝑐–1-1→𝐷}⟢(Baseβ€˜π‘†))
4241ffdmd 6749 . . . . . . . . . 10 (πœ‘ β†’ 𝑀:dom π‘€βŸΆ(Baseβ€˜π‘†))
4314ssdifssd 4143 . . . . . . . . . 10 (πœ‘ β†’ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})) βŠ† dom 𝑀)
4442, 43fssresd 6759 . . . . . . . . 9 (πœ‘ β†’ (𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))):(𝐴 βˆ– (β—‘β™― β€œ {0, 1}))⟢(Baseβ€˜π‘†))
4541, 14fssdmd 6737 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ 𝐴 βŠ† {𝑐 ∈ Word 𝐷 ∣ 𝑐:dom 𝑐–1-1→𝐷})
4645ad4antr 731 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 𝐴 βŠ† {𝑐 ∈ Word 𝐷 ∣ 𝑐:dom 𝑐–1-1→𝐷})
47 simp-4r 783 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))
4847eldifad 3961 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 𝑠 ∈ 𝐴)
4946, 48sseldd 3984 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 𝑠 ∈ {𝑐 ∈ Word 𝐷 ∣ 𝑐:dom 𝑐–1-1→𝐷})
50 id 22 . . . . . . . . . . . . . . . . . . . 20 (𝑐 = 𝑠 β†’ 𝑐 = 𝑠)
51 dmeq 5904 . . . . . . . . . . . . . . . . . . . 20 (𝑐 = 𝑠 β†’ dom 𝑐 = dom 𝑠)
52 eqidd 2734 . . . . . . . . . . . . . . . . . . . 20 (𝑐 = 𝑠 β†’ 𝐷 = 𝐷)
5350, 51, 52f1eq123d 6826 . . . . . . . . . . . . . . . . . . 19 (𝑐 = 𝑠 β†’ (𝑐:dom 𝑐–1-1→𝐷 ↔ 𝑠:dom 𝑠–1-1→𝐷))
5453elrab 3684 . . . . . . . . . . . . . . . . . 18 (𝑠 ∈ {𝑐 ∈ Word 𝐷 ∣ 𝑐:dom 𝑐–1-1→𝐷} ↔ (𝑠 ∈ Word 𝐷 ∧ 𝑠:dom 𝑠–1-1→𝐷))
5549, 54sylib 217 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ (𝑠 ∈ Word 𝐷 ∧ 𝑠:dom 𝑠–1-1→𝐷))
5655simpld 496 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 𝑠 ∈ Word 𝐷)
57 wrdf 14469 . . . . . . . . . . . . . . . 16 (𝑠 ∈ Word 𝐷 β†’ 𝑠:(0..^(β™―β€˜π‘ ))⟢𝐷)
58 frel 6723 . . . . . . . . . . . . . . . 16 (𝑠:(0..^(β™―β€˜π‘ ))⟢𝐷 β†’ Rel 𝑠)
5956, 57, 583syl 18 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ Rel 𝑠)
60 simplr 768 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯))
6147fvresd 6912 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = (π‘€β€˜π‘ ))
6216ad5ant13 756 . . . . . . . . . . . . . . . . . . . . 21 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))
6362fvresd 6912 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) = (π‘€β€˜π‘₯))
6460, 61, 633eqtr3rd 2782 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ (π‘€β€˜π‘₯) = (π‘€β€˜π‘ ))
6564difeq1d 4122 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ ((π‘€β€˜π‘₯) βˆ– I ) = ((π‘€β€˜π‘ ) βˆ– I ))
6665dmeqd 5906 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ dom ((π‘€β€˜π‘₯) βˆ– I ) = dom ((π‘€β€˜π‘ ) βˆ– I ))
674ad4antr 731 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 𝐷 ∈ 𝑉)
6817ad5ant13 756 . . . . . . . . . . . . . . . . . . . . 21 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ π‘₯ ∈ 𝐴)
6946, 68sseldd 3984 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ π‘₯ ∈ {𝑐 ∈ Word 𝐷 ∣ 𝑐:dom 𝑐–1-1→𝐷})
7069, 26sylib 217 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ (π‘₯ ∈ Word 𝐷 ∧ π‘₯:dom π‘₯–1-1→𝐷))
7170simpld 496 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ π‘₯ ∈ Word 𝐷)
7270simprd 497 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ π‘₯:dom π‘₯–1-1→𝐷)
7333ad5ant13 756 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 1 < (β™―β€˜π‘₯))
745, 67, 71, 72, 73cycpmrn 32302 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ ran π‘₯ = dom ((π‘€β€˜π‘₯) βˆ– I ))
7555simprd 497 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 𝑠:dom 𝑠–1-1→𝐷)
7614ssdifd 4141 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})) βŠ† (dom 𝑀 βˆ– (β—‘β™― β€œ {0, 1})))
7776sselda 3983 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ 𝑠 ∈ (dom 𝑀 βˆ– (β—‘β™― β€œ {0, 1})))
7877ad3antrrr 729 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 𝑠 ∈ (dom 𝑀 βˆ– (β—‘β™― β€œ {0, 1})))
7978eldifbd 3962 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ Β¬ 𝑠 ∈ (β—‘β™― β€œ {0, 1}))
80 hashgt1 32020 . . . . . . . . . . . . . . . . . . . 20 (𝑠 ∈ 𝐴 β†’ (Β¬ 𝑠 ∈ (β—‘β™― β€œ {0, 1}) ↔ 1 < (β™―β€˜π‘ )))
8180biimpa 478 . . . . . . . . . . . . . . . . . . 19 ((𝑠 ∈ 𝐴 ∧ Β¬ 𝑠 ∈ (β—‘β™― β€œ {0, 1})) β†’ 1 < (β™―β€˜π‘ ))
8248, 79, 81syl2anc 585 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 1 < (β™―β€˜π‘ ))
835, 67, 56, 75, 82cycpmrn 32302 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ ran 𝑠 = dom ((π‘€β€˜π‘ ) βˆ– I ))
8466, 74, 833eqtr4rd 2784 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ ran 𝑠 = ran π‘₯)
8584ineq2d 4213 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ (ran π‘₯ ∩ ran 𝑠) = (ran π‘₯ ∩ ran π‘₯))
86 inidm 4219 . . . . . . . . . . . . . . . . . 18 (ran π‘₯ ∩ ran π‘₯) = ran π‘₯
8785, 86eqtrdi 2789 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ (ran π‘₯ ∩ ran 𝑠) = ran π‘₯)
88 rneq 5936 . . . . . . . . . . . . . . . . . . . . 21 (π‘₯ = 𝑦 β†’ ran π‘₯ = ran 𝑦)
8988cbvdisjv 5125 . . . . . . . . . . . . . . . . . . . 20 (Disj π‘₯ ∈ 𝐴 ran π‘₯ ↔ Disj 𝑦 ∈ 𝐴 ran 𝑦)
9010, 89sylib 217 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ Disj 𝑦 ∈ 𝐴 ran 𝑦)
9190ad4antr 731 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ Disj 𝑦 ∈ 𝐴 ran 𝑦)
92 simpr 486 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ Β¬ 𝑠 = π‘₯)
9392neqned 2948 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 𝑠 β‰  π‘₯)
9493necomd 2997 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ π‘₯ β‰  𝑠)
95 rneq 5936 . . . . . . . . . . . . . . . . . . 19 (𝑦 = π‘₯ β†’ ran 𝑦 = ran π‘₯)
96 rneq 5936 . . . . . . . . . . . . . . . . . . 19 (𝑦 = 𝑠 β†’ ran 𝑦 = ran 𝑠)
9795, 96disji2 5131 . . . . . . . . . . . . . . . . . 18 ((Disj 𝑦 ∈ 𝐴 ran 𝑦 ∧ (π‘₯ ∈ 𝐴 ∧ 𝑠 ∈ 𝐴) ∧ π‘₯ β‰  𝑠) β†’ (ran π‘₯ ∩ ran 𝑠) = βˆ…)
9891, 68, 48, 94, 97syl121anc 1376 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ (ran π‘₯ ∩ ran 𝑠) = βˆ…)
9987, 98eqtr3d 2775 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ ran π‘₯ = βˆ…)
10084, 99eqtrd 2773 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ ran 𝑠 = βˆ…)
101 relrn0 5969 . . . . . . . . . . . . . . . 16 (Rel 𝑠 β†’ (𝑠 = βˆ… ↔ ran 𝑠 = βˆ…))
102101biimpar 479 . . . . . . . . . . . . . . 15 ((Rel 𝑠 ∧ ran 𝑠 = βˆ…) β†’ 𝑠 = βˆ…)
10359, 100, 102syl2anc 585 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 𝑠 = βˆ…)
104 wrdf 14469 . . . . . . . . . . . . . . . 16 (π‘₯ ∈ Word 𝐷 β†’ π‘₯:(0..^(β™―β€˜π‘₯))⟢𝐷)
105 frel 6723 . . . . . . . . . . . . . . . 16 (π‘₯:(0..^(β™―β€˜π‘₯))⟢𝐷 β†’ Rel π‘₯)
10671, 104, 1053syl 18 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ Rel π‘₯)
107 relrn0 5969 . . . . . . . . . . . . . . . 16 (Rel π‘₯ β†’ (π‘₯ = βˆ… ↔ ran π‘₯ = βˆ…))
108107biimpar 479 . . . . . . . . . . . . . . 15 ((Rel π‘₯ ∧ ran π‘₯ = βˆ…) β†’ π‘₯ = βˆ…)
109106, 99, 108syl2anc 585 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ π‘₯ = βˆ…)
110103, 109eqtr4d 2776 . . . . . . . . . . . . 13 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 𝑠 = π‘₯)
111110pm2.18da 799 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) β†’ 𝑠 = π‘₯)
112111ex 414 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ (((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) β†’ 𝑠 = π‘₯))
113112anasss 468 . . . . . . . . . 10 ((πœ‘ ∧ (𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))) β†’ (((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) β†’ 𝑠 = π‘₯))
114113ralrimivva 3201 . . . . . . . . 9 (πœ‘ β†’ βˆ€π‘  ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))βˆ€π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))(((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) β†’ 𝑠 = π‘₯))
115 dff13 7254 . . . . . . . . 9 ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))):(𝐴 βˆ– (β—‘β™― β€œ {0, 1}))–1-1β†’(Baseβ€˜π‘†) ↔ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))):(𝐴 βˆ– (β—‘β™― β€œ {0, 1}))⟢(Baseβ€˜π‘†) ∧ βˆ€π‘  ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))βˆ€π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))(((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) β†’ 𝑠 = π‘₯)))
11644, 114, 115sylanbrc 584 . . . . . . . 8 (πœ‘ β†’ (𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))):(𝐴 βˆ– (β—‘β™― β€œ {0, 1}))–1-1β†’(Baseβ€˜π‘†))
117 f1f1orn 6845 . . . . . . . 8 ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))):(𝐴 βˆ– (β—‘β™― β€œ {0, 1}))–1-1β†’(Baseβ€˜π‘†) β†’ (𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))):(𝐴 βˆ– (β—‘β™― β€œ {0, 1}))–1-1-ontoβ†’ran (𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))))
118116, 117syl 17 . . . . . . 7 (πœ‘ β†’ (𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))):(𝐴 βˆ– (β—‘β™― β€œ {0, 1}))–1-1-ontoβ†’ran (𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))))
119 df-ima 5690 . . . . . . . . 9 (𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) = ran (𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))
120119a1i 11 . . . . . . . 8 (πœ‘ β†’ (𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) = ran (𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))))
121120f1oeq3d 6831 . . . . . . 7 (πœ‘ β†’ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))):(𝐴 βˆ– (β—‘β™― β€œ {0, 1}))–1-1-ontoβ†’(𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ↔ (𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))):(𝐴 βˆ– (β—‘β™― β€œ {0, 1}))–1-1-ontoβ†’ran (𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))))
122118, 121mpbird 257 . . . . . 6 (πœ‘ β†’ (𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))):(𝐴 βˆ– (β—‘β™― β€œ {0, 1}))–1-1-ontoβ†’(𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))))
123 simpr 486 . . . . . . . 8 ((πœ‘ ∧ 𝑐 = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) β†’ 𝑐 = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯))
124123difeq1d 4122 . . . . . . 7 ((πœ‘ ∧ 𝑐 = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) β†’ (𝑐 βˆ– I ) = (((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) βˆ– I ))
125124dmeqd 5906 . . . . . 6 ((πœ‘ ∧ 𝑐 = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) β†’ dom (𝑐 βˆ– I ) = dom (((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) βˆ– I ))
126122, 125disjrdx 31822 . . . . 5 (πœ‘ β†’ (Disj π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))dom (((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) βˆ– I ) ↔ Disj 𝑐 ∈ (𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))dom (𝑐 βˆ– I )))
12740, 126mpbid 231 . . . 4 (πœ‘ β†’ Disj 𝑐 ∈ (𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))dom (𝑐 βˆ– I ))
128 simpr 486 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) ∧ π‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) ∧ (π‘€β€˜π‘₯) = 𝑐) β†’ (π‘€β€˜π‘₯) = 𝑐)
1294ad3antrrr 729 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) ∧ π‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) ∧ (π‘€β€˜π‘₯) = 𝑐) β†’ 𝐷 ∈ 𝑉)
13014ssrind 4236 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐴 ∩ (β—‘β™― β€œ {0, 1})) βŠ† (dom 𝑀 ∩ (β—‘β™― β€œ {0, 1})))
131130ad3antrrr 729 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) ∧ π‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) ∧ (π‘€β€˜π‘₯) = 𝑐) β†’ (𝐴 ∩ (β—‘β™― β€œ {0, 1})) βŠ† (dom 𝑀 ∩ (β—‘β™― β€œ {0, 1})))
132 simplr 768 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) ∧ π‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) ∧ (π‘€β€˜π‘₯) = 𝑐) β†’ π‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))
133131, 132sseldd 3984 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) ∧ π‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) ∧ (π‘€β€˜π‘₯) = 𝑐) β†’ π‘₯ ∈ (dom 𝑀 ∩ (β—‘β™― β€œ {0, 1})))
1345tocyc01 32277 . . . . . . . . . . 11 ((𝐷 ∈ 𝑉 ∧ π‘₯ ∈ (dom 𝑀 ∩ (β—‘β™― β€œ {0, 1}))) β†’ (π‘€β€˜π‘₯) = ( I β†Ύ 𝐷))
135129, 133, 134syl2anc 585 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) ∧ π‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) ∧ (π‘€β€˜π‘₯) = 𝑐) β†’ (π‘€β€˜π‘₯) = ( I β†Ύ 𝐷))
136128, 135eqtr3d 2775 . . . . . . . . 9 ((((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) ∧ π‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) ∧ (π‘€β€˜π‘₯) = 𝑐) β†’ 𝑐 = ( I β†Ύ 𝐷))
137136difeq1d 4122 . . . . . . . 8 ((((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) ∧ π‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) ∧ (π‘€β€˜π‘₯) = 𝑐) β†’ (𝑐 βˆ– I ) = (( I β†Ύ 𝐷) βˆ– I ))
138137dmeqd 5906 . . . . . . 7 ((((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) ∧ π‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) ∧ (π‘€β€˜π‘₯) = 𝑐) β†’ dom (𝑐 βˆ– I ) = dom (( I β†Ύ 𝐷) βˆ– I ))
139 resdifcom 6001 . . . . . . . . . 10 (( I β†Ύ 𝐷) βˆ– I ) = (( I βˆ– I ) β†Ύ 𝐷)
140 difid 4371 . . . . . . . . . . 11 ( I βˆ– I ) = βˆ…
141140reseq1i 5978 . . . . . . . . . 10 (( I βˆ– I ) β†Ύ 𝐷) = (βˆ… β†Ύ 𝐷)
142 0res 31834 . . . . . . . . . 10 (βˆ… β†Ύ 𝐷) = βˆ…
143139, 141, 1423eqtri 2765 . . . . . . . . 9 (( I β†Ύ 𝐷) βˆ– I ) = βˆ…
144143dmeqi 5905 . . . . . . . 8 dom (( I β†Ύ 𝐷) βˆ– I ) = dom βˆ…
145 dm0 5921 . . . . . . . 8 dom βˆ… = βˆ…
146144, 145eqtri 2761 . . . . . . 7 dom (( I β†Ύ 𝐷) βˆ– I ) = βˆ…
147138, 146eqtrdi 2789 . . . . . 6 ((((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) ∧ π‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) ∧ (π‘€β€˜π‘₯) = 𝑐) β†’ dom (𝑐 βˆ– I ) = βˆ…)
14841ffund 6722 . . . . . . 7 (πœ‘ β†’ Fun 𝑀)
149 fvelima 6958 . . . . . . 7 ((Fun 𝑀 ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) β†’ βˆƒπ‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))(π‘€β€˜π‘₯) = 𝑐)
150148, 149sylan 581 . . . . . 6 ((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) β†’ βˆƒπ‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))(π‘€β€˜π‘₯) = 𝑐)
151147, 150r19.29a 3163 . . . . 5 ((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) β†’ dom (𝑐 βˆ– I ) = βˆ…)
152151disjxun0 31805 . . . 4 (πœ‘ β†’ (Disj 𝑐 ∈ ((𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) βˆͺ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))))dom (𝑐 βˆ– I ) ↔ Disj 𝑐 ∈ (𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))dom (𝑐 βˆ– I )))
153127, 152mpbird 257 . . 3 (πœ‘ β†’ Disj 𝑐 ∈ ((𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) βˆͺ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))))dom (𝑐 βˆ– I ))
154 uncom 4154 . . . . . 6 ((𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) βˆͺ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) = ((𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) βˆͺ (𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))))
155 imaundi 6150 . . . . . 6 (𝑀 β€œ ((𝐴 ∩ (β—‘β™― β€œ {0, 1})) βˆͺ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))) = ((𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) βˆͺ (𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))))
156 inundif 4479 . . . . . . 7 ((𝐴 ∩ (β—‘β™― β€œ {0, 1})) βˆͺ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) = 𝐴
157156imaeq2i 6058 . . . . . 6 (𝑀 β€œ ((𝐴 ∩ (β—‘β™― β€œ {0, 1})) βˆͺ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))) = (𝑀 β€œ 𝐴)
158154, 155, 1573eqtr2i 2767 . . . . 5 ((𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) βˆͺ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) = (𝑀 β€œ 𝐴)
159158a1i 11 . . . 4 (πœ‘ β†’ ((𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) βˆͺ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) = (𝑀 β€œ 𝐴))
160159disjeq1d 5122 . . 3 (πœ‘ β†’ (Disj 𝑐 ∈ ((𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) βˆͺ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))))dom (𝑐 βˆ– I ) ↔ Disj 𝑐 ∈ (𝑀 β€œ 𝐴)dom (𝑐 βˆ– I )))
161153, 160mpbid 231 . 2 (πœ‘ β†’ Disj 𝑐 ∈ (𝑀 β€œ 𝐴)dom (𝑐 βˆ– I ))
1621, 2, 3, 8, 161symgcntz 32246 1 (πœ‘ β†’ (𝑀 β€œ 𝐴) βŠ† (π‘β€˜(𝑀 β€œ 𝐴)))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 397   = wceq 1542   ∈ wcel 2107   β‰  wne 2941  βˆ€wral 3062  βˆƒwrex 3071  {crab 3433  Vcvv 3475   βˆ– cdif 3946   βˆͺ cun 3947   ∩ cin 3948   βŠ† wss 3949  βˆ…c0 4323  {cpr 4631  Disj wdisj 5114   class class class wbr 5149   I cid 5574  β—‘ccnv 5676  dom cdm 5677  ran crn 5678   β†Ύ cres 5679   β€œ cima 5680  Rel wrel 5682  Fun wfun 6538  βŸΆwf 6540  β€“1-1β†’wf1 6541  β€“1-1-ontoβ†’wf1o 6543  β€˜cfv 6544  (class class class)co 7409  0cc0 11110  1c1 11111   < clt 11248  ..^cfzo 13627  β™―chash 14290  Word cword 14464  Basecbs 17144  Cntzccntz 19179  SymGrpcsymg 19234  toCycctocyc 32265
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-rep 5286  ax-sep 5300  ax-nul 5307  ax-pow 5364  ax-pr 5428  ax-un 7725  ax-cnex 11166  ax-resscn 11167  ax-1cn 11168  ax-icn 11169  ax-addcl 11170  ax-addrcl 11171  ax-mulcl 11172  ax-mulrcl 11173  ax-mulcom 11174  ax-addass 11175  ax-mulass 11176  ax-distr 11177  ax-i2m1 11178  ax-1ne0 11179  ax-1rid 11180  ax-rnegex 11181  ax-rrecex 11182  ax-cnre 11183  ax-pre-lttri 11184  ax-pre-lttrn 11185  ax-pre-ltadd 11186  ax-pre-mulgt0 11187  ax-pre-sup 11188
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3779  df-csb 3895  df-dif 3952  df-un 3954  df-in 3956  df-ss 3966  df-pss 3968  df-nul 4324  df-if 4530  df-pw 4605  df-sn 4630  df-pr 4632  df-tp 4634  df-op 4636  df-uni 4910  df-int 4952  df-iun 5000  df-disj 5115  df-br 5150  df-opab 5212  df-mpt 5233  df-tr 5267  df-id 5575  df-eprel 5581  df-po 5589  df-so 5590  df-fr 5632  df-we 5634  df-xp 5683  df-rel 5684  df-cnv 5685  df-co 5686  df-dm 5687  df-rn 5688  df-res 5689  df-ima 5690  df-pred 6301  df-ord 6368  df-on 6369  df-lim 6370  df-suc 6371  df-iota 6496  df-fun 6546  df-fn 6547  df-f 6548  df-f1 6549  df-fo 6550  df-f1o 6551  df-fv 6552  df-riota 7365  df-ov 7412  df-oprab 7413  df-mpo 7414  df-om 7856  df-1st 7975  df-2nd 7976  df-frecs 8266  df-wrecs 8297  df-recs 8371  df-rdg 8410  df-1o 8466  df-er 8703  df-map 8822  df-en 8940  df-dom 8941  df-sdom 8942  df-fin 8943  df-sup 9437  df-inf 9438  df-card 9934  df-pnf 11250  df-mnf 11251  df-xr 11252  df-ltxr 11253  df-le 11254  df-sub 11446  df-neg 11447  df-div 11872  df-nn 12213  df-2 12275  df-3 12276  df-4 12277  df-5 12278  df-6 12279  df-7 12280  df-8 12281  df-9 12282  df-n0 12473  df-xnn0 12545  df-z 12559  df-uz 12823  df-rp 12975  df-fz 13485  df-fzo 13628  df-fl 13757  df-mod 13835  df-hash 14291  df-word 14465  df-concat 14521  df-substr 14591  df-pfx 14621  df-csh 14739  df-struct 17080  df-sets 17097  df-slot 17115  df-ndx 17127  df-base 17145  df-ress 17174  df-plusg 17210  df-tset 17216  df-efmnd 18750  df-cntz 19181  df-symg 19235  df-tocyc 32266
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator