Metamath Proof Explorer


Theorem cycpmconjslem2

Description: Lemma for cycpmconjs . (Contributed by Thierry Arnoux, 14-Oct-2023)

Ref Expression
Hypotheses cycpmconjs.c ⊢ C = M . -1 P
cycpmconjs.s ⊢ S = SymGrp ⁡ D
cycpmconjs.n ⊢ N = D
cycpmconjs.m ⊢ M = toCyc ⁡ D
cycpmconjs.b ⊢ B = Base S
cycpmconjs.a ⊢ + ˙ = + S
cycpmconjs.l ⊢ - ˙ = - S
cycpmconjs.p ⊢ φ → P ∈ 0 … N
cycpmconjs.d ⊢ φ → D ∈ Fin
cycpmconjs.q ⊢ φ → Q ∈ C
Assertion cycpmconjslem2 ⊢ φ → ∃ q q : 0 ..^ N ⟶ 1-1 onto D ∧ q -1 ∘ Q ∘ q = I ↾ 0 ..^ P cyclShift 1 ∪ I ↾ P ..^ N

Proof

Step Hyp Ref Expression
1 cycpmconjs.c ⊢ C = M . -1 P
2 cycpmconjs.s ⊢ S = SymGrp ⁡ D
3 cycpmconjs.n ⊢ N = D
4 cycpmconjs.m ⊢ M = toCyc ⁡ D
5 cycpmconjs.b ⊢ B = Base S
6 cycpmconjs.a ⊢ + ˙ = + S
7 cycpmconjs.l ⊢ - ˙ = - S
8 cycpmconjs.p ⊢ φ → P ∈ 0 … N
9 cycpmconjs.d ⊢ φ → D ∈ Fin
10 cycpmconjs.q ⊢ φ → Q ∈ C
11 fzofi ⊢ 0 ..^ N ∈ Fin
12 diffi ⊢ 0 ..^ N ∈ Fin → 0 ..^ N ∖ dom ⁡ u ∈ Fin
13 11 12 mp1i ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → 0 ..^ N ∖ dom ⁡ u ∈ Fin
14 diffi ⊢ D ∈ Fin → D ∖ ran ⁡ u ∈ Fin
15 9 14 syl ⊢ φ → D ∖ ran ⁡ u ∈ Fin
16 15 ad2antrr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → D ∖ ran ⁡ u ∈ Fin
17 hashcl ⊢ D ∈ Fin → D ∈ ℕ 0
18 9 17 syl ⊢ φ → D ∈ ℕ 0
19 3 18 eqeltrid ⊢ φ → N ∈ ℕ 0
20 hashfzo0 ⊢ N ∈ ℕ 0 → 0 ..^ N = N
21 19 20 syl ⊢ φ → 0 ..^ N = N
22 21 3 eqtrdi ⊢ φ → 0 ..^ N = D
23 22 ad2antrr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → 0 ..^ N = D
24 simplr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P
25 24 elin1d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D
26 elrabi ⊢ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D → u ∈ Word D
27 wrdfin ⊢ u ∈ Word D → u ∈ Fin
28 25 26 27 3syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → u ∈ Fin
29 id ⊢ w = u → w = u
30 dmeq ⊢ w = u → dom ⁡ w = dom ⁡ u
31 eqidd ⊢ w = u → D = D
32 29 30 31 f1eq123d ⊢ w = u → w : dom ⁡ w ⟶ 1-1 D ↔ u : dom ⁡ u ⟶ 1-1 D
33 32 25 elrabrd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → u : dom ⁡ u ⟶ 1-1 D
34 f1fun ⊢ u : dom ⁡ u ⟶ 1-1 D → Fun ⁡ u
35 33 34 syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → Fun ⁡ u
36 hashfundm ⊢ u ∈ Fin ∧ Fun ⁡ u → u = dom ⁡ u
37 28 35 36 syl2anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → u = dom ⁡ u
38 24 dmexd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → dom ⁡ u ∈ V
39 hashf1rn ⊢ dom ⁡ u ∈ V ∧ u : dom ⁡ u ⟶ 1-1 D → u = ran ⁡ u
40 38 33 39 syl2anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → u = ran ⁡ u
41 37 40 eqtr3d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → dom ⁡ u = ran ⁡ u
42 23 41 oveq12d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → 0 ..^ N − dom ⁡ u = D − ran ⁡ u
43 11 a1i ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → 0 ..^ N ∈ Fin
44 wrddm ⊢ u ∈ Word D → dom ⁡ u = 0 ..^ u
45 25 26 44 3syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → dom ⁡ u = 0 ..^ u
46 hashcl ⊢ u ∈ Fin → u ∈ ℕ 0
47 25 26 27 46 4syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → u ∈ ℕ 0
48 47 nn0zd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → u ∈ ℤ
49 18 nn0zd ⊢ φ → D ∈ ℤ
50 3 49 eqeltrid ⊢ φ → N ∈ ℤ
51 50 ad2antrr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → N ∈ ℤ
52 9 ad2antrr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → D ∈ Fin
53 wrdf ⊢ u ∈ Word D → u : 0 ..^ u ⟶ D
54 53 frnd ⊢ u ∈ Word D → ran ⁡ u ⊆ D
55 25 26 54 3syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → ran ⁡ u ⊆ D
56 hashss ⊢ D ∈ Fin ∧ ran ⁡ u ⊆ D → ran ⁡ u ≤ D
57 52 55 56 syl2anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → ran ⁡ u ≤ D
58 3 a1i ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → N = D
59 57 40 58 3brtr4d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → u ≤ N
60 eluz1 ⊢ u ∈ ℤ → N ∈ ℤ ≥ u ↔ N ∈ ℤ ∧ u ≤ N
61 60 biimpar ⊢ u ∈ ℤ ∧ N ∈ ℤ ∧ u ≤ N → N ∈ ℤ ≥ u
62 48 51 59 61 syl12anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → N ∈ ℤ ≥ u
63 fzoss2 ⊢ N ∈ ℤ ≥ u → 0 ..^ u ⊆ 0 ..^ N
64 62 63 syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → 0 ..^ u ⊆ 0 ..^ N
65 45 64 eqsstrd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → dom ⁡ u ⊆ 0 ..^ N
66 hashssdif ⊢ 0 ..^ N ∈ Fin ∧ dom ⁡ u ⊆ 0 ..^ N → 0 ..^ N ∖ dom ⁡ u = 0 ..^ N − dom ⁡ u
67 43 65 66 syl2anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → 0 ..^ N ∖ dom ⁡ u = 0 ..^ N − dom ⁡ u
68 hashssdif ⊢ D ∈ Fin ∧ ran ⁡ u ⊆ D → D ∖ ran ⁡ u = D − ran ⁡ u
69 52 55 68 syl2anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → D ∖ ran ⁡ u = D − ran ⁡ u
70 42 67 69 3eqtr4d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → 0 ..^ N ∖ dom ⁡ u = D ∖ ran ⁡ u
71 hasheqf1o ⊢ 0 ..^ N ∖ dom ⁡ u ∈ Fin ∧ D ∖ ran ⁡ u ∈ Fin → 0 ..^ N ∖ dom ⁡ u = D ∖ ran ⁡ u ↔ ∃ f f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u
72 71 biimpa ⊢ 0 ..^ N ∖ dom ⁡ u ∈ Fin ∧ D ∖ ran ⁡ u ∈ Fin ∧ 0 ..^ N ∖ dom ⁡ u = D ∖ ran ⁡ u → ∃ f f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u
73 13 16 70 72 syl21anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → ∃ f f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u
74 33 adantr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u : dom ⁡ u ⟶ 1-1 D
75 f1f1orn ⊢ u : dom ⁡ u ⟶ 1-1 D → u : dom ⁡ u ⟶ 1-1 onto ran ⁡ u
76 74 75 syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u : dom ⁡ u ⟶ 1-1 onto ran ⁡ u
77 simpr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u
78 disjdif ⊢ dom ⁡ u ∩ 0 ..^ N ∖ dom ⁡ u = ∅
79 78 a1i ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → dom ⁡ u ∩ 0 ..^ N ∖ dom ⁡ u = ∅
80 disjdif ⊢ ran ⁡ u ∩ D ∖ ran ⁡ u = ∅
81 80 a1i ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → ran ⁡ u ∩ D ∖ ran ⁡ u = ∅
82 f1oun ⊢ u : dom ⁡ u ⟶ 1-1 onto ran ⁡ u ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u ∧ dom ⁡ u ∩ 0 ..^ N ∖ dom ⁡ u = ∅ ∧ ran ⁡ u ∩ D ∖ ran ⁡ u = ∅ → u ∪ f : dom ⁡ u ∪ 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto ran ⁡ u ∪ D ∖ ran ⁡ u
83 76 77 79 81 82 syl22anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f : dom ⁡ u ∪ 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto ran ⁡ u ∪ D ∖ ran ⁡ u
84 eqidd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f = u ∪ f
85 65 adantr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → dom ⁡ u ⊆ 0 ..^ N
86 undif ⊢ dom ⁡ u ⊆ 0 ..^ N ↔ dom ⁡ u ∪ 0 ..^ N ∖ dom ⁡ u = 0 ..^ N
87 85 86 sylib ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → dom ⁡ u ∪ 0 ..^ N ∖ dom ⁡ u = 0 ..^ N
88 undif ⊢ ran ⁡ u ⊆ D ↔ ran ⁡ u ∪ D ∖ ran ⁡ u = D
89 55 88 sylib ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → ran ⁡ u ∪ D ∖ ran ⁡ u = D
90 89 adantr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → ran ⁡ u ∪ D ∖ ran ⁡ u = D
91 84 87 90 f1oeq123d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f : dom ⁡ u ∪ 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto ran ⁡ u ∪ D ∖ ran ⁡ u ↔ u ∪ f : 0 ..^ N ⟶ 1-1 onto D
92 83 91 mpbid ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f : 0 ..^ N ⟶ 1-1 onto D
93 f1ocnv ⊢ u ∪ f : 0 ..^ N ⟶ 1-1 onto D → u ∪ f -1 : D ⟶ 1-1 onto 0 ..^ N
94 92 93 syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 : D ⟶ 1-1 onto 0 ..^ N
95 1 2 3 4 5 cycpmgcl ⊢ D ∈ Fin ∧ P ∈ 0 … N → C ⊆ B
96 9 8 95 syl2anc ⊢ φ → C ⊆ B
97 96 10 sseldd ⊢ φ → Q ∈ B
98 2 5 symgbasf1o ⊢ Q ∈ B → Q : D ⟶ 1-1 onto D
99 97 98 syl ⊢ φ → Q : D ⟶ 1-1 onto D
100 99 ad3antrrr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → Q : D ⟶ 1-1 onto D
101 f1oco ⊢ u ∪ f -1 : D ⟶ 1-1 onto 0 ..^ N ∧ Q : D ⟶ 1-1 onto D → u ∪ f -1 ∘ Q : D ⟶ 1-1 onto 0 ..^ N
102 94 100 101 syl2anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q : D ⟶ 1-1 onto 0 ..^ N
103 f1oco ⊢ u ∪ f -1 ∘ Q : D ⟶ 1-1 onto 0 ..^ N ∧ u ∪ f : 0 ..^ N ⟶ 1-1 onto D → u ∪ f -1 ∘ Q ∘ u ∪ f : 0 ..^ N ⟶ 1-1 onto 0 ..^ N
104 102 92 103 syl2anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ∘ u ∪ f : 0 ..^ N ⟶ 1-1 onto 0 ..^ N
105 f1ofun ⊢ u ∪ f -1 ∘ Q ∘ u ∪ f : 0 ..^ N ⟶ 1-1 onto 0 ..^ N → Fun ⁡ u ∪ f -1 ∘ Q ∘ u ∪ f
106 funrel ⊢ Fun ⁡ u ∪ f -1 ∘ Q ∘ u ∪ f → Rel ⁡ u ∪ f -1 ∘ Q ∘ u ∪ f
107 104 105 106 3syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → Rel ⁡ u ∪ f -1 ∘ Q ∘ u ∪ f
108 f1odm ⊢ u ∪ f -1 ∘ Q ∘ u ∪ f : 0 ..^ N ⟶ 1-1 onto 0 ..^ N → dom ⁡ u ∪ f -1 ∘ Q ∘ u ∪ f = 0 ..^ N
109 104 108 syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → dom ⁡ u ∪ f -1 ∘ Q ∘ u ∪ f = 0 ..^ N
110 fzosplit ⊢ P ∈ 0 … N → 0 ..^ N = 0 ..^ P ∪ P ..^ N
111 8 110 syl ⊢ φ → 0 ..^ N = 0 ..^ P ∪ P ..^ N
112 111 ad3antrrr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → 0 ..^ N = 0 ..^ P ∪ P ..^ N
113 109 112 eqtrd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → dom ⁡ u ∪ f -1 ∘ Q ∘ u ∪ f = 0 ..^ P ∪ P ..^ N
114 reldmun ⊢ Rel ⁡ u ∪ f -1 ∘ Q ∘ u ∪ f ∧ dom ⁡ u ∪ f -1 ∘ Q ∘ u ∪ f = 0 ..^ P ∪ P ..^ N → u ∪ f -1 ∘ Q ∘ u ∪ f = u ∪ f -1 ∘ Q ∘ u ∪ f ↾ 0 ..^ P ∪ u ∪ f -1 ∘ Q ∘ u ∪ f ↾ P ..^ N
115 107 113 114 syl2anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ∘ u ∪ f = u ∪ f -1 ∘ Q ∘ u ∪ f ↾ 0 ..^ P ∪ u ∪ f -1 ∘ Q ∘ u ∪ f ↾ P ..^ N
116 resco ⊢ u ∪ f -1 ∘ Q ∘ u ∪ f ↾ 0 ..^ P = u ∪ f -1 ∘ Q ∘ u ∪ f ↾ 0 ..^ P
117 116 a1i ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ∘ u ∪ f ↾ 0 ..^ P = u ∪ f -1 ∘ Q ∘ u ∪ f ↾ 0 ..^ P
118 25 26 syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → u ∈ Word D
119 wrdfn ⊢ u ∈ Word D → u Fn 0 ..^ u
120 118 119 syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → u Fn 0 ..^ u
121 24 elin2d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → u ∈ . -1 P
122 hashf ⊢ . : V ⟶ ℕ 0 ∪ +∞
123 ffn ⊢ . : V ⟶ ℕ 0 ∪ +∞ → . Fn V
124 fniniseg ⊢ . Fn V → u ∈ . -1 P ↔ u ∈ V ∧ u = P
125 122 123 124 mp2b ⊢ u ∈ . -1 P ↔ u ∈ V ∧ u = P
126 125 simprbi ⊢ u ∈ . -1 P → u = P
127 121 126 syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → u = P
128 127 oveq2d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → 0 ..^ u = 0 ..^ P
129 128 fneq2d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → u Fn 0 ..^ u ↔ u Fn 0 ..^ P
130 120 129 mpbid ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → u Fn 0 ..^ P
131 130 adantr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u Fn 0 ..^ P
132 f1ofn ⊢ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → f Fn 0 ..^ N ∖ dom ⁡ u
133 77 132 syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → f Fn 0 ..^ N ∖ dom ⁡ u
134 45 128 eqtrd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → dom ⁡ u = 0 ..^ P
135 134 ineq1d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → dom ⁡ u ∩ 0 ..^ N ∖ dom ⁡ u = 0 ..^ P ∩ 0 ..^ N ∖ dom ⁡ u
136 78 a1i ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → dom ⁡ u ∩ 0 ..^ N ∖ dom ⁡ u = ∅
137 135 136 eqtr3d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → 0 ..^ P ∩ 0 ..^ N ∖ dom ⁡ u = ∅
138 137 adantr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → 0 ..^ P ∩ 0 ..^ N ∖ dom ⁡ u = ∅
139 fnunres1 ⊢ u Fn 0 ..^ P ∧ f Fn 0 ..^ N ∖ dom ⁡ u ∧ 0 ..^ P ∩ 0 ..^ N ∖ dom ⁡ u = ∅ → u ∪ f ↾ 0 ..^ P = u
140 131 133 138 139 syl3anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f ↾ 0 ..^ P = u
141 140 coeq2d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ∘ u ∪ f ↾ 0 ..^ P = u ∪ f -1 ∘ Q ∘ u
142 resco ⊢ u ∪ f -1 ∘ Q ↾ ran ⁡ u = u ∪ f -1 ∘ Q ↾ ran ⁡ u
143 resco ⊢ u -1 ∘ M ⁡ u ↾ ran ⁡ u = u -1 ∘ M ⁡ u ↾ ran ⁡ u
144 143 a1i ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u -1 ∘ M ⁡ u ↾ ran ⁡ u = u -1 ∘ M ⁡ u ↾ ran ⁡ u
145 cnvun ⊢ u ∪ f -1 = u -1 ∪ f -1
146 145 reseq1i ⊢ u ∪ f -1 ↾ ran ⁡ u = u -1 ∪ f -1 ↾ ran ⁡ u
147 f1ocnv ⊢ u : dom ⁡ u ⟶ 1-1 onto ran ⁡ u → u -1 : ran ⁡ u ⟶ 1-1 onto dom ⁡ u
148 f1ofn ⊢ u -1 : ran ⁡ u ⟶ 1-1 onto dom ⁡ u → u -1 Fn ran ⁡ u
149 74 75 147 148 4syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u -1 Fn ran ⁡ u
150 f1ocnv ⊢ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → f -1 : D ∖ ran ⁡ u ⟶ 1-1 onto 0 ..^ N ∖ dom ⁡ u
151 f1ofn ⊢ f -1 : D ∖ ran ⁡ u ⟶ 1-1 onto 0 ..^ N ∖ dom ⁡ u → f -1 Fn D ∖ ran ⁡ u
152 77 150 151 3syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → f -1 Fn D ∖ ran ⁡ u
153 fnunres1 ⊢ u -1 Fn ran ⁡ u ∧ f -1 Fn D ∖ ran ⁡ u ∧ ran ⁡ u ∩ D ∖ ran ⁡ u = ∅ → u -1 ∪ f -1 ↾ ran ⁡ u = u -1
154 149 152 81 153 syl3anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u -1 ∪ f -1 ↾ ran ⁡ u = u -1
155 146 154 eqtr2id ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u -1 = u ∪ f -1 ↾ ran ⁡ u
156 simplr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → M ⁡ u = Q
157 156 reseq1d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → M ⁡ u ↾ ran ⁡ u = Q ↾ ran ⁡ u
158 155 157 coeq12d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u -1 ∘ M ⁡ u ↾ ran ⁡ u = u ∪ f -1 ↾ ran ⁡ u ∘ Q ↾ ran ⁡ u
159 52 adantr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → D ∈ Fin
160 118 adantr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∈ Word D
161 4 159 160 74 tocycfvres1 ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → M ⁡ u ↾ ran ⁡ u = u cyclShift 1 ∘ u -1
162 157 161 eqtr3d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → Q ↾ ran ⁡ u = u cyclShift 1 ∘ u -1
163 162 rneqd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → ran ⁡ Q ↾ ran ⁡ u = ran ⁡ u cyclShift 1 ∘ u -1
164 1zzd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → 1 ∈ ℤ
165 cshf1o ⊢ u ∈ Word D ∧ u : dom ⁡ u ⟶ 1-1 D ∧ 1 ∈ ℤ → u cyclShift 1 : dom ⁡ u ⟶ 1-1 onto ran ⁡ u
166 160 74 164 165 syl3anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u cyclShift 1 : dom ⁡ u ⟶ 1-1 onto ran ⁡ u
167 76 147 syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u -1 : ran ⁡ u ⟶ 1-1 onto dom ⁡ u
168 f1oco ⊢ u cyclShift 1 : dom ⁡ u ⟶ 1-1 onto ran ⁡ u ∧ u -1 : ran ⁡ u ⟶ 1-1 onto dom ⁡ u → u cyclShift 1 ∘ u -1 : ran ⁡ u ⟶ 1-1 onto ran ⁡ u
169 166 167 168 syl2anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u cyclShift 1 ∘ u -1 : ran ⁡ u ⟶ 1-1 onto ran ⁡ u
170 f1ofo ⊢ u cyclShift 1 ∘ u -1 : ran ⁡ u ⟶ 1-1 onto ran ⁡ u → u cyclShift 1 ∘ u -1 : ran ⁡ u ⟶ onto ran ⁡ u
171 forn ⊢ u cyclShift 1 ∘ u -1 : ran ⁡ u ⟶ onto ran ⁡ u → ran ⁡ u cyclShift 1 ∘ u -1 = ran ⁡ u
172 169 170 171 3syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → ran ⁡ u cyclShift 1 ∘ u -1 = ran ⁡ u
173 163 172 eqtrd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → ran ⁡ Q ↾ ran ⁡ u = ran ⁡ u
174 ssid ⊢ ran ⁡ u ⊆ ran ⁡ u
175 173 174 eqsstrdi ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → ran ⁡ Q ↾ ran ⁡ u ⊆ ran ⁡ u
176 cores ⊢ ran ⁡ Q ↾ ran ⁡ u ⊆ ran ⁡ u → u ∪ f -1 ↾ ran ⁡ u ∘ Q ↾ ran ⁡ u = u ∪ f -1 ∘ Q ↾ ran ⁡ u
177 175 176 syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ↾ ran ⁡ u ∘ Q ↾ ran ⁡ u = u ∪ f -1 ∘ Q ↾ ran ⁡ u
178 144 158 177 3eqtrrd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ↾ ran ⁡ u = u -1 ∘ M ⁡ u ↾ ran ⁡ u
179 142 178 eqtrid ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ↾ ran ⁡ u = u -1 ∘ M ⁡ u ↾ ran ⁡ u
180 179 coeq1d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ↾ ran ⁡ u ∘ u = u -1 ∘ M ⁡ u ↾ ran ⁡ u ∘ u
181 cores ⊢ ran ⁡ u ⊆ ran ⁡ u → u -1 ∘ M ⁡ u ↾ ran ⁡ u ∘ u = u -1 ∘ M ⁡ u ∘ u
182 174 181 mp1i ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u -1 ∘ M ⁡ u ↾ ran ⁡ u ∘ u = u -1 ∘ M ⁡ u ∘ u
183 180 182 eqtrd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ↾ ran ⁡ u ∘ u = u -1 ∘ M ⁡ u ∘ u
184 cores ⊢ ran ⁡ u ⊆ ran ⁡ u → u ∪ f -1 ∘ Q ↾ ran ⁡ u ∘ u = u ∪ f -1 ∘ Q ∘ u
185 174 184 mp1i ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ↾ ran ⁡ u ∘ u = u ∪ f -1 ∘ Q ∘ u
186 127 adantr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u = P
187 1 2 3 4 159 160 74 186 cycpmconjslem1 ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u -1 ∘ M ⁡ u ∘ u = I ↾ 0 ..^ P cyclShift 1
188 183 185 187 3eqtr3d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ∘ u = I ↾ 0 ..^ P cyclShift 1
189 117 141 188 3eqtrd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ∘ u ∪ f ↾ 0 ..^ P = I ↾ 0 ..^ P cyclShift 1
190 resco ⊢ u ∪ f -1 ∘ Q ∘ u ∪ f ↾ P ..^ N = u ∪ f -1 ∘ Q ∘ u ∪ f ↾ P ..^ N
191 134 adantr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → dom ⁡ u = 0 ..^ P
192 191 difeq2d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → 0 ..^ N ∖ dom ⁡ u = 0 ..^ N ∖ 0 ..^ P
193 fzodif1 ⊢ P ∈ 0 … N → 0 ..^ N ∖ 0 ..^ P = P ..^ N
194 8 193 syl ⊢ φ → 0 ..^ N ∖ 0 ..^ P = P ..^ N
195 194 ad3antrrr ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → 0 ..^ N ∖ 0 ..^ P = P ..^ N
196 192 195 eqtrd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → 0 ..^ N ∖ dom ⁡ u = P ..^ N
197 196 reseq2d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f ↾ 0 ..^ N ∖ dom ⁡ u = u ∪ f ↾ P ..^ N
198 fnunres2 ⊢ u Fn 0 ..^ P ∧ f Fn 0 ..^ N ∖ dom ⁡ u ∧ 0 ..^ P ∩ 0 ..^ N ∖ dom ⁡ u = ∅ → u ∪ f ↾ 0 ..^ N ∖ dom ⁡ u = f
199 131 133 138 198 syl3anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f ↾ 0 ..^ N ∖ dom ⁡ u = f
200 197 199 eqtr3d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f ↾ P ..^ N = f
201 200 coeq2d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ∘ u ∪ f ↾ P ..^ N = u ∪ f -1 ∘ Q ∘ f
202 190 201 eqtrid ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ∘ u ∪ f ↾ P ..^ N = u ∪ f -1 ∘ Q ∘ f
203 145 reseq1i ⊢ u ∪ f -1 ↾ D ∖ ran ⁡ u = u -1 ∪ f -1 ↾ D ∖ ran ⁡ u
204 fnunres2 ⊢ u -1 Fn ran ⁡ u ∧ f -1 Fn D ∖ ran ⁡ u ∧ ran ⁡ u ∩ D ∖ ran ⁡ u = ∅ → u -1 ∪ f -1 ↾ D ∖ ran ⁡ u = f -1
205 149 152 81 204 syl3anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u -1 ∪ f -1 ↾ D ∖ ran ⁡ u = f -1
206 203 205 eqtrid ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ↾ D ∖ ran ⁡ u = f -1
207 156 reseq1d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → M ⁡ u ↾ D ∖ ran ⁡ u = Q ↾ D ∖ ran ⁡ u
208 4 159 160 74 tocycfvres2 ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → M ⁡ u ↾ D ∖ ran ⁡ u = I ↾ D ∖ ran ⁡ u
209 207 208 eqtr3d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → Q ↾ D ∖ ran ⁡ u = I ↾ D ∖ ran ⁡ u
210 206 209 coeq12d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ↾ D ∖ ran ⁡ u ∘ Q ↾ D ∖ ran ⁡ u = f -1 ∘ I ↾ D ∖ ran ⁡ u
211 209 rneqd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → ran ⁡ Q ↾ D ∖ ran ⁡ u = ran ⁡ I ↾ D ∖ ran ⁡ u
212 rnresi ⊢ ran ⁡ I ↾ D ∖ ran ⁡ u = D ∖ ran ⁡ u
213 212 eqimssi ⊢ ran ⁡ I ↾ D ∖ ran ⁡ u ⊆ D ∖ ran ⁡ u
214 211 213 eqsstrdi ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → ran ⁡ Q ↾ D ∖ ran ⁡ u ⊆ D ∖ ran ⁡ u
215 cores ⊢ ran ⁡ Q ↾ D ∖ ran ⁡ u ⊆ D ∖ ran ⁡ u → u ∪ f -1 ↾ D ∖ ran ⁡ u ∘ Q ↾ D ∖ ran ⁡ u = u ∪ f -1 ∘ Q ↾ D ∖ ran ⁡ u
216 214 215 syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ↾ D ∖ ran ⁡ u ∘ Q ↾ D ∖ ran ⁡ u = u ∪ f -1 ∘ Q ↾ D ∖ ran ⁡ u
217 resco ⊢ u ∪ f -1 ∘ Q ↾ D ∖ ran ⁡ u = u ∪ f -1 ∘ Q ↾ D ∖ ran ⁡ u
218 216 217 eqtr4di ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ↾ D ∖ ran ⁡ u ∘ Q ↾ D ∖ ran ⁡ u = u ∪ f -1 ∘ Q ↾ D ∖ ran ⁡ u
219 210 218 eqtr3d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → f -1 ∘ I ↾ D ∖ ran ⁡ u = u ∪ f -1 ∘ Q ↾ D ∖ ran ⁡ u
220 219 coeq1d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → f -1 ∘ I ↾ D ∖ ran ⁡ u ∘ f = u ∪ f -1 ∘ Q ↾ D ∖ ran ⁡ u ∘ f
221 f1of ⊢ f -1 : D ∖ ran ⁡ u ⟶ 1-1 onto 0 ..^ N ∖ dom ⁡ u → f -1 : D ∖ ran ⁡ u ⟶ 0 ..^ N ∖ dom ⁡ u
222 fcoi1 ⊢ f -1 : D ∖ ran ⁡ u ⟶ 0 ..^ N ∖ dom ⁡ u → f -1 ∘ I ↾ D ∖ ran ⁡ u = f -1
223 77 150 221 222 4syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → f -1 ∘ I ↾ D ∖ ran ⁡ u = f -1
224 223 coeq1d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → f -1 ∘ I ↾ D ∖ ran ⁡ u ∘ f = f -1 ∘ f
225 f1ococnv1 ⊢ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → f -1 ∘ f = I ↾ 0 ..^ N ∖ dom ⁡ u
226 77 225 syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → f -1 ∘ f = I ↾ 0 ..^ N ∖ dom ⁡ u
227 196 reseq2d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → I ↾ 0 ..^ N ∖ dom ⁡ u = I ↾ P ..^ N
228 224 226 227 3eqtrd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → f -1 ∘ I ↾ D ∖ ran ⁡ u ∘ f = I ↾ P ..^ N
229 f1of ⊢ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → f : 0 ..^ N ∖ dom ⁡ u ⟶ D ∖ ran ⁡ u
230 frn ⊢ f : 0 ..^ N ∖ dom ⁡ u ⟶ D ∖ ran ⁡ u → ran ⁡ f ⊆ D ∖ ran ⁡ u
231 cores ⊢ ran ⁡ f ⊆ D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ↾ D ∖ ran ⁡ u ∘ f = u ∪ f -1 ∘ Q ∘ f
232 77 229 230 231 4syl ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ↾ D ∖ ran ⁡ u ∘ f = u ∪ f -1 ∘ Q ∘ f
233 220 228 232 3eqtr3rd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ∘ f = I ↾ P ..^ N
234 202 233 eqtrd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ∘ u ∪ f ↾ P ..^ N = I ↾ P ..^ N
235 189 234 uneq12d ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ∘ u ∪ f ↾ 0 ..^ P ∪ u ∪ f -1 ∘ Q ∘ u ∪ f ↾ P ..^ N = I ↾ 0 ..^ P cyclShift 1 ∪ I ↾ P ..^ N
236 115 235 eqtrd ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → u ∪ f -1 ∘ Q ∘ u ∪ f = I ↾ 0 ..^ P cyclShift 1 ∪ I ↾ P ..^ N
237 vex ⊢ u ∈ V
238 vex ⊢ f ∈ V
239 237 238 unex ⊢ u ∪ f ∈ V
240 f1oeq1 ⊢ q = u ∪ f → q : 0 ..^ N ⟶ 1-1 onto D ↔ u ∪ f : 0 ..^ N ⟶ 1-1 onto D
241 cnveq ⊢ q = u ∪ f → q -1 = u ∪ f -1
242 241 coeq1d ⊢ q = u ∪ f → q -1 ∘ Q = u ∪ f -1 ∘ Q
243 id ⊢ q = u ∪ f → q = u ∪ f
244 242 243 coeq12d ⊢ q = u ∪ f → q -1 ∘ Q ∘ q = u ∪ f -1 ∘ Q ∘ u ∪ f
245 244 eqeq1d ⊢ q = u ∪ f → q -1 ∘ Q ∘ q = I ↾ 0 ..^ P cyclShift 1 ∪ I ↾ P ..^ N ↔ u ∪ f -1 ∘ Q ∘ u ∪ f = I ↾ 0 ..^ P cyclShift 1 ∪ I ↾ P ..^ N
246 240 245 anbi12d ⊢ q = u ∪ f → q : 0 ..^ N ⟶ 1-1 onto D ∧ q -1 ∘ Q ∘ q = I ↾ 0 ..^ P cyclShift 1 ∪ I ↾ P ..^ N ↔ u ∪ f : 0 ..^ N ⟶ 1-1 onto D ∧ u ∪ f -1 ∘ Q ∘ u ∪ f = I ↾ 0 ..^ P cyclShift 1 ∪ I ↾ P ..^ N
247 239 246 spcev ⊢ u ∪ f : 0 ..^ N ⟶ 1-1 onto D ∧ u ∪ f -1 ∘ Q ∘ u ∪ f = I ↾ 0 ..^ P cyclShift 1 ∪ I ↾ P ..^ N → ∃ q q : 0 ..^ N ⟶ 1-1 onto D ∧ q -1 ∘ Q ∘ q = I ↾ 0 ..^ P cyclShift 1 ∪ I ↾ P ..^ N
248 92 236 247 syl2anc ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q ∧ f : 0 ..^ N ∖ dom ⁡ u ⟶ 1-1 onto D ∖ ran ⁡ u → ∃ q q : 0 ..^ N ⟶ 1-1 onto D ∧ q -1 ∘ Q ∘ q = I ↾ 0 ..^ P cyclShift 1 ∪ I ↾ P ..^ N
249 73 248 exlimddv ⊢ φ ∧ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P ∧ M ⁡ u = Q → ∃ q q : 0 ..^ N ⟶ 1-1 onto D ∧ q -1 ∘ Q ∘ q = I ↾ 0 ..^ P cyclShift 1 ∪ I ↾ P ..^ N
250 nfcv ⊢ Ⅎ _ u M
251 4 2 5 tocycf ⊢ D ∈ Fin → M : w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ⟶ B
252 ffn ⊢ M : w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ⟶ B → M Fn w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D
253 9 251 252 3syl ⊢ φ → M Fn w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D
254 10 1 eleqtrdi ⊢ φ → Q ∈ M . -1 P
255 250 253 254 fvelimad ⊢ φ → ∃ u ∈ w ∈ Word D | w : dom ⁡ w ⟶ 1-1 D ∩ . -1 P M ⁡ u = Q
256 249 255 r19.29a ⊢ φ → ∃ q q : 0 ..^ N ⟶ 1-1 onto D ∧ q -1 ∘ Q ∘ q = I ↾ 0 ..^ P cyclShift 1 ∪ I ↾ P ..^ N