Step | Hyp | Ref
| Expression |
1 | | ecgrtg.a |
. . . 4
β’ (π β π΄ β π) |
2 | | ecgrtg.1 |
. . . . . 6
β’ (π β π β β) |
3 | | eengbas 28229 |
. . . . . 6
β’ (π β β β
(πΌβπ) =
(Baseβ(EEGβπ))) |
4 | 2, 3 | syl 17 |
. . . . 5
β’ (π β (πΌβπ) = (Baseβ(EEGβπ))) |
5 | | ecgrtg.2 |
. . . . 5
β’ π = (Baseβ(EEGβπ)) |
6 | 4, 5 | eqtr4di 2791 |
. . . 4
β’ (π β (πΌβπ) = π) |
7 | 1, 6 | eleqtrrd 2837 |
. . 3
β’ (π β π΄ β (πΌβπ)) |
8 | | ecgrtg.b |
. . . 4
β’ (π β π΅ β π) |
9 | 8, 6 | eleqtrrd 2837 |
. . 3
β’ (π β π΅ β (πΌβπ)) |
10 | | ecgrtg.c |
. . . 4
β’ (π β πΆ β π) |
11 | 10, 6 | eleqtrrd 2837 |
. . 3
β’ (π β πΆ β (πΌβπ)) |
12 | | ecgrtg.d |
. . . 4
β’ (π β π· β π) |
13 | 12, 6 | eleqtrrd 2837 |
. . 3
β’ (π β π· β (πΌβπ)) |
14 | | brcgr 28148 |
. . 3
β’ (((π΄ β (πΌβπ) β§ π΅ β (πΌβπ)) β§ (πΆ β (πΌβπ) β§ π· β (πΌβπ))) β (β¨π΄, π΅β©Cgrβ¨πΆ, π·β© β Ξ£π β (1...π)(((π΄βπ) β (π΅βπ))β2) = Ξ£π β (1...π)(((πΆβπ) β (π·βπ))β2))) |
15 | 7, 9, 11, 13, 14 | syl22anc 838 |
. 2
β’ (π β (β¨π΄, π΅β©Cgrβ¨πΆ, π·β© β Ξ£π β (1...π)(((π΄βπ) β (π΅βπ))β2) = Ξ£π β (1...π)(((πΆβπ) β (π·βπ))β2))) |
16 | | ecgrtg.3 |
. . . . . 6
β’ β =
(distβ(EEGβπ)) |
17 | | dsid 17328 |
. . . . . . 7
β’ dist =
Slot (distβndx) |
18 | | fvexd 6904 |
. . . . . . 7
β’ (π β (EEGβπ) β V) |
19 | | eengstr 28228 |
. . . . . . . . . 10
β’ (π β β β
(EEGβπ) Struct
β¨1, ;17β©) |
20 | 2, 19 | syl 17 |
. . . . . . . . 9
β’ (π β (EEGβπ) Struct β¨1, ;17β©) |
21 | | structn0fun 17081 |
. . . . . . . . 9
β’
((EEGβπ)
Struct β¨1, ;17β© β
Fun ((EEGβπ) β
{β
})) |
22 | 20, 21 | syl 17 |
. . . . . . . 8
β’ (π β Fun ((EEGβπ) β
{β
})) |
23 | | structcnvcnv 17083 |
. . . . . . . . . 10
β’
((EEGβπ)
Struct β¨1, ;17β© β
β‘β‘(EEGβπ) = ((EEGβπ) β {β
})) |
24 | 20, 23 | syl 17 |
. . . . . . . . 9
β’ (π β β‘β‘(EEGβπ) = ((EEGβπ) β {β
})) |
25 | 24 | funeqd 6568 |
. . . . . . . 8
β’ (π β (Fun β‘β‘(EEGβπ) β Fun ((EEGβπ) β {β
}))) |
26 | 22, 25 | mpbird 257 |
. . . . . . 7
β’ (π β Fun β‘β‘(EEGβπ)) |
27 | | opex 5464 |
. . . . . . . . . 10
β’
β¨(distβndx), (π₯ β (πΌβπ), π¦ β (πΌβπ) β¦ Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2))β© β V |
28 | 27 | prid2 4767 |
. . . . . . . . 9
β’
β¨(distβndx), (π₯ β (πΌβπ), π¦ β (πΌβπ) β¦ Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2))β© β
{β¨(Baseβndx), (πΌβπ)β©, β¨(distβndx), (π₯ β (πΌβπ), π¦ β (πΌβπ) β¦ Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2))β©} |
29 | | elun1 4176 |
. . . . . . . . 9
β’
(β¨(distβndx), (π₯ β (πΌβπ), π¦ β (πΌβπ) β¦ Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2))β© β
{β¨(Baseβndx), (πΌβπ)β©, β¨(distβndx), (π₯ β (πΌβπ), π¦ β (πΌβπ) β¦ Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2))β©} β
β¨(distβndx), (π₯
β (πΌβπ),
π¦ β
(πΌβπ) β¦
Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2))β© β
({β¨(Baseβndx), (πΌβπ)β©, β¨(distβndx), (π₯ β (πΌβπ), π¦ β (πΌβπ) β¦ Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2))β©} βͺ
{β¨(Itvβndx), (π₯
β (πΌβπ),
π¦ β
(πΌβπ) β¦
{π§ β
(πΌβπ) β£
π§ Btwn β¨π₯, π¦β©})β©, β¨(LineGβndx),
(π₯ β
(πΌβπ), π¦ β ((πΌβπ) β {π₯}) β¦ {π§ β (πΌβπ) β£ (π§ Btwn β¨π₯, π¦β© β¨ π₯ Btwn β¨π§, π¦β© β¨ π¦ Btwn β¨π₯, π§β©)})β©})) |
30 | 28, 29 | ax-mp 5 |
. . . . . . . 8
β’
β¨(distβndx), (π₯ β (πΌβπ), π¦ β (πΌβπ) β¦ Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2))β© β
({β¨(Baseβndx), (πΌβπ)β©, β¨(distβndx), (π₯ β (πΌβπ), π¦ β (πΌβπ) β¦ Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2))β©} βͺ
{β¨(Itvβndx), (π₯
β (πΌβπ),
π¦ β
(πΌβπ) β¦
{π§ β
(πΌβπ) β£
π§ Btwn β¨π₯, π¦β©})β©, β¨(LineGβndx),
(π₯ β
(πΌβπ), π¦ β ((πΌβπ) β {π₯}) β¦ {π§ β (πΌβπ) β£ (π§ Btwn β¨π₯, π¦β© β¨ π₯ Btwn β¨π§, π¦β© β¨ π¦ Btwn β¨π₯, π§β©)})β©}) |
31 | | eengv 28227 |
. . . . . . . . 9
β’ (π β β β
(EEGβπ) =
({β¨(Baseβndx), (πΌβπ)β©, β¨(distβndx), (π₯ β (πΌβπ), π¦ β (πΌβπ) β¦ Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2))β©} βͺ
{β¨(Itvβndx), (π₯
β (πΌβπ),
π¦ β
(πΌβπ) β¦
{π§ β
(πΌβπ) β£
π§ Btwn β¨π₯, π¦β©})β©, β¨(LineGβndx),
(π₯ β
(πΌβπ), π¦ β ((πΌβπ) β {π₯}) β¦ {π§ β (πΌβπ) β£ (π§ Btwn β¨π₯, π¦β© β¨ π₯ Btwn β¨π§, π¦β© β¨ π¦ Btwn β¨π₯, π§β©)})β©})) |
32 | 2, 31 | syl 17 |
. . . . . . . 8
β’ (π β (EEGβπ) = ({β¨(Baseβndx),
(πΌβπ)β©,
β¨(distβndx), (π₯
β (πΌβπ),
π¦ β
(πΌβπ) β¦
Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2))β©} βͺ
{β¨(Itvβndx), (π₯
β (πΌβπ),
π¦ β
(πΌβπ) β¦
{π§ β
(πΌβπ) β£
π§ Btwn β¨π₯, π¦β©})β©, β¨(LineGβndx),
(π₯ β
(πΌβπ), π¦ β ((πΌβπ) β {π₯}) β¦ {π§ β (πΌβπ) β£ (π§ Btwn β¨π₯, π¦β© β¨ π₯ Btwn β¨π§, π¦β© β¨ π¦ Btwn β¨π₯, π§β©)})β©})) |
33 | 30, 32 | eleqtrrid 2841 |
. . . . . . 7
β’ (π β β¨(distβndx),
(π₯ β
(πΌβπ), π¦ β (πΌβπ) β¦ Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2))β© β (EEGβπ)) |
34 | | fvex 6902 |
. . . . . . . . 9
β’
(πΌβπ)
β V |
35 | 34, 34 | mpoex 8063 |
. . . . . . . 8
β’ (π₯ β (πΌβπ), π¦ β (πΌβπ) β¦ Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2)) β V |
36 | 35 | a1i 11 |
. . . . . . 7
β’ (π β (π₯ β (πΌβπ), π¦ β (πΌβπ) β¦ Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2)) β V) |
37 | 17, 18, 26, 33, 36 | strfv2d 17132 |
. . . . . 6
β’ (π β (π₯ β (πΌβπ), π¦ β (πΌβπ) β¦ Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2)) = (distβ(EEGβπ))) |
38 | 16, 37 | eqtr4id 2792 |
. . . . 5
β’ (π β β = (π₯ β (πΌβπ), π¦ β (πΌβπ) β¦ Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2))) |
39 | | simplrl 776 |
. . . . . . . . 9
β’ (((π β§ (π₯ = π΄ β§ π¦ = π΅)) β§ π β (1...π)) β π₯ = π΄) |
40 | 39 | fveq1d 6891 |
. . . . . . . 8
β’ (((π β§ (π₯ = π΄ β§ π¦ = π΅)) β§ π β (1...π)) β (π₯βπ) = (π΄βπ)) |
41 | | simplrr 777 |
. . . . . . . . 9
β’ (((π β§ (π₯ = π΄ β§ π¦ = π΅)) β§ π β (1...π)) β π¦ = π΅) |
42 | 41 | fveq1d 6891 |
. . . . . . . 8
β’ (((π β§ (π₯ = π΄ β§ π¦ = π΅)) β§ π β (1...π)) β (π¦βπ) = (π΅βπ)) |
43 | 40, 42 | oveq12d 7424 |
. . . . . . 7
β’ (((π β§ (π₯ = π΄ β§ π¦ = π΅)) β§ π β (1...π)) β ((π₯βπ) β (π¦βπ)) = ((π΄βπ) β (π΅βπ))) |
44 | 43 | oveq1d 7421 |
. . . . . 6
β’ (((π β§ (π₯ = π΄ β§ π¦ = π΅)) β§ π β (1...π)) β (((π₯βπ) β (π¦βπ))β2) = (((π΄βπ) β (π΅βπ))β2)) |
45 | 44 | sumeq2dv 15646 |
. . . . 5
β’ ((π β§ (π₯ = π΄ β§ π¦ = π΅)) β Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2) = Ξ£π β (1...π)(((π΄βπ) β (π΅βπ))β2)) |
46 | | sumex 15631 |
. . . . . 6
β’
Ξ£π β
(1...π)(((π΄βπ) β (π΅βπ))β2) β V |
47 | 46 | a1i 11 |
. . . . 5
β’ (π β Ξ£π β (1...π)(((π΄βπ) β (π΅βπ))β2) β V) |
48 | 38, 45, 7, 9, 47 | ovmpod 7557 |
. . . 4
β’ (π β (π΄ β π΅) = Ξ£π β (1...π)(((π΄βπ) β (π΅βπ))β2)) |
49 | 48 | eqcomd 2739 |
. . 3
β’ (π β Ξ£π β (1...π)(((π΄βπ) β (π΅βπ))β2) = (π΄ β π΅)) |
50 | | simplrl 776 |
. . . . . . . . 9
β’ (((π β§ (π₯ = πΆ β§ π¦ = π·)) β§ π β (1...π)) β π₯ = πΆ) |
51 | 50 | fveq1d 6891 |
. . . . . . . 8
β’ (((π β§ (π₯ = πΆ β§ π¦ = π·)) β§ π β (1...π)) β (π₯βπ) = (πΆβπ)) |
52 | | simplrr 777 |
. . . . . . . . 9
β’ (((π β§ (π₯ = πΆ β§ π¦ = π·)) β§ π β (1...π)) β π¦ = π·) |
53 | 52 | fveq1d 6891 |
. . . . . . . 8
β’ (((π β§ (π₯ = πΆ β§ π¦ = π·)) β§ π β (1...π)) β (π¦βπ) = (π·βπ)) |
54 | 51, 53 | oveq12d 7424 |
. . . . . . 7
β’ (((π β§ (π₯ = πΆ β§ π¦ = π·)) β§ π β (1...π)) β ((π₯βπ) β (π¦βπ)) = ((πΆβπ) β (π·βπ))) |
55 | 54 | oveq1d 7421 |
. . . . . 6
β’ (((π β§ (π₯ = πΆ β§ π¦ = π·)) β§ π β (1...π)) β (((π₯βπ) β (π¦βπ))β2) = (((πΆβπ) β (π·βπ))β2)) |
56 | 55 | sumeq2dv 15646 |
. . . . 5
β’ ((π β§ (π₯ = πΆ β§ π¦ = π·)) β Ξ£π β (1...π)(((π₯βπ) β (π¦βπ))β2) = Ξ£π β (1...π)(((πΆβπ) β (π·βπ))β2)) |
57 | | sumex 15631 |
. . . . . 6
β’
Ξ£π β
(1...π)(((πΆβπ) β (π·βπ))β2) β V |
58 | 57 | a1i 11 |
. . . . 5
β’ (π β Ξ£π β (1...π)(((πΆβπ) β (π·βπ))β2) β V) |
59 | 38, 56, 11, 13, 58 | ovmpod 7557 |
. . . 4
β’ (π β (πΆ β π·) = Ξ£π β (1...π)(((πΆβπ) β (π·βπ))β2)) |
60 | 59 | eqcomd 2739 |
. . 3
β’ (π β Ξ£π β (1...π)(((πΆβπ) β (π·βπ))β2) = (πΆ β π·)) |
61 | 49, 60 | eqeq12d 2749 |
. 2
β’ (π β (Ξ£π β (1...π)(((π΄βπ) β (π΅βπ))β2) = Ξ£π β (1...π)(((πΆβπ) β (π·βπ))β2) β (π΄ β π΅) = (πΆ β π·))) |
62 | 15, 61 | bitrd 279 |
1
β’ (π β (β¨π΄, π΅β©Cgrβ¨πΆ, π·β© β (π΄ β π΅) = (πΆ β π·))) |