Metamath Proof Explorer


Theorem 1arithidomlem2

Description: Lemma for 1arithidom : induction step. (Contributed by Thierry Arnoux, 27-May-2025)

Ref Expression
Hypotheses 1arithidom.u ⊢ U = Unit ⁡ R
1arithidom.i ⊢ P = RPrime ⁡ R
1arithidom.m ⊢ M = mulGrp R
1arithidom.t ⊢ · ˙ = ⋅ R
1arithidom.j ⊢ J = 0 ..^ F
1arithidom.r ⊢ φ → R ∈ IDomn
1arithidom.f ⊢ φ → F ∈ Word P
1arithidom.g ⊢ φ → G ∈ Word P
1arithidom.1 ⊢ φ → ∑ M F = ∑ M G
1arithidomlem.1 ⊢ φ → Q ∈ P
1arithidomlem.2 ⊢ φ → ∀ g ∈ Word P ∃ k ∈ U ∑ M F = k · ˙ ∑ M g → ∃ w ∃ u ∈ U 0 ..^ F w : 0 ..^ F ⟶ 1-1 onto 0 ..^ F ∧ g = u · ˙ f F ∘ w
1arithidomlem.3 ⊢ φ → H ∈ Word P
1arithidomlem.4 ⊢ φ → ∃ k ∈ U ∑ M F ++ ⟨“ Q ”⟩ = k · ˙ ∑ M H
1arithidomlem.5 ⊢ φ → K ∈ 0 ..^ H
1arithidomlem.6 ⊢ φ → Q ∥ r ⁡ R H ⁡ K
1arithidomlem.7 ⊢ φ → T ∈ U
1arithidomlem.8 ⊢ φ → T · ˙ Q = H ⁡ K
1arithidomlem.9 ⊢ φ → S : 0 ..^ H ⟶ 1-1 onto 0 ..^ H
1arithidomlem.10 ⊢ φ → H ∘ S = H ∘ S prefix H − 1 ++ ⟨“ H ⁡ K ”⟩
1arithidomlem.11 ⊢ φ → N ∈ U
1arithidomlem.12 ⊢ φ → ∑ M F ++ ⟨“ Q ”⟩ = N · ˙ ∑ M H
1arithidomlem.13 ⊢ φ → D ∈ U 0 ..^ F
1arithidomlem.14 ⊢ φ → C : 0 ..^ F ⟶ 1-1 onto 0 ..^ F
1arithidomlem.15 ⊢ φ → H ∘ S prefix H − 1 = D · ˙ f F ∘ C
Assertion 1arithidomlem2 ⊢ φ → C ++ ⟨“ F ”⟩ ∘ S -1 : 0 ..^ F ++ ⟨“ Q ”⟩ ⟶ 1-1 onto 0 ..^ F ++ ⟨“ Q ”⟩ ∧ H = D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1

Proof

Step Hyp Ref Expression
1 1arithidom.u ⊢ U = Unit ⁡ R
2 1arithidom.i ⊢ P = RPrime ⁡ R
3 1arithidom.m ⊢ M = mulGrp R
4 1arithidom.t ⊢ · ˙ = ⋅ R
5 1arithidom.j ⊢ J = 0 ..^ F
6 1arithidom.r ⊢ φ → R ∈ IDomn
7 1arithidom.f ⊢ φ → F ∈ Word P
8 1arithidom.g ⊢ φ → G ∈ Word P
9 1arithidom.1 ⊢ φ → ∑ M F = ∑ M G
10 1arithidomlem.1 ⊢ φ → Q ∈ P
11 1arithidomlem.2 ⊢ φ → ∀ g ∈ Word P ∃ k ∈ U ∑ M F = k · ˙ ∑ M g → ∃ w ∃ u ∈ U 0 ..^ F w : 0 ..^ F ⟶ 1-1 onto 0 ..^ F ∧ g = u · ˙ f F ∘ w
12 1arithidomlem.3 ⊢ φ → H ∈ Word P
13 1arithidomlem.4 ⊢ φ → ∃ k ∈ U ∑ M F ++ ⟨“ Q ”⟩ = k · ˙ ∑ M H
14 1arithidomlem.5 ⊢ φ → K ∈ 0 ..^ H
15 1arithidomlem.6 ⊢ φ → Q ∥ r ⁡ R H ⁡ K
16 1arithidomlem.7 ⊢ φ → T ∈ U
17 1arithidomlem.8 ⊢ φ → T · ˙ Q = H ⁡ K
18 1arithidomlem.9 ⊢ φ → S : 0 ..^ H ⟶ 1-1 onto 0 ..^ H
19 1arithidomlem.10 ⊢ φ → H ∘ S = H ∘ S prefix H − 1 ++ ⟨“ H ⁡ K ”⟩
20 1arithidomlem.11 ⊢ φ → N ∈ U
21 1arithidomlem.12 ⊢ φ → ∑ M F ++ ⟨“ Q ”⟩ = N · ˙ ∑ M H
22 1arithidomlem.13 ⊢ φ → D ∈ U 0 ..^ F
23 1arithidomlem.14 ⊢ φ → C : 0 ..^ F ⟶ 1-1 onto 0 ..^ F
24 1arithidomlem.15 ⊢ φ → H ∘ S prefix H − 1 = D · ˙ f F ∘ C
25 ccatws1len ⊢ F ∈ Word P → F ++ ⟨“ Q ”⟩ = F + 1
26 7 25 syl ⊢ φ → F ++ ⟨“ Q ”⟩ = F + 1
27 24 dmeqd ⊢ φ → dom ⁡ H ∘ S prefix H − 1 = dom ⁡ D · ˙ f F ∘ C
28 f1of ⊢ S : 0 ..^ H ⟶ 1-1 onto 0 ..^ H → S : 0 ..^ H ⟶ 0 ..^ H
29 iswrdi ⊢ S : 0 ..^ H ⟶ 0 ..^ H → S ∈ Word 0 ..^ H
30 18 28 29 3syl ⊢ φ → S ∈ Word 0 ..^ H
31 eqidd ⊢ φ → H = H
32 31 12 wrdfd ⊢ φ → H : 0 ..^ H ⟶ P
33 wrdco ⊢ S ∈ Word 0 ..^ H ∧ H : 0 ..^ H ⟶ P → H ∘ S ∈ Word P
34 30 32 33 syl2anc ⊢ φ → H ∘ S ∈ Word P
35 elfzo0 ⊢ K ∈ 0 ..^ H ↔ K ∈ ℕ 0 ∧ H ∈ ℕ ∧ K < H
36 35 simp2bi ⊢ K ∈ 0 ..^ H → H ∈ ℕ
37 nnm1nn0 ⊢ H ∈ ℕ → H − 1 ∈ ℕ 0
38 14 36 37 3syl ⊢ φ → H − 1 ∈ ℕ 0
39 lenco ⊢ S ∈ Word 0 ..^ H ∧ H : 0 ..^ H ⟶ P → H ∘ S = S
40 30 32 39 syl2anc ⊢ φ → H ∘ S = S
41 lencl ⊢ S ∈ Word 0 ..^ H → S ∈ ℕ 0
42 30 41 syl ⊢ φ → S ∈ ℕ 0
43 40 42 eqeltrd ⊢ φ → H ∘ S ∈ ℕ 0
44 lencl ⊢ H ∈ Word P → H ∈ ℕ 0
45 12 44 syl ⊢ φ → H ∈ ℕ 0
46 45 nn0red ⊢ φ → H ∈ ℝ
47 46 lem1d ⊢ φ → H − 1 ≤ H
48 18 28 syl ⊢ φ → S : 0 ..^ H ⟶ 0 ..^ H
49 ffn ⊢ S : 0 ..^ H ⟶ 0 ..^ H → S Fn 0 ..^ H
50 hashfn ⊢ S Fn 0 ..^ H → S = 0 ..^ H
51 48 49 50 3syl ⊢ φ → S = 0 ..^ H
52 hashfzo0 ⊢ H ∈ ℕ 0 → 0 ..^ H = H
53 12 44 52 3syl ⊢ φ → 0 ..^ H = H
54 40 51 53 3eqtrrd ⊢ φ → H = H ∘ S
55 47 54 breqtrd ⊢ φ → H − 1 ≤ H ∘ S
56 elfz2nn0 ⊢ H − 1 ∈ 0 … H ∘ S ↔ H − 1 ∈ ℕ 0 ∧ H ∘ S ∈ ℕ 0 ∧ H − 1 ≤ H ∘ S
57 38 43 55 56 syl3anbrc ⊢ φ → H − 1 ∈ 0 … H ∘ S
58 pfxfn ⊢ H ∘ S ∈ Word P ∧ H − 1 ∈ 0 … H ∘ S → H ∘ S prefix H − 1 Fn 0 ..^ H − 1
59 34 57 58 syl2anc ⊢ φ → H ∘ S prefix H − 1 Fn 0 ..^ H − 1
60 59 fndmd ⊢ φ → dom ⁡ H ∘ S prefix H − 1 = 0 ..^ H − 1
61 eqid ⊢ Base R = Base R
62 6 idomringd ⊢ φ → R ∈ Ring
63 62 adantr ⊢ φ ∧ x ∈ U ∧ y ∈ P → R ∈ Ring
64 61 1 unitcl ⊢ x ∈ U → x ∈ Base R
65 64 ad2antrl ⊢ φ ∧ x ∈ U ∧ y ∈ P → x ∈ Base R
66 6 adantr ⊢ φ ∧ x ∈ U ∧ y ∈ P → R ∈ IDomn
67 simprr ⊢ φ ∧ x ∈ U ∧ y ∈ P → y ∈ P
68 61 2 66 67 rprmcl ⊢ φ ∧ x ∈ U ∧ y ∈ P → y ∈ Base R
69 61 4 63 65 68 ringcld ⊢ φ ∧ x ∈ U ∧ y ∈ P → x · ˙ y ∈ Base R
70 elmapi ⊢ D ∈ U 0 ..^ F → D : 0 ..^ F ⟶ U
71 22 70 syl ⊢ φ → D : 0 ..^ F ⟶ U
72 eqidd ⊢ φ → F = F
73 72 7 wrdfd ⊢ φ → F : 0 ..^ F ⟶ P
74 f1of ⊢ C : 0 ..^ F ⟶ 1-1 onto 0 ..^ F → C : 0 ..^ F ⟶ 0 ..^ F
75 23 74 syl ⊢ φ → C : 0 ..^ F ⟶ 0 ..^ F
76 73 75 fcod ⊢ φ → F ∘ C : 0 ..^ F ⟶ P
77 ovexd ⊢ φ → 0 ..^ F ∈ V
78 inidm ⊢ 0 ..^ F ∩ 0 ..^ F = 0 ..^ F
79 69 71 76 77 77 78 off ⊢ φ → D · ˙ f F ∘ C : 0 ..^ F ⟶ Base R
80 79 fdmd ⊢ φ → dom ⁡ D · ˙ f F ∘ C = 0 ..^ F
81 27 60 80 3eqtr3d ⊢ φ → 0 ..^ H − 1 = 0 ..^ F
82 lencl ⊢ F ∈ Word P → F ∈ ℕ 0
83 7 82 syl ⊢ φ → F ∈ ℕ 0
84 38 83 fzo0opth ⊢ φ → 0 ..^ H − 1 = 0 ..^ F ↔ H − 1 = F
85 81 84 mpbid ⊢ φ → H − 1 = F
86 85 oveq1d ⊢ φ → H - 1 + 1 = F + 1
87 14 36 syl ⊢ φ → H ∈ ℕ
88 87 nncnd ⊢ φ → H ∈ ℂ
89 npcan1 ⊢ H ∈ ℂ → H - 1 + 1 = H
90 88 89 syl ⊢ φ → H - 1 + 1 = H
91 86 90 eqtr3d ⊢ φ → F + 1 = H
92 26 91 eqtrd ⊢ φ → F ++ ⟨“ Q ”⟩ = H
93 92 oveq2d ⊢ φ → 0 ..^ F ++ ⟨“ Q ”⟩ = 0 ..^ H
94 eqid ⊢ C = C
95 eqid ⊢ 0 ..^ C + 1 = 0 ..^ C + 1
96 f1ofn ⊢ C : 0 ..^ F ⟶ 1-1 onto 0 ..^ F → C Fn 0 ..^ F
97 hashfn ⊢ C Fn 0 ..^ F → C = 0 ..^ F
98 23 96 97 3syl ⊢ φ → C = 0 ..^ F
99 hashfzo0 ⊢ F ∈ ℕ 0 → 0 ..^ F = F
100 83 99 syl ⊢ φ → 0 ..^ F = F
101 98 100 eqtrd ⊢ φ → C = F
102 101 oveq2d ⊢ φ → 0 ..^ C = 0 ..^ F
103 f1oeq23 ⊢ 0 ..^ C = 0 ..^ F ∧ 0 ..^ C = 0 ..^ F → C : 0 ..^ C ⟶ 1-1 onto 0 ..^ C ↔ C : 0 ..^ F ⟶ 1-1 onto 0 ..^ F
104 103 biimpar ⊢ 0 ..^ C = 0 ..^ F ∧ 0 ..^ C = 0 ..^ F ∧ C : 0 ..^ F ⟶ 1-1 onto 0 ..^ F → C : 0 ..^ C ⟶ 1-1 onto 0 ..^ C
105 102 102 23 104 syl21anc ⊢ φ → C : 0 ..^ C ⟶ 1-1 onto 0 ..^ C
106 94 95 105 ccatws1f1o ⊢ φ → C ++ ⟨“ C ”⟩ : 0 ..^ C + 1 ⟶ 1-1 onto 0 ..^ C + 1
107 101 s1eqd ⊢ φ → ⟨“ C ”⟩ = ⟨“ F ”⟩
108 107 oveq2d ⊢ φ → C ++ ⟨“ C ”⟩ = C ++ ⟨“ F ”⟩
109 101 oveq1d ⊢ φ → C + 1 = F + 1
110 109 91 eqtrd ⊢ φ → C + 1 = H
111 110 oveq2d ⊢ φ → 0 ..^ C + 1 = 0 ..^ H
112 108 111 111 f1oeq123d ⊢ φ → C ++ ⟨“ C ”⟩ : 0 ..^ C + 1 ⟶ 1-1 onto 0 ..^ C + 1 ↔ C ++ ⟨“ F ”⟩ : 0 ..^ H ⟶ 1-1 onto 0 ..^ H
113 106 112 mpbid ⊢ φ → C ++ ⟨“ F ”⟩ : 0 ..^ H ⟶ 1-1 onto 0 ..^ H
114 f1ocnv ⊢ S : 0 ..^ H ⟶ 1-1 onto 0 ..^ H → S -1 : 0 ..^ H ⟶ 1-1 onto 0 ..^ H
115 18 114 syl ⊢ φ → S -1 : 0 ..^ H ⟶ 1-1 onto 0 ..^ H
116 f1oco ⊢ C ++ ⟨“ F ”⟩ : 0 ..^ H ⟶ 1-1 onto 0 ..^ H ∧ S -1 : 0 ..^ H ⟶ 1-1 onto 0 ..^ H → C ++ ⟨“ F ”⟩ ∘ S -1 : 0 ..^ H ⟶ 1-1 onto 0 ..^ H
117 113 115 116 syl2anc ⊢ φ → C ++ ⟨“ F ”⟩ ∘ S -1 : 0 ..^ H ⟶ 1-1 onto 0 ..^ H
118 f1oeq23 ⊢ 0 ..^ F ++ ⟨“ Q ”⟩ = 0 ..^ H ∧ 0 ..^ F ++ ⟨“ Q ”⟩ = 0 ..^ H → C ++ ⟨“ F ”⟩ ∘ S -1 : 0 ..^ F ++ ⟨“ Q ”⟩ ⟶ 1-1 onto 0 ..^ F ++ ⟨“ Q ”⟩ ↔ C ++ ⟨“ F ”⟩ ∘ S -1 : 0 ..^ H ⟶ 1-1 onto 0 ..^ H
119 118 biimpar ⊢ 0 ..^ F ++ ⟨“ Q ”⟩ = 0 ..^ H ∧ 0 ..^ F ++ ⟨“ Q ”⟩ = 0 ..^ H ∧ C ++ ⟨“ F ”⟩ ∘ S -1 : 0 ..^ H ⟶ 1-1 onto 0 ..^ H → C ++ ⟨“ F ”⟩ ∘ S -1 : 0 ..^ F ++ ⟨“ Q ”⟩ ⟶ 1-1 onto 0 ..^ F ++ ⟨“ Q ”⟩
120 93 93 117 119 syl21anc ⊢ φ → C ++ ⟨“ F ”⟩ ∘ S -1 : 0 ..^ F ++ ⟨“ Q ”⟩ ⟶ 1-1 onto 0 ..^ F ++ ⟨“ Q ”⟩
121 f1ofo ⊢ S : 0 ..^ H ⟶ 1-1 onto 0 ..^ H → S : 0 ..^ H ⟶ onto 0 ..^ H
122 18 121 syl ⊢ φ → S : 0 ..^ H ⟶ onto 0 ..^ H
123 32 ffnd ⊢ φ → H Fn 0 ..^ H
124 iswrdi ⊢ D : 0 ..^ F ⟶ U → D ∈ Word U
125 71 124 syl ⊢ φ → D ∈ Word U
126 ccatws1len ⊢ D ∈ Word U → D ++ ⟨“ T ”⟩ = D + 1
127 125 126 syl ⊢ φ → D ++ ⟨“ T ”⟩ = D + 1
128 elmapfn ⊢ D ∈ U 0 ..^ F → D Fn 0 ..^ F
129 hashfn ⊢ D Fn 0 ..^ F → D = 0 ..^ F
130 22 128 129 3syl ⊢ φ → D = 0 ..^ F
131 130 100 eqtrd ⊢ φ → D = F
132 131 oveq1d ⊢ φ → D + 1 = F + 1
133 127 132 91 3eqtrd ⊢ φ → D ++ ⟨“ T ”⟩ = H
134 133 oveq2d ⊢ φ → 0 ..^ D ++ ⟨“ T ”⟩ = 0 ..^ H
135 eqidd ⊢ φ → D ++ ⟨“ T ”⟩ = D ++ ⟨“ T ”⟩
136 ccatws1cl ⊢ D ∈ Word U ∧ T ∈ U → D ++ ⟨“ T ”⟩ ∈ Word U
137 125 16 136 syl2anc ⊢ φ → D ++ ⟨“ T ”⟩ ∈ Word U
138 135 137 wrdfd ⊢ φ → D ++ ⟨“ T ”⟩ : 0 ..^ D ++ ⟨“ T ”⟩ ⟶ U
139 134 138 feq2dd ⊢ φ → D ++ ⟨“ T ”⟩ : 0 ..^ H ⟶ U
140 139 ffnd ⊢ φ → D ++ ⟨“ T ”⟩ Fn 0 ..^ H
141 f1of ⊢ S -1 : 0 ..^ H ⟶ 1-1 onto 0 ..^ H → S -1 : 0 ..^ H ⟶ 0 ..^ H
142 18 114 141 3syl ⊢ φ → S -1 : 0 ..^ H ⟶ 0 ..^ H
143 fnfco ⊢ D ++ ⟨“ T ”⟩ Fn 0 ..^ H ∧ S -1 : 0 ..^ H ⟶ 0 ..^ H → D ++ ⟨“ T ”⟩ ∘ S -1 Fn 0 ..^ H
144 140 142 143 syl2anc ⊢ φ → D ++ ⟨“ T ”⟩ ∘ S -1 Fn 0 ..^ H
145 91 oveq2d ⊢ φ → 0 ..^ F + 1 = 0 ..^ H
146 26 eqcomd ⊢ φ → F + 1 = F ++ ⟨“ Q ”⟩
147 ccatws1cl ⊢ F ∈ Word P ∧ Q ∈ P → F ++ ⟨“ Q ”⟩ ∈ Word P
148 7 10 147 syl2anc ⊢ φ → F ++ ⟨“ Q ”⟩ ∈ Word P
149 146 148 wrdfd ⊢ φ → F ++ ⟨“ Q ”⟩ : 0 ..^ F + 1 ⟶ P
150 145 149 feq2dd ⊢ φ → F ++ ⟨“ Q ”⟩ : 0 ..^ H ⟶ P
151 150 ffnd ⊢ φ → F ++ ⟨“ Q ”⟩ Fn 0 ..^ H
152 fzossfzop1 ⊢ F ∈ ℕ 0 → 0 ..^ F ⊆ 0 ..^ F + 1
153 83 152 syl ⊢ φ → 0 ..^ F ⊆ 0 ..^ F + 1
154 sswrd ⊢ 0 ..^ F ⊆ 0 ..^ F + 1 → Word 0 ..^ F ⊆ Word 0 ..^ F + 1
155 153 154 syl ⊢ φ → Word 0 ..^ F ⊆ Word 0 ..^ F + 1
156 iswrdi ⊢ C : 0 ..^ F ⟶ 0 ..^ F → C ∈ Word 0 ..^ F
157 75 156 syl ⊢ φ → C ∈ Word 0 ..^ F
158 155 157 sseldd ⊢ φ → C ∈ Word 0 ..^ F + 1
159 ccatws1len ⊢ C ∈ Word 0 ..^ F + 1 → C ++ ⟨“ F ”⟩ = C + 1
160 158 159 syl ⊢ φ → C ++ ⟨“ F ”⟩ = C + 1
161 160 109 91 3eqtrrd ⊢ φ → H = C ++ ⟨“ F ”⟩
162 153 145 sseqtrd ⊢ φ → 0 ..^ F ⊆ 0 ..^ H
163 75 162 fssd ⊢ φ → C : 0 ..^ F ⟶ 0 ..^ H
164 iswrdi ⊢ C : 0 ..^ F ⟶ 0 ..^ H → C ∈ Word 0 ..^ H
165 163 164 syl ⊢ φ → C ∈ Word 0 ..^ H
166 fzonn0p1 ⊢ F ∈ ℕ 0 → F ∈ 0 ..^ F + 1
167 83 166 syl ⊢ φ → F ∈ 0 ..^ F + 1
168 167 145 eleqtrd ⊢ φ → F ∈ 0 ..^ H
169 ccatws1cl ⊢ C ∈ Word 0 ..^ H ∧ F ∈ 0 ..^ H → C ++ ⟨“ F ”⟩ ∈ Word 0 ..^ H
170 165 168 169 syl2anc ⊢ φ → C ++ ⟨“ F ”⟩ ∈ Word 0 ..^ H
171 161 170 wrdfd ⊢ φ → C ++ ⟨“ F ”⟩ : 0 ..^ H ⟶ 0 ..^ H
172 171 142 fcod ⊢ φ → C ++ ⟨“ F ”⟩ ∘ S -1 : 0 ..^ H ⟶ 0 ..^ H
173 fnfco ⊢ F ++ ⟨“ Q ”⟩ Fn 0 ..^ H ∧ C ++ ⟨“ F ”⟩ ∘ S -1 : 0 ..^ H ⟶ 0 ..^ H → F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 Fn 0 ..^ H
174 151 172 173 syl2anc ⊢ φ → F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 Fn 0 ..^ H
175 ovexd ⊢ φ → 0 ..^ H ∈ V
176 inidm ⊢ 0 ..^ H ∩ 0 ..^ H = 0 ..^ H
177 144 174 175 175 176 offn ⊢ φ → D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 Fn 0 ..^ H
178 eqid ⊢ F = F
179 178 7 10 23 ccatws1f1olast ⊢ φ → F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ = F ∘ C ++ ⟨“ Q ”⟩
180 179 oveq2d ⊢ φ → D ++ ⟨“ T ”⟩ · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ = D ++ ⟨“ T ”⟩ · ˙ f F ∘ C ++ ⟨“ Q ”⟩
181 16 s1cld ⊢ φ → ⟨“ T ”⟩ ∈ Word U
182 iswrdi ⊢ F ∘ C : 0 ..^ F ⟶ P → F ∘ C ∈ Word P
183 76 182 syl ⊢ φ → F ∘ C ∈ Word P
184 10 s1cld ⊢ φ → ⟨“ Q ”⟩ ∈ Word P
185 lenco ⊢ C ∈ Word 0 ..^ F ∧ F : 0 ..^ F ⟶ P → F ∘ C = C
186 157 73 185 syl2anc ⊢ φ → F ∘ C = C
187 98 186 130 3eqtr4rd ⊢ φ → D = F ∘ C
188 s1len ⊢ ⟨“ T ”⟩ = 1
189 s1len ⊢ ⟨“ Q ”⟩ = 1
190 188 189 eqtr4i ⊢ ⟨“ T ”⟩ = ⟨“ Q ”⟩
191 190 a1i ⊢ φ → ⟨“ T ”⟩ = ⟨“ Q ”⟩
192 125 181 183 184 187 191 ofccat ⊢ φ → D ++ ⟨“ T ”⟩ · ˙ f F ∘ C ++ ⟨“ Q ”⟩ = D · ˙ f F ∘ C ++ ⟨“ T ”⟩ · ˙ f ⟨“ Q ”⟩
193 180 192 eqtrd ⊢ φ → D ++ ⟨“ T ”⟩ · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ = D · ˙ f F ∘ C ++ ⟨“ T ”⟩ · ˙ f ⟨“ Q ”⟩
194 150 171 fcod ⊢ φ → F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ : 0 ..^ H ⟶ P
195 194 ffnd ⊢ φ → F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ Fn 0 ..^ H
196 140 195 142 175 175 175 176 ofco ⊢ φ → D ++ ⟨“ T ”⟩ · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 = D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1
197 196 coeq1d ⊢ φ → D ++ ⟨“ T ”⟩ · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 ∘ S = D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 ∘ S
198 coass ⊢ D ++ ⟨“ T ”⟩ · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 ∘ S = D ++ ⟨“ T ”⟩ · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 ∘ S
199 197 198 eqtr3di ⊢ φ → D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 ∘ S = D ++ ⟨“ T ”⟩ · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 ∘ S
200 f1of1 ⊢ S : 0 ..^ H ⟶ 1-1 onto 0 ..^ H → S : 0 ..^ H ⟶ 1-1 0 ..^ H
201 18 200 syl ⊢ φ → S : 0 ..^ H ⟶ 1-1 0 ..^ H
202 f1cocnv1 ⊢ S : 0 ..^ H ⟶ 1-1 0 ..^ H → S -1 ∘ S = I ↾ 0 ..^ H
203 201 202 syl ⊢ φ → S -1 ∘ S = I ↾ 0 ..^ H
204 203 coeq2d ⊢ φ → D ++ ⟨“ T ”⟩ · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 ∘ S = D ++ ⟨“ T ”⟩ · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ I ↾ 0 ..^ H
205 69 139 194 175 175 176 off ⊢ φ → D ++ ⟨“ T ”⟩ · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ : 0 ..^ H ⟶ Base R
206 fcoi1 ⊢ D ++ ⟨“ T ”⟩ · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ : 0 ..^ H ⟶ Base R → D ++ ⟨“ T ”⟩ · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ I ↾ 0 ..^ H = D ++ ⟨“ T ”⟩ · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩
207 205 206 syl ⊢ φ → D ++ ⟨“ T ”⟩ · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ I ↾ 0 ..^ H = D ++ ⟨“ T ”⟩ · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩
208 199 204 207 3eqtrd ⊢ φ → D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 ∘ S = D ++ ⟨“ T ”⟩ · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩
209 ofs1 ⊢ T ∈ U ∧ Q ∈ P → ⟨“ T ”⟩ · ˙ f ⟨“ Q ”⟩ = ⟨“ T · ˙ Q ”⟩
210 16 10 209 syl2anc ⊢ φ → ⟨“ T ”⟩ · ˙ f ⟨“ Q ”⟩ = ⟨“ T · ˙ Q ”⟩
211 17 s1eqd ⊢ φ → ⟨“ T · ˙ Q ”⟩ = ⟨“ H ⁡ K ”⟩
212 210 211 eqtr2d ⊢ φ → ⟨“ H ⁡ K ”⟩ = ⟨“ T ”⟩ · ˙ f ⟨“ Q ”⟩
213 24 212 oveq12d ⊢ φ → H ∘ S prefix H − 1 ++ ⟨“ H ⁡ K ”⟩ = D · ˙ f F ∘ C ++ ⟨“ T ”⟩ · ˙ f ⟨“ Q ”⟩
214 193 208 213 3eqtr4rd ⊢ φ → H ∘ S prefix H − 1 ++ ⟨“ H ⁡ K ”⟩ = D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 ∘ S
215 coass ⊢ F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 = F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1
216 215 oveq2i ⊢ D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 = D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1
217 216 coeq1i ⊢ D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 ∘ S = D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 ∘ S
218 214 217 eqtrdi ⊢ φ → H ∘ S prefix H − 1 ++ ⟨“ H ⁡ K ”⟩ = D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 ∘ S
219 19 218 eqtrd ⊢ φ → H ∘ S = D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 ∘ S
220 cocan2 ⊢ S : 0 ..^ H ⟶ onto 0 ..^ H ∧ H Fn 0 ..^ H ∧ D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 Fn 0 ..^ H → H ∘ S = D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 ∘ S ↔ H = D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1
221 220 biimpa ⊢ S : 0 ..^ H ⟶ onto 0 ..^ H ∧ H Fn 0 ..^ H ∧ D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 Fn 0 ..^ H ∧ H ∘ S = D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1 ∘ S → H = D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1
222 122 123 177 219 221 syl31anc ⊢ φ → H = D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1
223 120 222 jca ⊢ φ → C ++ ⟨“ F ”⟩ ∘ S -1 : 0 ..^ F ++ ⟨“ Q ”⟩ ⟶ 1-1 onto 0 ..^ F ++ ⟨“ Q ”⟩ ∧ H = D ++ ⟨“ T ”⟩ ∘ S -1 · ˙ f F ++ ⟨“ Q ”⟩ ∘ C ++ ⟨“ F ”⟩ ∘ S -1