Step | Hyp | Ref
| Expression |
1 | | ttgval.n |
. . . . 5
β’ πΊ = (toTGβπ») |
2 | 1 | a1i 11 |
. . . 4
β’ (π» β π β πΊ = (toTGβπ»)) |
3 | | elex 3488 |
. . . . 5
β’ (π» β π β π» β V) |
4 | | fveq2 6875 |
. . . . . . . . . 10
β’ (π€ = π» β (Baseβπ€) = (Baseβπ»)) |
5 | | ttgval.b |
. . . . . . . . . 10
β’ π΅ = (Baseβπ») |
6 | 4, 5 | eqtr4di 2789 |
. . . . . . . . 9
β’ (π€ = π» β (Baseβπ€) = π΅) |
7 | | fveq2 6875 |
. . . . . . . . . . . . . 14
β’ (π€ = π» β (-gβπ€) = (-gβπ»)) |
8 | | ttgval.m |
. . . . . . . . . . . . . 14
β’ β =
(-gβπ») |
9 | 7, 8 | eqtr4di 2789 |
. . . . . . . . . . . . 13
β’ (π€ = π» β (-gβπ€) = β ) |
10 | 9 | oveqd 7407 |
. . . . . . . . . . . 12
β’ (π€ = π» β (π§(-gβπ€)π₯) = (π§ β π₯)) |
11 | | fveq2 6875 |
. . . . . . . . . . . . . 14
β’ (π€ = π» β (
Β·π βπ€) = ( Β·π
βπ»)) |
12 | | ttgval.s |
. . . . . . . . . . . . . 14
β’ Β· = (
Β·π βπ») |
13 | 11, 12 | eqtr4di 2789 |
. . . . . . . . . . . . 13
β’ (π€ = π» β (
Β·π βπ€) = Β· ) |
14 | | eqidd 2732 |
. . . . . . . . . . . . 13
β’ (π€ = π» β π = π) |
15 | 9 | oveqd 7407 |
. . . . . . . . . . . . 13
β’ (π€ = π» β (π¦(-gβπ€)π₯) = (π¦ β π₯)) |
16 | 13, 14, 15 | oveq123d 7411 |
. . . . . . . . . . . 12
β’ (π€ = π» β (π( Β·π
βπ€)(π¦(-gβπ€)π₯)) = (π Β· (π¦ β π₯))) |
17 | 10, 16 | eqeq12d 2747 |
. . . . . . . . . . 11
β’ (π€ = π» β ((π§(-gβπ€)π₯) = (π( Β·π
βπ€)(π¦(-gβπ€)π₯)) β (π§ β π₯) = (π Β· (π¦ β π₯)))) |
18 | 17 | rexbidv 3177 |
. . . . . . . . . 10
β’ (π€ = π» β (βπ β (0[,]1)(π§(-gβπ€)π₯) = (π( Β·π
βπ€)(π¦(-gβπ€)π₯)) β βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯)))) |
19 | 6, 18 | rabeqbidv 3446 |
. . . . . . . . 9
β’ (π€ = π» β {π§ β (Baseβπ€) β£ βπ β (0[,]1)(π§(-gβπ€)π₯) = (π( Β·π
βπ€)(π¦(-gβπ€)π₯))} = {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))}) |
20 | 6, 6, 19 | mpoeq123dv 7465 |
. . . . . . . 8
β’ (π€ = π» β (π₯ β (Baseβπ€), π¦ β (Baseβπ€) β¦ {π§ β (Baseβπ€) β£ βπ β (0[,]1)(π§(-gβπ€)π₯) = (π( Β·π
βπ€)(π¦(-gβπ€)π₯))}) = (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})) |
21 | 20 | csbeq1d 3890 |
. . . . . . 7
β’ (π€ = π» β β¦(π₯ β (Baseβπ€), π¦ β (Baseβπ€) β¦ {π§ β (Baseβπ€) β£ βπ β (0[,]1)(π§(-gβπ€)π₯) = (π( Β·π
βπ€)(π¦(-gβπ€)π₯))}) / πβ¦((π€ sSet β¨(Itvβndx), πβ©) sSet
β¨(LineGβndx), (π₯
β (Baseβπ€),
π¦ β (Baseβπ€) β¦ {π§ β (Baseβπ€) β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β©) = β¦(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))}) / πβ¦((π€ sSet β¨(Itvβndx), πβ©) sSet
β¨(LineGβndx), (π₯
β (Baseβπ€),
π¦ β (Baseβπ€) β¦ {π§ β (Baseβπ€) β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β©)) |
22 | | oveq1 7397 |
. . . . . . . . 9
β’ (π€ = π» β (π€ sSet β¨(Itvβndx), πβ©) = (π» sSet β¨(Itvβndx), πβ©)) |
23 | 6 | rabeqdv 3444 |
. . . . . . . . . . 11
β’ (π€ = π» β {π§ β (Baseβπ€) β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))} = {π§ β π΅ β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))}) |
24 | 6, 6, 23 | mpoeq123dv 7465 |
. . . . . . . . . 10
β’ (π€ = π» β (π₯ β (Baseβπ€), π¦ β (Baseβπ€) β¦ {π§ β (Baseβπ€) β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))}) = (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})) |
25 | 24 | opeq2d 4870 |
. . . . . . . . 9
β’ (π€ = π» β β¨(LineGβndx), (π₯ β (Baseβπ€), π¦ β (Baseβπ€) β¦ {π§ β (Baseβπ€) β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β© = β¨(LineGβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β©) |
26 | 22, 25 | oveq12d 7408 |
. . . . . . . 8
β’ (π€ = π» β ((π€ sSet β¨(Itvβndx), πβ©) sSet
β¨(LineGβndx), (π₯
β (Baseβπ€),
π¦ β (Baseβπ€) β¦ {π§ β (Baseβπ€) β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β©) = ((π» sSet β¨(Itvβndx), πβ©) sSet
β¨(LineGβndx), (π₯
β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β©)) |
27 | 26 | csbeq2dv 3893 |
. . . . . . 7
β’ (π€ = π» β β¦(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))}) / πβ¦((π€ sSet β¨(Itvβndx), πβ©) sSet
β¨(LineGβndx), (π₯
β (Baseβπ€),
π¦ β (Baseβπ€) β¦ {π§ β (Baseβπ€) β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β©) = β¦(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))}) / πβ¦((π» sSet β¨(Itvβndx), πβ©) sSet
β¨(LineGβndx), (π₯
β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β©)) |
28 | 21, 27 | eqtrd 2771 |
. . . . . 6
β’ (π€ = π» β β¦(π₯ β (Baseβπ€), π¦ β (Baseβπ€) β¦ {π§ β (Baseβπ€) β£ βπ β (0[,]1)(π§(-gβπ€)π₯) = (π( Β·π
βπ€)(π¦(-gβπ€)π₯))}) / πβ¦((π€ sSet β¨(Itvβndx), πβ©) sSet
β¨(LineGβndx), (π₯
β (Baseβπ€),
π¦ β (Baseβπ€) β¦ {π§ β (Baseβπ€) β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β©) = β¦(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))}) / πβ¦((π» sSet β¨(Itvβndx), πβ©) sSet
β¨(LineGβndx), (π₯
β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β©)) |
29 | | df-ttg 27985 |
. . . . . 6
β’ toTG =
(π€ β V β¦
β¦(π₯ β
(Baseβπ€), π¦ β (Baseβπ€) β¦ {π§ β (Baseβπ€) β£ βπ β (0[,]1)(π§(-gβπ€)π₯) = (π( Β·π
βπ€)(π¦(-gβπ€)π₯))}) / πβ¦((π€ sSet β¨(Itvβndx), πβ©) sSet
β¨(LineGβndx), (π₯
β (Baseβπ€),
π¦ β (Baseβπ€) β¦ {π§ β (Baseβπ€) β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β©)) |
30 | | ovex 7423 |
. . . . . . 7
β’ ((π» sSet β¨(Itvβndx),
πβ©) sSet
β¨(LineGβndx), (π₯
β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β©) β V |
31 | 30 | csbex 5301 |
. . . . . 6
β’
β¦(π₯
β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))}) / πβ¦((π» sSet β¨(Itvβndx), πβ©) sSet
β¨(LineGβndx), (π₯
β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β©) β V |
32 | 28, 29, 31 | fvmpt 6981 |
. . . . 5
β’ (π» β V β
(toTGβπ») =
β¦(π₯ β
π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))}) / πβ¦((π» sSet β¨(Itvβndx), πβ©) sSet
β¨(LineGβndx), (π₯
β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β©)) |
33 | 3, 32 | syl 17 |
. . . 4
β’ (π» β π β (toTGβπ») = β¦(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))}) / πβ¦((π» sSet β¨(Itvβndx), πβ©) sSet
β¨(LineGβndx), (π₯
β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β©)) |
34 | 5 | fvexi 6889 |
. . . . . . 7
β’ π΅ β V |
35 | 34, 34 | mpoex 8045 |
. . . . . 6
β’ (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))}) β V |
36 | 35 | a1i 11 |
. . . . 5
β’ (π» β π β (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))}) β V) |
37 | | simpr 485 |
. . . . . . 7
β’ ((π» β π β§ π = (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})) β π = (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})) |
38 | | oveq2 7398 |
. . . . . . . . . . 11
β’ (π = π₯ β (π β π) = (π β π₯)) |
39 | | oveq2 7398 |
. . . . . . . . . . . 12
β’ (π = π₯ β (π β π) = (π β π₯)) |
40 | 39 | oveq2d 7406 |
. . . . . . . . . . 11
β’ (π = π₯ β (π Β· (π β π)) = (π Β· (π β π₯))) |
41 | 38, 40 | eqeq12d 2747 |
. . . . . . . . . 10
β’ (π = π₯ β ((π β π) = (π Β· (π β π)) β (π β π₯) = (π Β· (π β π₯)))) |
42 | 41 | rexbidv 3177 |
. . . . . . . . 9
β’ (π = π₯ β (βπ β (0[,]1)(π β π) = (π Β· (π β π)) β βπ β (0[,]1)(π β π₯) = (π Β· (π β π₯)))) |
43 | 42 | rabbidv 3437 |
. . . . . . . 8
β’ (π = π₯ β {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))} = {π β π΅ β£ βπ β (0[,]1)(π β π₯) = (π Β· (π β π₯))}) |
44 | | oveq1 7397 |
. . . . . . . . . . . . 13
β’ (π = π¦ β (π β π₯) = (π¦ β π₯)) |
45 | 44 | oveq2d 7406 |
. . . . . . . . . . . 12
β’ (π = π¦ β (π Β· (π β π₯)) = (π Β· (π¦ β π₯))) |
46 | 45 | eqeq2d 2742 |
. . . . . . . . . . 11
β’ (π = π¦ β ((π β π₯) = (π Β· (π β π₯)) β (π β π₯) = (π Β· (π¦ β π₯)))) |
47 | 46 | rexbidv 3177 |
. . . . . . . . . 10
β’ (π = π¦ β (βπ β (0[,]1)(π β π₯) = (π Β· (π β π₯)) β βπ β (0[,]1)(π β π₯) = (π Β· (π¦ β π₯)))) |
48 | 47 | rabbidv 3437 |
. . . . . . . . 9
β’ (π = π¦ β {π β π΅ β£ βπ β (0[,]1)(π β π₯) = (π Β· (π β π₯))} = {π β π΅ β£ βπ β (0[,]1)(π β π₯) = (π Β· (π¦ β π₯))}) |
49 | | oveq1 7397 |
. . . . . . . . . . . 12
β’ (π = π§ β (π β π₯) = (π§ β π₯)) |
50 | 49 | eqeq1d 2733 |
. . . . . . . . . . 11
β’ (π = π§ β ((π β π₯) = (π Β· (π¦ β π₯)) β (π§ β π₯) = (π Β· (π¦ β π₯)))) |
51 | 50 | rexbidv 3177 |
. . . . . . . . . 10
β’ (π = π§ β (βπ β (0[,]1)(π β π₯) = (π Β· (π¦ β π₯)) β βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯)))) |
52 | 51 | cbvrabv 3439 |
. . . . . . . . 9
β’ {π β π΅ β£ βπ β (0[,]1)(π β π₯) = (π Β· (π¦ β π₯))} = {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))} |
53 | 48, 52 | eqtrdi 2787 |
. . . . . . . 8
β’ (π = π¦ β {π β π΅ β£ βπ β (0[,]1)(π β π₯) = (π Β· (π β π₯))} = {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))}) |
54 | 43, 53 | cbvmpov 7485 |
. . . . . . 7
β’ (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))}) = (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))}) |
55 | 37, 54 | eqtr4di 2789 |
. . . . . 6
β’ ((π» β π β§ π = (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})) β π = (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))})) |
56 | | simpr 485 |
. . . . . . . . . 10
β’ ((π» β π β§ π = (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))})) β π = (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))})) |
57 | 56, 54 | eqtrdi 2787 |
. . . . . . . . 9
β’ ((π» β π β§ π = (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))})) β π = (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})) |
58 | 57 | opeq2d 4870 |
. . . . . . . 8
β’ ((π» β π β§ π = (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))})) β β¨(Itvβndx), πβ© = β¨(Itvβndx),
(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})β©) |
59 | 58 | oveq2d 7406 |
. . . . . . 7
β’ ((π» β π β§ π = (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))})) β (π» sSet β¨(Itvβndx), πβ©) = (π» sSet β¨(Itvβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})β©)) |
60 | 57 | oveqd 7407 |
. . . . . . . . . . . 12
β’ ((π» β π β§ π = (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))})) β (π₯ππ¦) = (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦)) |
61 | 60 | eleq2d 2818 |
. . . . . . . . . . 11
β’ ((π» β π β§ π = (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))})) β (π§ β (π₯ππ¦) β π§ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦))) |
62 | 57 | oveqd 7407 |
. . . . . . . . . . . 12
β’ ((π» β π β§ π = (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))})) β (π§ππ¦) = (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦)) |
63 | 62 | eleq2d 2818 |
. . . . . . . . . . 11
β’ ((π» β π β§ π = (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))})) β (π₯ β (π§ππ¦) β π₯ β (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦))) |
64 | 57 | oveqd 7407 |
. . . . . . . . . . . 12
β’ ((π» β π β§ π = (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))})) β (π₯ππ§) = (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§)) |
65 | 64 | eleq2d 2818 |
. . . . . . . . . . 11
β’ ((π» β π β§ π = (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))})) β (π¦ β (π₯ππ§) β π¦ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§))) |
66 | 61, 63, 65 | 3orbi123d 1435 |
. . . . . . . . . 10
β’ ((π» β π β§ π = (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))})) β ((π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§)) β (π§ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π₯ β (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π¦ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§)))) |
67 | 66 | rabbidv 3437 |
. . . . . . . . 9
β’ ((π» β π β§ π = (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))})) β {π§ β π΅ β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))} = {π§ β π΅ β£ (π§ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π₯ β (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π¦ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§))}) |
68 | 67 | mpoeq3dv 7469 |
. . . . . . . 8
β’ ((π» β π β§ π = (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))})) β (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))}) = (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π₯ β (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π¦ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§))})) |
69 | 68 | opeq2d 4870 |
. . . . . . 7
β’ ((π» β π β§ π = (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))})) β β¨(LineGβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β© = β¨(LineGβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π₯ β (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π¦ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§))})β©) |
70 | 59, 69 | oveq12d 7408 |
. . . . . 6
β’ ((π» β π β§ π = (π β π΅, π β π΅ β¦ {π β π΅ β£ βπ β (0[,]1)(π β π) = (π Β· (π β π))})) β ((π» sSet β¨(Itvβndx), πβ©) sSet
β¨(LineGβndx), (π₯
β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β©) = ((π» sSet β¨(Itvβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})β©) sSet β¨(LineGβndx),
(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π₯ β (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π¦ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§))})β©)) |
71 | 55, 70 | syldan 591 |
. . . . 5
β’ ((π» β π β§ π = (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})) β ((π» sSet β¨(Itvβndx), πβ©) sSet
β¨(LineGβndx), (π₯
β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β©) = ((π» sSet β¨(Itvβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})β©) sSet β¨(LineGβndx),
(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π₯ β (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π¦ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§))})β©)) |
72 | 36, 71 | csbied 3924 |
. . . 4
β’ (π» β π β β¦(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))}) / πβ¦((π» sSet β¨(Itvβndx), πβ©) sSet
β¨(LineGβndx), (π₯
β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯ππ¦) β¨ π₯ β (π§ππ¦) β¨ π¦ β (π₯ππ§))})β©) = ((π» sSet β¨(Itvβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})β©) sSet β¨(LineGβndx),
(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π₯ β (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π¦ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§))})β©)) |
73 | 2, 33, 72 | 3eqtrd 2775 |
. . 3
β’ (π» β π β πΊ = ((π» sSet β¨(Itvβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})β©) sSet β¨(LineGβndx),
(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π₯ β (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π¦ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§))})β©)) |
74 | 73 | fveq2d 6879 |
. . . . . . . . . . . 12
β’ (π» β π β (ItvβπΊ) = (Itvβ((π» sSet β¨(Itvβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})β©) sSet β¨(LineGβndx),
(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π₯ β (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π¦ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§))})β©))) |
75 | | itvid 27550 |
. . . . . . . . . . . . 13
β’ Itv =
Slot (Itvβndx) |
76 | | 1nn0 12467 |
. . . . . . . . . . . . . . . . 17
β’ 1 β
β0 |
77 | | 6nn 12280 |
. . . . . . . . . . . . . . . . 17
β’ 6 β
β |
78 | 76, 77 | decnncl 12676 |
. . . . . . . . . . . . . . . 16
β’ ;16 β β |
79 | 78 | nnrei 12200 |
. . . . . . . . . . . . . . 15
β’ ;16 β β |
80 | | 6nn0 12472 |
. . . . . . . . . . . . . . . 16
β’ 6 β
β0 |
81 | | 7nn 12283 |
. . . . . . . . . . . . . . . 16
β’ 7 β
β |
82 | | 6lt7 12377 |
. . . . . . . . . . . . . . . 16
β’ 6 <
7 |
83 | 76, 80, 81, 82 | declt 12684 |
. . . . . . . . . . . . . . 15
β’ ;16 < ;17 |
84 | 79, 83 | ltneii 11306 |
. . . . . . . . . . . . . 14
β’ ;16 β ;17 |
85 | | itvndx 27548 |
. . . . . . . . . . . . . . 15
β’
(Itvβndx) = ;16 |
86 | | lngndx 27549 |
. . . . . . . . . . . . . . 15
β’
(LineGβndx) = ;17 |
87 | 85, 86 | neeq12i 3006 |
. . . . . . . . . . . . . 14
β’
((Itvβndx) β (LineGβndx) β ;16 β ;17) |
88 | 84, 87 | mpbir 230 |
. . . . . . . . . . . . 13
β’
(Itvβndx) β (LineGβndx) |
89 | 75, 88 | setsnid 17121 |
. . . . . . . . . . . 12
β’
(Itvβ(π» sSet
β¨(Itvβndx), (π₯
β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})β©)) = (Itvβ((π» sSet β¨(Itvβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})β©) sSet β¨(LineGβndx),
(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π₯ β (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π¦ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§))})β©)) |
90 | 74, 89 | eqtr4di 2789 |
. . . . . . . . . . 11
β’ (π» β π β (ItvβπΊ) = (Itvβ(π» sSet β¨(Itvβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})β©))) |
91 | | ttgval.i |
. . . . . . . . . . . 12
β’ πΌ = (ItvβπΊ) |
92 | 91 | a1i 11 |
. . . . . . . . . . 11
β’ (π» β π β πΌ = (ItvβπΊ)) |
93 | 75 | setsid 17120 |
. . . . . . . . . . . 12
β’ ((π» β π β§ (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))}) β V) β (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))}) = (Itvβ(π» sSet β¨(Itvβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})β©))) |
94 | 35, 93 | mpan2 689 |
. . . . . . . . . . 11
β’ (π» β π β (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))}) = (Itvβ(π» sSet β¨(Itvβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})β©))) |
95 | 90, 92, 94 | 3eqtr4d 2781 |
. . . . . . . . . 10
β’ (π» β π β πΌ = (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})) |
96 | 95 | oveqd 7407 |
. . . . . . . . 9
β’ (π» β π β (π₯πΌπ¦) = (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦)) |
97 | 96 | eleq2d 2818 |
. . . . . . . 8
β’ (π» β π β (π§ β (π₯πΌπ¦) β π§ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦))) |
98 | 95 | oveqd 7407 |
. . . . . . . . 9
β’ (π» β π β (π§πΌπ¦) = (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦)) |
99 | 98 | eleq2d 2818 |
. . . . . . . 8
β’ (π» β π β (π₯ β (π§πΌπ¦) β π₯ β (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦))) |
100 | 95 | oveqd 7407 |
. . . . . . . . 9
β’ (π» β π β (π₯πΌπ§) = (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§)) |
101 | 100 | eleq2d 2818 |
. . . . . . . 8
β’ (π» β π β (π¦ β (π₯πΌπ§) β π¦ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§))) |
102 | 97, 99, 101 | 3orbi123d 1435 |
. . . . . . 7
β’ (π» β π β ((π§ β (π₯πΌπ¦) β¨ π₯ β (π§πΌπ¦) β¨ π¦ β (π₯πΌπ§)) β (π§ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π₯ β (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π¦ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§)))) |
103 | 102 | rabbidv 3437 |
. . . . . 6
β’ (π» β π β {π§ β π΅ β£ (π§ β (π₯πΌπ¦) β¨ π₯ β (π§πΌπ¦) β¨ π¦ β (π₯πΌπ§))} = {π§ β π΅ β£ (π§ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π₯ β (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π¦ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§))}) |
104 | 103 | mpoeq3dv 7469 |
. . . . 5
β’ (π» β π β (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯πΌπ¦) β¨ π₯ β (π§πΌπ¦) β¨ π¦ β (π₯πΌπ§))}) = (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π₯ β (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π¦ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§))})) |
105 | 104 | opeq2d 4870 |
. . . 4
β’ (π» β π β β¨(LineGβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯πΌπ¦) β¨ π₯ β (π§πΌπ¦) β¨ π¦ β (π₯πΌπ§))})β© = β¨(LineGβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π₯ β (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π¦ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§))})β©) |
106 | 105 | oveq2d 7406 |
. . 3
β’ (π» β π β ((π» sSet β¨(Itvβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})β©) sSet β¨(LineGβndx),
(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯πΌπ¦) β¨ π₯ β (π§πΌπ¦) β¨ π¦ β (π₯πΌπ§))})β©) = ((π» sSet β¨(Itvβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})β©) sSet β¨(LineGβndx),
(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π₯ β (π§(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π¦) β¨ π¦ β (π₯(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})π§))})β©)) |
107 | 73, 106 | eqtr4d 2774 |
. 2
β’ (π» β π β πΊ = ((π» sSet β¨(Itvβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})β©) sSet β¨(LineGβndx),
(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯πΌπ¦) β¨ π₯ β (π§πΌπ¦) β¨ π¦ β (π₯πΌπ§))})β©)) |
108 | 107, 95 | jca 512 |
1
β’ (π» β π β (πΊ = ((π» sSet β¨(Itvβndx), (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))})β©) sSet β¨(LineGβndx),
(π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ (π§ β (π₯πΌπ¦) β¨ π₯ β (π§πΌπ¦) β¨ π¦ β (π₯πΌπ§))})β©) β§ πΌ = (π₯ β π΅, π¦ β π΅ β¦ {π§ β π΅ β£ βπ β (0[,]1)(π§ β π₯) = (π Β· (π¦ β π₯))}))) |