Metamath Proof Explorer


Theorem cntzfval

Description: First level substitution for a centralizer. (Contributed by Stefan O'Rear, 5-Sep-2015)

Ref Expression
Hypotheses cntzfval.b B = Base M
cntzfval.p + ˙ = + M
cntzfval.z Z = Cntz M
Assertion cntzfval M V Z = s 𝒫 B x B | y s x + ˙ y = y + ˙ x

Proof

Step Hyp Ref Expression
1 cntzfval.b B = Base M
2 cntzfval.p + ˙ = + M
3 cntzfval.z Z = Cntz M
4 elex M V M V
5 fveq2 m = M Base m = Base M
6 5 1 eqtr4di m = M Base m = B
7 6 pweqd m = M 𝒫 Base m = 𝒫 B
8 fveq2 m = M + m = + M
9 8 2 eqtr4di m = M + m = + ˙
10 9 oveqd m = M x + m y = x + ˙ y
11 9 oveqd m = M y + m x = y + ˙ x
12 10 11 eqeq12d m = M x + m y = y + m x x + ˙ y = y + ˙ x
13 12 ralbidv m = M y s x + m y = y + m x y s x + ˙ y = y + ˙ x
14 6 13 rabeqbidv m = M x Base m | y s x + m y = y + m x = x B | y s x + ˙ y = y + ˙ x
15 7 14 mpteq12dv m = M s 𝒫 Base m x Base m | y s x + m y = y + m x = s 𝒫 B x B | y s x + ˙ y = y + ˙ x
16 df-cntz Cntz = m V s 𝒫 Base m x Base m | y s x + m y = y + m x
17 1 fvexi B V
18 17 pwex 𝒫 B V
19 18 mptex s 𝒫 B x B | y s x + ˙ y = y + ˙ x V
20 15 16 19 fvmpt M V Cntz M = s 𝒫 B x B | y s x + ˙ y = y + ˙ x
21 4 20 syl M V Cntz M = s 𝒫 B x B | y s x + ˙ y = y + ˙ x
22 3 21 syl5eq M V Z = s 𝒫 B x B | y s x + ˙ y = y + ˙ x