Metamath Proof Explorer


Theorem pj1fval

Description: The left projection function (for a direct product of group subspaces). (Contributed by Mario Carneiro, 15-Oct-2015) (Revised by Mario Carneiro, 21-Apr-2016)

Ref Expression
Hypotheses pj1fval.v B = Base G
pj1fval.a + ˙ = + G
pj1fval.s ˙ = LSSum G
pj1fval.p P = proj 1 G
Assertion pj1fval G V T B U B T P U = z T ˙ U ι x T | y U z = x + ˙ y

Proof

Step Hyp Ref Expression
1 pj1fval.v B = Base G
2 pj1fval.a + ˙ = + G
3 pj1fval.s ˙ = LSSum G
4 pj1fval.p P = proj 1 G
5 elex G V G V
6 5 3ad2ant1 G V T B U B G V
7 fveq2 g = G Base g = Base G
8 7 1 eqtr4di g = G Base g = B
9 8 pweqd g = G 𝒫 Base g = 𝒫 B
10 fveq2 g = G LSSum g = LSSum G
11 10 3 eqtr4di g = G LSSum g = ˙
12 11 oveqd g = G t LSSum g u = t ˙ u
13 fveq2 g = G + g = + G
14 13 2 eqtr4di g = G + g = + ˙
15 14 oveqd g = G x + g y = x + ˙ y
16 15 eqeq2d g = G z = x + g y z = x + ˙ y
17 16 rexbidv g = G y u z = x + g y y u z = x + ˙ y
18 17 riotabidv g = G ι x t | y u z = x + g y = ι x t | y u z = x + ˙ y
19 12 18 mpteq12dv g = G z t LSSum g u ι x t | y u z = x + g y = z t ˙ u ι x t | y u z = x + ˙ y
20 9 9 19 mpoeq123dv g = G t 𝒫 Base g , u 𝒫 Base g z t LSSum g u ι x t | y u z = x + g y = t 𝒫 B , u 𝒫 B z t ˙ u ι x t | y u z = x + ˙ y
21 df-pj1 proj 1 = g V t 𝒫 Base g , u 𝒫 Base g z t LSSum g u ι x t | y u z = x + g y
22 1 fvexi B V
23 22 pwex 𝒫 B V
24 23 23 mpoex t 𝒫 B , u 𝒫 B z t ˙ u ι x t | y u z = x + ˙ y V
25 20 21 24 fvmpt G V proj 1 G = t 𝒫 B , u 𝒫 B z t ˙ u ι x t | y u z = x + ˙ y
26 6 25 syl G V T B U B proj 1 G = t 𝒫 B , u 𝒫 B z t ˙ u ι x t | y u z = x + ˙ y
27 4 26 eqtrid G V T B U B P = t 𝒫 B , u 𝒫 B z t ˙ u ι x t | y u z = x + ˙ y
28 oveq12 t = T u = U t ˙ u = T ˙ U
29 28 adantl G V T B U B t = T u = U t ˙ u = T ˙ U
30 simprl G V T B U B t = T u = U t = T
31 simprr G V T B U B t = T u = U u = U
32 31 rexeqdv G V T B U B t = T u = U y u z = x + ˙ y y U z = x + ˙ y
33 30 32 riotaeqbidv G V T B U B t = T u = U ι x t | y u z = x + ˙ y = ι x T | y U z = x + ˙ y
34 29 33 mpteq12dv G V T B U B t = T u = U z t ˙ u ι x t | y u z = x + ˙ y = z T ˙ U ι x T | y U z = x + ˙ y
35 simp2 G V T B U B T B
36 22 elpw2 T 𝒫 B T B
37 35 36 sylibr G V T B U B T 𝒫 B
38 simp3 G V T B U B U B
39 22 elpw2 U 𝒫 B U B
40 38 39 sylibr G V T B U B U 𝒫 B
41 ovex T ˙ U V
42 41 mptex z T ˙ U ι x T | y U z = x + ˙ y V
43 42 a1i G V T B U B z T ˙ U ι x T | y U z = x + ˙ y V
44 27 34 37 40 43 ovmpod G V T B U B T P U = z T ˙ U ι x T | y U z = x + ˙ y