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 32042
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 32015 . . 3 (𝐷 ∈ 𝑉 β†’ 𝑀:{𝑐 ∈ Word 𝐷 ∣ 𝑐:dom 𝑐–1-1→𝐷}⟢(Baseβ€˜π‘†))
7 fimass 6690 . . 3 (𝑀:{𝑐 ∈ Word 𝐷 ∣ 𝑐:dom 𝑐–1-1→𝐷}⟢(Baseβ€˜π‘†) β†’ (𝑀 β€œ 𝐴) βŠ† (Baseβ€˜π‘†))
84, 6, 73syl 18 . 2 (πœ‘ β†’ (𝑀 β€œ 𝐴) βŠ† (Baseβ€˜π‘†))
9 difss 4092 . . . . . . 7 (𝐴 βˆ– (β—‘β™― β€œ {0, 1})) βŠ† 𝐴
10 tocyccntz.2 . . . . . . 7 (πœ‘ β†’ Disj π‘₯ ∈ 𝐴 ran π‘₯)
11 disjss1 5077 . . . . . . 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 3923 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ π‘₯ ∈ 𝐴)
1815, 17sseldd 3946 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ π‘₯ ∈ dom 𝑀)
19 fdm 6678 . . . . . . . . . . . . 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 5860 . . . . . . . . . . . . 13 (𝑐 = π‘₯ β†’ dom 𝑐 = dom π‘₯)
24 eqidd 2734 . . . . . . . . . . . . 13 (𝑐 = π‘₯ β†’ 𝐷 = 𝐷)
2522, 23, 24f1eq123d 6777 . . . . . . . . . . . 12 (𝑐 = π‘₯ β†’ (𝑐:dom 𝑐–1-1→𝐷 ↔ π‘₯:dom π‘₯–1-1→𝐷))
2625elrab 3646 . . . . . . . . . . 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 3924 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ Β¬ π‘₯ ∈ (β—‘β™― β€œ {0, 1}))
31 hashgt1 31759 . . . . . . . . . . 11 (π‘₯ ∈ V β†’ (Β¬ π‘₯ ∈ (β—‘β™― β€œ {0, 1}) ↔ 1 < (β™―β€˜π‘₯)))
3231elv 3450 . . . . . . . . . 10 (Β¬ π‘₯ ∈ (β—‘β™― β€œ {0, 1}) ↔ 1 < (β™―β€˜π‘₯))
3330, 32sylib 217 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ 1 < (β™―β€˜π‘₯))
345, 13, 28, 29, 33cycpmrn 32041 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ ran π‘₯ = dom ((π‘€β€˜π‘₯) βˆ– I ))
3516fvresd 6863 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) = (π‘€β€˜π‘₯))
3635difeq1d 4082 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ (((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) βˆ– I ) = ((π‘€β€˜π‘₯) βˆ– I ))
3736dmeqd 5862 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ dom (((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) βˆ– I ) = dom ((π‘€β€˜π‘₯) βˆ– I ))
3834, 37eqtr4d 2776 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ ran π‘₯ = dom (((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) βˆ– I ))
3938disjeq2dv 5076 . . . . . 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 6700 . . . . . . . . . 10 (πœ‘ β†’ 𝑀:dom π‘€βŸΆ(Baseβ€˜π‘†))
4314ssdifssd 4103 . . . . . . . . . 10 (πœ‘ β†’ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})) βŠ† dom 𝑀)
4442, 43fssresd 6710 . . . . . . . . 9 (πœ‘ β†’ (𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))):(𝐴 βˆ– (β—‘β™― β€œ {0, 1}))⟢(Baseβ€˜π‘†))
4541, 14fssdmd 6688 . . . . . . . . . . . . . . . . . . . 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 3923 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 𝑠 ∈ 𝐴)
4946, 48sseldd 3946 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 𝑠 ∈ {𝑐 ∈ Word 𝐷 ∣ 𝑐:dom 𝑐–1-1→𝐷})
50 id 22 . . . . . . . . . . . . . . . . . . . 20 (𝑐 = 𝑠 β†’ 𝑐 = 𝑠)
51 dmeq 5860 . . . . . . . . . . . . . . . . . . . 20 (𝑐 = 𝑠 β†’ dom 𝑐 = dom 𝑠)
52 eqidd 2734 . . . . . . . . . . . . . . . . . . . 20 (𝑐 = 𝑠 β†’ 𝐷 = 𝐷)
5350, 51, 52f1eq123d 6777 . . . . . . . . . . . . . . . . . . 19 (𝑐 = 𝑠 β†’ (𝑐:dom 𝑐–1-1→𝐷 ↔ 𝑠:dom 𝑠–1-1→𝐷))
5453elrab 3646 . . . . . . . . . . . . . . . . . 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 14413 . . . . . . . . . . . . . . . 16 (𝑠 ∈ Word 𝐷 β†’ 𝑠:(0..^(β™―β€˜π‘ ))⟢𝐷)
58 frel 6674 . . . . . . . . . . . . . . . 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 6863 . . . . . . . . . . . . . . . . . . . 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 6863 . . . . . . . . . . . . . . . . . . . 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 4082 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ ((π‘€β€˜π‘₯) βˆ– I ) = ((π‘€β€˜π‘ ) βˆ– I ))
6665dmeqd 5862 . . . . . . . . . . . . . . . . 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 3946 . . . . . . . . . . . . . . . . . . . 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 32041 . . . . . . . . . . . . . . . . 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 4101 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})) βŠ† (dom 𝑀 βˆ– (β—‘β™― β€œ {0, 1})))
7776sselda 3945 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) β†’ 𝑠 ∈ (dom 𝑀 βˆ– (β—‘β™― β€œ {0, 1})))
7877ad3antrrr 729 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 𝑠 ∈ (dom 𝑀 βˆ– (β—‘β™― β€œ {0, 1})))
7978eldifbd 3924 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ Β¬ 𝑠 ∈ (β—‘β™― β€œ {0, 1}))
80 hashgt1 31759 . . . . . . . . . . . . . . . . . . . 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 32041 . . . . . . . . . . . . . . . . 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 4173 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ (ran π‘₯ ∩ ran 𝑠) = (ran π‘₯ ∩ ran π‘₯))
86 inidm 4179 . . . . . . . . . . . . . . . . . 18 (ran π‘₯ ∩ ran π‘₯) = ran π‘₯
8785, 86eqtrdi 2789 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ (ran π‘₯ ∩ ran 𝑠) = ran π‘₯)
88 rneq 5892 . . . . . . . . . . . . . . . . . . . . 21 (π‘₯ = 𝑦 β†’ ran π‘₯ = ran 𝑦)
8988cbvdisjv 5082 . . . . . . . . . . . . . . . . . . . 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 2947 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 𝑠 β‰  π‘₯)
9493necomd 2996 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ π‘₯ β‰  𝑠)
95 rneq 5892 . . . . . . . . . . . . . . . . . . 19 (𝑦 = π‘₯ β†’ ran 𝑦 = ran π‘₯)
96 rneq 5892 . . . . . . . . . . . . . . . . . . 19 (𝑦 = 𝑠 β†’ ran 𝑦 = ran 𝑠)
9795, 96disji2 5088 . . . . . . . . . . . . . . . . . 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 5925 . . . . . . . . . . . . . . . 16 (Rel 𝑠 β†’ (𝑠 = βˆ… ↔ ran 𝑠 = βˆ…))
102101biimpar 479 . . . . . . . . . . . . . . 15 ((Rel 𝑠 ∧ ran 𝑠 = βˆ…) β†’ 𝑠 = βˆ…)
10359, 100, 102syl2anc 585 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ 𝑠 = βˆ…)
104 wrdf 14413 . . . . . . . . . . . . . . . 16 (π‘₯ ∈ Word 𝐷 β†’ π‘₯:(0..^(β™―β€˜π‘₯))⟢𝐷)
105 frel 6674 . . . . . . . . . . . . . . . 16 (π‘₯:(0..^(β™―β€˜π‘₯))⟢𝐷 β†’ Rel π‘₯)
10671, 104, 1053syl 18 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ 𝑠 ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) ∧ ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) ∧ Β¬ 𝑠 = π‘₯) β†’ Rel π‘₯)
107 relrn0 5925 . . . . . . . . . . . . . . . 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 3194 . . . . . . . . 9 (πœ‘ β†’ βˆ€π‘  ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))βˆ€π‘₯ ∈ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))(((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘ ) = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) β†’ 𝑠 = π‘₯))
115 dff13 7203 . . . . . . . . 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 6796 . . . . . . . 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 5647 . . . . . . . . 9 (𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) = ran (𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))
120119a1i 11 . . . . . . . 8 (πœ‘ β†’ (𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) = ran (𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))))
121120f1oeq3d 6782 . . . . . . 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 4082 . . . . . . 7 ((πœ‘ ∧ 𝑐 = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) β†’ (𝑐 βˆ– I ) = (((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) βˆ– I ))
125124dmeqd 5862 . . . . . 6 ((πœ‘ ∧ 𝑐 = ((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯)) β†’ dom (𝑐 βˆ– I ) = dom (((𝑀 β†Ύ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))β€˜π‘₯) βˆ– I ))
126122, 125disjrdx 31555 . . . . 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 4196 . . . . . . . . . . . . 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 3946 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) ∧ π‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) ∧ (π‘€β€˜π‘₯) = 𝑐) β†’ π‘₯ ∈ (dom 𝑀 ∩ (β—‘β™― β€œ {0, 1})))
1345tocyc01 32016 . . . . . . . . . . 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 4082 . . . . . . . 8 ((((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) ∧ π‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) ∧ (π‘€β€˜π‘₯) = 𝑐) β†’ (𝑐 βˆ– I ) = (( I β†Ύ 𝐷) βˆ– I ))
138137dmeqd 5862 . . . . . . 7 ((((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) ∧ π‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) ∧ (π‘€β€˜π‘₯) = 𝑐) β†’ dom (𝑐 βˆ– I ) = dom (( I β†Ύ 𝐷) βˆ– I ))
139 resdifcom 5957 . . . . . . . . . 10 (( I β†Ύ 𝐷) βˆ– I ) = (( I βˆ– I ) β†Ύ 𝐷)
140 difid 4331 . . . . . . . . . . 11 ( I βˆ– I ) = βˆ…
141140reseq1i 5934 . . . . . . . . . 10 (( I βˆ– I ) β†Ύ 𝐷) = (βˆ… β†Ύ 𝐷)
142 0res 31568 . . . . . . . . . 10 (βˆ… β†Ύ 𝐷) = βˆ…
143139, 141, 1423eqtri 2765 . . . . . . . . 9 (( I β†Ύ 𝐷) βˆ– I ) = βˆ…
144143dmeqi 5861 . . . . . . . 8 dom (( I β†Ύ 𝐷) βˆ– I ) = dom βˆ…
145 dm0 5877 . . . . . . . 8 dom βˆ… = βˆ…
146144, 145eqtri 2761 . . . . . . 7 dom (( I β†Ύ 𝐷) βˆ– I ) = βˆ…
147138, 146eqtrdi 2789 . . . . . 6 ((((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) ∧ π‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) ∧ (π‘€β€˜π‘₯) = 𝑐) β†’ dom (𝑐 βˆ– I ) = βˆ…)
14841ffund 6673 . . . . . . 7 (πœ‘ β†’ Fun 𝑀)
149 fvelima 6909 . . . . . . 7 ((Fun 𝑀 ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) β†’ βˆƒπ‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))(π‘€β€˜π‘₯) = 𝑐)
150148, 149sylan 581 . . . . . 6 ((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) β†’ βˆƒπ‘₯ ∈ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))(π‘€β€˜π‘₯) = 𝑐)
151147, 150r19.29a 3156 . . . . 5 ((πœ‘ ∧ 𝑐 ∈ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) β†’ dom (𝑐 βˆ– I ) = βˆ…)
152151disjxun0 31538 . . . 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 4114 . . . . . 6 ((𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) βˆͺ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) = ((𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) βˆͺ (𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))))
155 imaundi 6103 . . . . . 6 (𝑀 β€œ ((𝐴 ∩ (β—‘β™― β€œ {0, 1})) βˆͺ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))) = ((𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))) βˆͺ (𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))))
156 inundif 4439 . . . . . . 7 ((𝐴 ∩ (β—‘β™― β€œ {0, 1})) βˆͺ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) = 𝐴
157156imaeq2i 6012 . . . . . 6 (𝑀 β€œ ((𝐴 ∩ (β—‘β™― β€œ {0, 1})) βˆͺ (𝐴 βˆ– (β—‘β™― β€œ {0, 1})))) = (𝑀 β€œ 𝐴)
158154, 155, 1573eqtr2i 2767 . . . . 5 ((𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) βˆͺ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) = (𝑀 β€œ 𝐴)
159158a1i 11 . . . 4 (πœ‘ β†’ ((𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) βˆͺ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1})))) = (𝑀 β€œ 𝐴))
160159disjeq1d 5079 . . 3 (πœ‘ β†’ (Disj 𝑐 ∈ ((𝑀 β€œ (𝐴 βˆ– (β—‘β™― β€œ {0, 1}))) βˆͺ (𝑀 β€œ (𝐴 ∩ (β—‘β™― β€œ {0, 1}))))dom (𝑐 βˆ– I ) ↔ Disj 𝑐 ∈ (𝑀 β€œ 𝐴)dom (𝑐 βˆ– I )))
161153, 160mpbid 231 . 2 (πœ‘ β†’ Disj 𝑐 ∈ (𝑀 β€œ 𝐴)dom (𝑐 βˆ– I ))
1621, 2, 3, 8, 161symgcntz 31985 1 (πœ‘ β†’ (𝑀 β€œ 𝐴) βŠ† (π‘β€˜(𝑀 β€œ 𝐴)))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 397   = wceq 1542   ∈ wcel 2107   β‰  wne 2940  βˆ€wral 3061  βˆƒwrex 3070  {crab 3406  Vcvv 3444   βˆ– cdif 3908   βˆͺ cun 3909   ∩ cin 3910   βŠ† wss 3911  βˆ…c0 4283  {cpr 4589  Disj wdisj 5071   class class class wbr 5106   I cid 5531  β—‘ccnv 5633  dom cdm 5634  ran crn 5635   β†Ύ cres 5636   β€œ cima 5637  Rel wrel 5639  Fun wfun 6491  βŸΆwf 6493  β€“1-1β†’wf1 6494  β€“1-1-ontoβ†’wf1o 6496  β€˜cfv 6497  (class class class)co 7358  0cc0 11056  1c1 11057   < clt 11194  ..^cfzo 13573  β™―chash 14236  Word cword 14408  Basecbs 17088  Cntzccntz 19100  SymGrpcsymg 19153  toCycctocyc 32004
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 5243  ax-sep 5257  ax-nul 5264  ax-pow 5321  ax-pr 5385  ax-un 7673  ax-cnex 11112  ax-resscn 11113  ax-1cn 11114  ax-icn 11115  ax-addcl 11116  ax-addrcl 11117  ax-mulcl 11118  ax-mulrcl 11119  ax-mulcom 11120  ax-addass 11121  ax-mulass 11122  ax-distr 11123  ax-i2m1 11124  ax-1ne0 11125  ax-1rid 11126  ax-rnegex 11127  ax-rrecex 11128  ax-cnre 11129  ax-pre-lttri 11130  ax-pre-lttrn 11131  ax-pre-ltadd 11132  ax-pre-mulgt0 11133  ax-pre-sup 11134
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 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3352  df-reu 3353  df-rab 3407  df-v 3446  df-sbc 3741  df-csb 3857  df-dif 3914  df-un 3916  df-in 3918  df-ss 3928  df-pss 3930  df-nul 4284  df-if 4488  df-pw 4563  df-sn 4588  df-pr 4590  df-tp 4592  df-op 4594  df-uni 4867  df-int 4909  df-iun 4957  df-disj 5072  df-br 5107  df-opab 5169  df-mpt 5190  df-tr 5224  df-id 5532  df-eprel 5538  df-po 5546  df-so 5547  df-fr 5589  df-we 5591  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-pred 6254  df-ord 6321  df-on 6322  df-lim 6323  df-suc 6324  df-iota 6449  df-fun 6499  df-fn 6500  df-f 6501  df-f1 6502  df-fo 6503  df-f1o 6504  df-fv 6505  df-riota 7314  df-ov 7361  df-oprab 7362  df-mpo 7363  df-om 7804  df-1st 7922  df-2nd 7923  df-frecs 8213  df-wrecs 8244  df-recs 8318  df-rdg 8357  df-1o 8413  df-er 8651  df-map 8770  df-en 8887  df-dom 8888  df-sdom 8889  df-fin 8890  df-sup 9383  df-inf 9384  df-card 9880  df-pnf 11196  df-mnf 11197  df-xr 11198  df-ltxr 11199  df-le 11200  df-sub 11392  df-neg 11393  df-div 11818  df-nn 12159  df-2 12221  df-3 12222  df-4 12223  df-5 12224  df-6 12225  df-7 12226  df-8 12227  df-9 12228  df-n0 12419  df-xnn0 12491  df-z 12505  df-uz 12769  df-rp 12921  df-fz 13431  df-fzo 13574  df-fl 13703  df-mod 13781  df-hash 14237  df-word 14409  df-concat 14465  df-substr 14535  df-pfx 14565  df-csh 14683  df-struct 17024  df-sets 17041  df-slot 17059  df-ndx 17071  df-base 17089  df-ress 17118  df-plusg 17151  df-tset 17157  df-efmnd 18684  df-cntz 19102  df-symg 19154  df-tocyc 32005
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator