Metamath Proof Explorer


Theorem frgpuplem

Description: Any assignment of the generators to target elements can be extended (uniquely) to a homomorphism from a free monoid to an arbitrary other monoid. (Contributed by Mario Carneiro, 2-Oct-2015)

Ref Expression
Hypotheses frgpup.b B = Base H
frgpup.n N = inv g H
frgpup.t T = y I , z 2 𝑜 if z = F y N F y
frgpup.h φ H Grp
frgpup.i φ I V
frgpup.a φ F : I B
frgpup.w W = I Word I × 2 𝑜
frgpup.r ˙ = ~ FG I
Assertion frgpuplem φ A ˙ C H T A = H T C

Proof

Step Hyp Ref Expression
1 frgpup.b B = Base H
2 frgpup.n N = inv g H
3 frgpup.t T = y I , z 2 𝑜 if z = F y N F y
4 frgpup.h φ H Grp
5 frgpup.i φ I V
6 frgpup.a φ F : I B
7 frgpup.w W = I Word I × 2 𝑜
8 frgpup.r ˙ = ~ FG I
9 7 8 efgval ˙ = r | r Er W x W n 0 x a I b 2 𝑜 x r x splice n n ⟨“ a b a 1 𝑜 b ”⟩
10 coeq2 u = v T u = T v
11 10 oveq2d u = v H T u = H T v
12 eqid u v | H T u = H T v = u v | H T u = H T v
13 11 12 eqer u v | H T u = H T v Er V
14 13 a1i φ u v | H T u = H T v Er V
15 ssv W V
16 15 a1i φ W V
17 14 16 erinxp φ u v | H T u = H T v W × W Er W
18 df-xp W × W = u v | u W v W
19 18 ineq1i W × W u v | H T u = H T v = u v | u W v W u v | H T u = H T v
20 incom W × W u v | H T u = H T v = u v | H T u = H T v W × W
21 inopab u v | u W v W u v | H T u = H T v = u v | u W v W H T u = H T v
22 19 20 21 3eqtr3i u v | H T u = H T v W × W = u v | u W v W H T u = H T v
23 vex u V
24 vex v V
25 23 24 prss u W v W u v W
26 25 anbi1i u W v W H T u = H T v u v W H T u = H T v
27 26 opabbii u v | u W v W H T u = H T v = u v | u v W H T u = H T v
28 22 27 eqtri u v | H T u = H T v W × W = u v | u v W H T u = H T v
29 ereq1 u v | H T u = H T v W × W = u v | u v W H T u = H T v u v | H T u = H T v W × W Er W u v | u v W H T u = H T v Er W
30 28 29 ax-mp u v | H T u = H T v W × W Er W u v | u v W H T u = H T v Er W
31 17 30 sylib φ u v | u v W H T u = H T v Er W
32 simplrl φ x W n 0 x a I b 2 𝑜 x W
33 fviss I Word I × 2 𝑜 Word I × 2 𝑜
34 7 33 eqsstri W Word I × 2 𝑜
35 34 32 sseldi φ x W n 0 x a I b 2 𝑜 x Word I × 2 𝑜
36 opelxpi a I b 2 𝑜 a b I × 2 𝑜
37 36 adantl φ x W n 0 x a I b 2 𝑜 a b I × 2 𝑜
38 simprl φ x W n 0 x a I b 2 𝑜 a I
39 2oconcl b 2 𝑜 1 𝑜 b 2 𝑜
40 39 ad2antll φ x W n 0 x a I b 2 𝑜 1 𝑜 b 2 𝑜
41 38 40 opelxpd φ x W n 0 x a I b 2 𝑜 a 1 𝑜 b I × 2 𝑜
42 37 41 s2cld φ x W n 0 x a I b 2 𝑜 ⟨“ a b a 1 𝑜 b ”⟩ Word I × 2 𝑜
43 splcl x Word I × 2 𝑜 ⟨“ a b a 1 𝑜 b ”⟩ Word I × 2 𝑜 x splice n n ⟨“ a b a 1 𝑜 b ”⟩ Word I × 2 𝑜
44 35 42 43 syl2anc φ x W n 0 x a I b 2 𝑜 x splice n n ⟨“ a b a 1 𝑜 b ”⟩ Word I × 2 𝑜
45 7 efgrcl x W I V W = Word I × 2 𝑜
46 32 45 syl φ x W n 0 x a I b 2 𝑜 I V W = Word I × 2 𝑜
47 46 simprd φ x W n 0 x a I b 2 𝑜 W = Word I × 2 𝑜
48 44 47 eleqtrrd φ x W n 0 x a I b 2 𝑜 x splice n n ⟨“ a b a 1 𝑜 b ”⟩ W
49 pfxcl x Word I × 2 𝑜 x prefix n Word I × 2 𝑜
50 35 49 syl φ x W n 0 x a I b 2 𝑜 x prefix n Word I × 2 𝑜
51 1 2 3 4 5 6 frgpuptf φ T : I × 2 𝑜 B
52 51 ad2antrr φ x W n 0 x a I b 2 𝑜 T : I × 2 𝑜 B
53 ccatco x prefix n Word I × 2 𝑜 ⟨“ a b a 1 𝑜 b ”⟩ Word I × 2 𝑜 T : I × 2 𝑜 B T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ = T x prefix n ++ T ⟨“ a b a 1 𝑜 b ”⟩
54 50 42 52 53 syl3anc φ x W n 0 x a I b 2 𝑜 T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ = T x prefix n ++ T ⟨“ a b a 1 𝑜 b ”⟩
55 54 oveq2d φ x W n 0 x a I b 2 𝑜 H T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ = H T x prefix n ++ T ⟨“ a b a 1 𝑜 b ”⟩
56 4 ad2antrr φ x W n 0 x a I b 2 𝑜 H Grp
57 grpmnd H Grp H Mnd
58 56 57 syl φ x W n 0 x a I b 2 𝑜 H Mnd
59 wrdco x prefix n Word I × 2 𝑜 T : I × 2 𝑜 B T x prefix n Word B
60 50 52 59 syl2anc φ x W n 0 x a I b 2 𝑜 T x prefix n Word B
61 wrdco ⟨“ a b a 1 𝑜 b ”⟩ Word I × 2 𝑜 T : I × 2 𝑜 B T ⟨“ a b a 1 𝑜 b ”⟩ Word B
62 42 52 61 syl2anc φ x W n 0 x a I b 2 𝑜 T ⟨“ a b a 1 𝑜 b ”⟩ Word B
63 eqid + H = + H
64 1 63 gsumccat H Mnd T x prefix n Word B T ⟨“ a b a 1 𝑜 b ”⟩ Word B H T x prefix n ++ T ⟨“ a b a 1 𝑜 b ”⟩ = H T x prefix n + H H T ⟨“ a b a 1 𝑜 b ”⟩
65 58 60 62 64 syl3anc φ x W n 0 x a I b 2 𝑜 H T x prefix n ++ T ⟨“ a b a 1 𝑜 b ”⟩ = H T x prefix n + H H T ⟨“ a b a 1 𝑜 b ”⟩
66 52 37 41 s2co φ x W n 0 x a I b 2 𝑜 T ⟨“ a b a 1 𝑜 b ”⟩ = ⟨“ T a b T a 1 𝑜 b ”⟩
67 df-ov a T b = T a b
68 67 a1i φ x W n 0 x a I b 2 𝑜 a T b = T a b
69 67 fveq2i N a T b = N T a b
70 df-ov a y I , z 2 𝑜 y 1 𝑜 z b = y I , z 2 𝑜 y 1 𝑜 z a b
71 eqid y I , z 2 𝑜 y 1 𝑜 z = y I , z 2 𝑜 y 1 𝑜 z
72 71 efgmval a I b 2 𝑜 a y I , z 2 𝑜 y 1 𝑜 z b = a 1 𝑜 b
73 70 72 syl5eqr a I b 2 𝑜 y I , z 2 𝑜 y 1 𝑜 z a b = a 1 𝑜 b
74 73 adantl φ x W n 0 x a I b 2 𝑜 y I , z 2 𝑜 y 1 𝑜 z a b = a 1 𝑜 b
75 74 fveq2d φ x W n 0 x a I b 2 𝑜 T y I , z 2 𝑜 y 1 𝑜 z a b = T a 1 𝑜 b
76 1 2 3 4 5 6 71 frgpuptinv φ a b I × 2 𝑜 T y I , z 2 𝑜 y 1 𝑜 z a b = N T a b
77 36 76 sylan2 φ a I b 2 𝑜 T y I , z 2 𝑜 y 1 𝑜 z a b = N T a b
78 77 adantlr φ x W n 0 x a I b 2 𝑜 T y I , z 2 𝑜 y 1 𝑜 z a b = N T a b
79 75 78 eqtr3d φ x W n 0 x a I b 2 𝑜 T a 1 𝑜 b = N T a b
80 69 79 eqtr4id φ x W n 0 x a I b 2 𝑜 N a T b = T a 1 𝑜 b
81 68 80 s2eqd φ x W n 0 x a I b 2 𝑜 ⟨“ a T b N a T b ”⟩ = ⟨“ T a b T a 1 𝑜 b ”⟩
82 66 81 eqtr4d φ x W n 0 x a I b 2 𝑜 T ⟨“ a b a 1 𝑜 b ”⟩ = ⟨“ a T b N a T b ”⟩
83 82 oveq2d φ x W n 0 x a I b 2 𝑜 H T ⟨“ a b a 1 𝑜 b ”⟩ = H ⟨“ a T b N a T b ”⟩
84 simprr φ x W n 0 x a I b 2 𝑜 b 2 𝑜
85 52 38 84 fovrnd φ x W n 0 x a I b 2 𝑜 a T b B
86 1 2 grpinvcl H Grp a T b B N a T b B
87 56 85 86 syl2anc φ x W n 0 x a I b 2 𝑜 N a T b B
88 1 63 gsumws2 H Mnd a T b B N a T b B H ⟨“ a T b N a T b ”⟩ = a T b + H N a T b
89 58 85 87 88 syl3anc φ x W n 0 x a I b 2 𝑜 H ⟨“ a T b N a T b ”⟩ = a T b + H N a T b
90 eqid 0 H = 0 H
91 1 63 90 2 grprinv H Grp a T b B a T b + H N a T b = 0 H
92 56 85 91 syl2anc φ x W n 0 x a I b 2 𝑜 a T b + H N a T b = 0 H
93 83 89 92 3eqtrd φ x W n 0 x a I b 2 𝑜 H T ⟨“ a b a 1 𝑜 b ”⟩ = 0 H
94 93 oveq2d φ x W n 0 x a I b 2 𝑜 H T x prefix n + H H T ⟨“ a b a 1 𝑜 b ”⟩ = H T x prefix n + H 0 H
95 1 gsumwcl H Mnd T x prefix n Word B H T x prefix n B
96 58 60 95 syl2anc φ x W n 0 x a I b 2 𝑜 H T x prefix n B
97 1 63 90 grprid H Grp H T x prefix n B H T x prefix n + H 0 H = H T x prefix n
98 56 96 97 syl2anc φ x W n 0 x a I b 2 𝑜 H T x prefix n + H 0 H = H T x prefix n
99 94 98 eqtrd φ x W n 0 x a I b 2 𝑜 H T x prefix n + H H T ⟨“ a b a 1 𝑜 b ”⟩ = H T x prefix n
100 55 65 99 3eqtrrd φ x W n 0 x a I b 2 𝑜 H T x prefix n = H T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩
101 100 oveq1d φ x W n 0 x a I b 2 𝑜 H T x prefix n + H H T x substr n x = H T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ + H H T x substr n x
102 swrdcl x Word I × 2 𝑜 x substr n x Word I × 2 𝑜
103 35 102 syl φ x W n 0 x a I b 2 𝑜 x substr n x Word I × 2 𝑜
104 wrdco x substr n x Word I × 2 𝑜 T : I × 2 𝑜 B T x substr n x Word B
105 103 52 104 syl2anc φ x W n 0 x a I b 2 𝑜 T x substr n x Word B
106 1 63 gsumccat H Mnd T x prefix n Word B T x substr n x Word B H T x prefix n ++ T x substr n x = H T x prefix n + H H T x substr n x
107 58 60 105 106 syl3anc φ x W n 0 x a I b 2 𝑜 H T x prefix n ++ T x substr n x = H T x prefix n + H H T x substr n x
108 ccatcl x prefix n Word I × 2 𝑜 ⟨“ a b a 1 𝑜 b ”⟩ Word I × 2 𝑜 x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ Word I × 2 𝑜
109 50 42 108 syl2anc φ x W n 0 x a I b 2 𝑜 x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ Word I × 2 𝑜
110 wrdco x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ Word I × 2 𝑜 T : I × 2 𝑜 B T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ Word B
111 109 52 110 syl2anc φ x W n 0 x a I b 2 𝑜 T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ Word B
112 1 63 gsumccat H Mnd T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ Word B T x substr n x Word B H T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ ++ T x substr n x = H T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ + H H T x substr n x
113 58 111 105 112 syl3anc φ x W n 0 x a I b 2 𝑜 H T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ ++ T x substr n x = H T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ + H H T x substr n x
114 101 107 113 3eqtr4d φ x W n 0 x a I b 2 𝑜 H T x prefix n ++ T x substr n x = H T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ ++ T x substr n x
115 simplrr φ x W n 0 x a I b 2 𝑜 n 0 x
116 lencl x Word I × 2 𝑜 x 0
117 35 116 syl φ x W n 0 x a I b 2 𝑜 x 0
118 nn0uz 0 = 0
119 117 118 eleqtrdi φ x W n 0 x a I b 2 𝑜 x 0
120 eluzfz2 x 0 x 0 x
121 119 120 syl φ x W n 0 x a I b 2 𝑜 x 0 x
122 ccatpfx x Word I × 2 𝑜 n 0 x x 0 x x prefix n ++ x substr n x = x prefix x
123 35 115 121 122 syl3anc φ x W n 0 x a I b 2 𝑜 x prefix n ++ x substr n x = x prefix x
124 pfxid x Word I × 2 𝑜 x prefix x = x
125 35 124 syl φ x W n 0 x a I b 2 𝑜 x prefix x = x
126 123 125 eqtrd φ x W n 0 x a I b 2 𝑜 x prefix n ++ x substr n x = x
127 126 coeq2d φ x W n 0 x a I b 2 𝑜 T x prefix n ++ x substr n x = T x
128 ccatco x prefix n Word I × 2 𝑜 x substr n x Word I × 2 𝑜 T : I × 2 𝑜 B T x prefix n ++ x substr n x = T x prefix n ++ T x substr n x
129 50 103 52 128 syl3anc φ x W n 0 x a I b 2 𝑜 T x prefix n ++ x substr n x = T x prefix n ++ T x substr n x
130 127 129 eqtr3d φ x W n 0 x a I b 2 𝑜 T x = T x prefix n ++ T x substr n x
131 130 oveq2d φ x W n 0 x a I b 2 𝑜 H T x = H T x prefix n ++ T x substr n x
132 splval x W n 0 x n 0 x ⟨“ a b a 1 𝑜 b ”⟩ Word I × 2 𝑜 x splice n n ⟨“ a b a 1 𝑜 b ”⟩ = x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ ++ x substr n x
133 32 115 115 42 132 syl13anc φ x W n 0 x a I b 2 𝑜 x splice n n ⟨“ a b a 1 𝑜 b ”⟩ = x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ ++ x substr n x
134 133 coeq2d φ x W n 0 x a I b 2 𝑜 T x splice n n ⟨“ a b a 1 𝑜 b ”⟩ = T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ ++ x substr n x
135 ccatco x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ Word I × 2 𝑜 x substr n x Word I × 2 𝑜 T : I × 2 𝑜 B T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ ++ x substr n x = T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ ++ T x substr n x
136 109 103 52 135 syl3anc φ x W n 0 x a I b 2 𝑜 T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ ++ x substr n x = T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ ++ T x substr n x
137 134 136 eqtrd φ x W n 0 x a I b 2 𝑜 T x splice n n ⟨“ a b a 1 𝑜 b ”⟩ = T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ ++ T x substr n x
138 137 oveq2d φ x W n 0 x a I b 2 𝑜 H T x splice n n ⟨“ a b a 1 𝑜 b ”⟩ = H T x prefix n ++ ⟨“ a b a 1 𝑜 b ”⟩ ++ T x substr n x
139 114 131 138 3eqtr4d φ x W n 0 x a I b 2 𝑜 H T x = H T x splice n n ⟨“ a b a 1 𝑜 b ”⟩
140 vex x V
141 ovex x splice n n ⟨“ a b a 1 𝑜 b ”⟩ V
142 eleq1 u = x u W x W
143 eleq1 v = x splice n n ⟨“ a b a 1 𝑜 b ”⟩ v W x splice n n ⟨“ a b a 1 𝑜 b ”⟩ W
144 142 143 bi2anan9 u = x v = x splice n n ⟨“ a b a 1 𝑜 b ”⟩ u W v W x W x splice n n ⟨“ a b a 1 𝑜 b ”⟩ W
145 25 144 bitr3id u = x v = x splice n n ⟨“ a b a 1 𝑜 b ”⟩ u v W x W x splice n n ⟨“ a b a 1 𝑜 b ”⟩ W
146 coeq2 u = x T u = T x
147 146 oveq2d u = x H T u = H T x
148 coeq2 v = x splice n n ⟨“ a b a 1 𝑜 b ”⟩ T v = T x splice n n ⟨“ a b a 1 𝑜 b ”⟩
149 148 oveq2d v = x splice n n ⟨“ a b a 1 𝑜 b ”⟩ H T v = H T x splice n n ⟨“ a b a 1 𝑜 b ”⟩
150 147 149 eqeqan12d u = x v = x splice n n ⟨“ a b a 1 𝑜 b ”⟩ H T u = H T v H T x = H T x splice n n ⟨“ a b a 1 𝑜 b ”⟩
151 145 150 anbi12d u = x v = x splice n n ⟨“ a b a 1 𝑜 b ”⟩ u v W H T u = H T v x W x splice n n ⟨“ a b a 1 𝑜 b ”⟩ W H T x = H T x splice n n ⟨“ a b a 1 𝑜 b ”⟩
152 eqid u v | u v W H T u = H T v = u v | u v W H T u = H T v
153 140 141 151 152 braba x u v | u v W H T u = H T v x splice n n ⟨“ a b a 1 𝑜 b ”⟩ x W x splice n n ⟨“ a b a 1 𝑜 b ”⟩ W H T x = H T x splice n n ⟨“ a b a 1 𝑜 b ”⟩
154 32 48 139 153 syl21anbrc φ x W n 0 x a I b 2 𝑜 x u v | u v W H T u = H T v x splice n n ⟨“ a b a 1 𝑜 b ”⟩
155 154 ralrimivva φ x W n 0 x a I b 2 𝑜 x u v | u v W H T u = H T v x splice n n ⟨“ a b a 1 𝑜 b ”⟩
156 155 ralrimivva φ x W n 0 x a I b 2 𝑜 x u v | u v W H T u = H T v x splice n n ⟨“ a b a 1 𝑜 b ”⟩
157 7 fvexi W V
158 erex u v | u v W H T u = H T v Er W W V u v | u v W H T u = H T v V
159 31 157 158 mpisyl φ u v | u v W H T u = H T v V
160 ereq1 r = u v | u v W H T u = H T v r Er W u v | u v W H T u = H T v Er W
161 breq r = u v | u v W H T u = H T v x r x splice n n ⟨“ a b a 1 𝑜 b ”⟩ x u v | u v W H T u = H T v x splice n n ⟨“ a b a 1 𝑜 b ”⟩
162 161 2ralbidv r = u v | u v W H T u = H T v a I b 2 𝑜 x r x splice n n ⟨“ a b a 1 𝑜 b ”⟩ a I b 2 𝑜 x u v | u v W H T u = H T v x splice n n ⟨“ a b a 1 𝑜 b ”⟩
163 162 2ralbidv r = u v | u v W H T u = H T v x W n 0 x a I b 2 𝑜 x r x splice n n ⟨“ a b a 1 𝑜 b ”⟩ x W n 0 x a I b 2 𝑜 x u v | u v W H T u = H T v x splice n n ⟨“ a b a 1 𝑜 b ”⟩
164 160 163 anbi12d r = u v | u v W H T u = H T v r Er W x W n 0 x a I b 2 𝑜 x r x splice n n ⟨“ a b a 1 𝑜 b ”⟩ u v | u v W H T u = H T v Er W x W n 0 x a I b 2 𝑜 x u v | u v W H T u = H T v x splice n n ⟨“ a b a 1 𝑜 b ”⟩
165 164 elabg u v | u v W H T u = H T v V u v | u v W H T u = H T v r | r Er W x W n 0 x a I b 2 𝑜 x r x splice n n ⟨“ a b a 1 𝑜 b ”⟩ u v | u v W H T u = H T v Er W x W n 0 x a I b 2 𝑜 x u v | u v W H T u = H T v x splice n n ⟨“ a b a 1 𝑜 b ”⟩
166 159 165 syl φ u v | u v W H T u = H T v r | r Er W x W n 0 x a I b 2 𝑜 x r x splice n n ⟨“ a b a 1 𝑜 b ”⟩ u v | u v W H T u = H T v Er W x W n 0 x a I b 2 𝑜 x u v | u v W H T u = H T v x splice n n ⟨“ a b a 1 𝑜 b ”⟩
167 31 156 166 mpbir2and φ u v | u v W H T u = H T v r | r Er W x W n 0 x a I b 2 𝑜 x r x splice n n ⟨“ a b a 1 𝑜 b ”⟩
168 intss1 u v | u v W H T u = H T v r | r Er W x W n 0 x a I b 2 𝑜 x r x splice n n ⟨“ a b a 1 𝑜 b ”⟩ r | r Er W x W n 0 x a I b 2 𝑜 x r x splice n n ⟨“ a b a 1 𝑜 b ”⟩ u v | u v W H T u = H T v
169 167 168 syl φ r | r Er W x W n 0 x a I b 2 𝑜 x r x splice n n ⟨“ a b a 1 𝑜 b ”⟩ u v | u v W H T u = H T v
170 9 169 eqsstrid φ ˙ u v | u v W H T u = H T v
171 170 ssbrd φ A ˙ C A u v | u v W H T u = H T v C
172 171 imp φ A ˙ C A u v | u v W H T u = H T v C
173 7 8 efger ˙ Er W
174 errel ˙ Er W Rel ˙
175 173 174 mp1i φ Rel ˙
176 brrelex12 Rel ˙ A ˙ C A V C V
177 175 176 sylan φ A ˙ C A V C V
178 preq12 u = A v = C u v = A C
179 178 sseq1d u = A v = C u v W A C W
180 coeq2 u = A T u = T A
181 180 oveq2d u = A H T u = H T A
182 coeq2 v = C T v = T C
183 182 oveq2d v = C H T v = H T C
184 181 183 eqeqan12d u = A v = C H T u = H T v H T A = H T C
185 179 184 anbi12d u = A v = C u v W H T u = H T v A C W H T A = H T C
186 185 152 brabga A V C V A u v | u v W H T u = H T v C A C W H T A = H T C
187 177 186 syl φ A ˙ C A u v | u v W H T u = H T v C A C W H T A = H T C
188 172 187 mpbid φ A ˙ C A C W H T A = H T C
189 188 simprd φ A ˙ C H T A = H T C