Step |
Hyp |
Ref |
Expression |
1 |
|
ttgval.n |
|- G = ( toTG ` H ) |
2 |
|
ttgval.b |
|- B = ( Base ` H ) |
3 |
|
ttgval.m |
|- .- = ( -g ` H ) |
4 |
|
ttgval.s |
|- .x. = ( .s ` H ) |
5 |
|
ttgval.i |
|- I = ( Itv ` G ) |
6 |
1
|
a1i |
|- ( H e. V -> G = ( toTG ` H ) ) |
7 |
|
elex |
|- ( H e. V -> H e. _V ) |
8 |
|
fveq2 |
|- ( w = H -> ( Base ` w ) = ( Base ` H ) ) |
9 |
8 2
|
eqtr4di |
|- ( w = H -> ( Base ` w ) = B ) |
10 |
|
fveq2 |
|- ( w = H -> ( -g ` w ) = ( -g ` H ) ) |
11 |
10 3
|
eqtr4di |
|- ( w = H -> ( -g ` w ) = .- ) |
12 |
11
|
oveqd |
|- ( w = H -> ( z ( -g ` w ) x ) = ( z .- x ) ) |
13 |
|
fveq2 |
|- ( w = H -> ( .s ` w ) = ( .s ` H ) ) |
14 |
13 4
|
eqtr4di |
|- ( w = H -> ( .s ` w ) = .x. ) |
15 |
|
eqidd |
|- ( w = H -> k = k ) |
16 |
11
|
oveqd |
|- ( w = H -> ( y ( -g ` w ) x ) = ( y .- x ) ) |
17 |
14 15 16
|
oveq123d |
|- ( w = H -> ( k ( .s ` w ) ( y ( -g ` w ) x ) ) = ( k .x. ( y .- x ) ) ) |
18 |
12 17
|
eqeq12d |
|- ( w = H -> ( ( z ( -g ` w ) x ) = ( k ( .s ` w ) ( y ( -g ` w ) x ) ) <-> ( z .- x ) = ( k .x. ( y .- x ) ) ) ) |
19 |
18
|
rexbidv |
|- ( w = H -> ( E. k e. ( 0 [,] 1 ) ( z ( -g ` w ) x ) = ( k ( .s ` w ) ( y ( -g ` w ) x ) ) <-> E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) ) ) |
20 |
9 19
|
rabeqbidv |
|- ( w = H -> { z e. ( Base ` w ) | E. k e. ( 0 [,] 1 ) ( z ( -g ` w ) x ) = ( k ( .s ` w ) ( y ( -g ` w ) x ) ) } = { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) |
21 |
9 9 20
|
mpoeq123dv |
|- ( w = H -> ( x e. ( Base ` w ) , y e. ( Base ` w ) |-> { z e. ( Base ` w ) | E. k e. ( 0 [,] 1 ) ( z ( -g ` w ) x ) = ( k ( .s ` w ) ( y ( -g ` w ) x ) ) } ) = ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) ) |
22 |
21
|
csbeq1d |
|- ( w = H -> [_ ( x e. ( Base ` w ) , y e. ( Base ` w ) |-> { z e. ( Base ` w ) | E. k e. ( 0 [,] 1 ) ( z ( -g ` w ) x ) = ( k ( .s ` w ) ( y ( -g ` w ) x ) ) } ) / i ]_ ( ( w sSet <. ( Itv ` ndx ) , i >. ) sSet <. ( LineG ` ndx ) , ( x e. ( Base ` w ) , y e. ( Base ` w ) |-> { z e. ( Base ` w ) | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. ) = [_ ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) / i ]_ ( ( w sSet <. ( Itv ` ndx ) , i >. ) sSet <. ( LineG ` ndx ) , ( x e. ( Base ` w ) , y e. ( Base ` w ) |-> { z e. ( Base ` w ) | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. ) ) |
23 |
|
oveq1 |
|- ( w = H -> ( w sSet <. ( Itv ` ndx ) , i >. ) = ( H sSet <. ( Itv ` ndx ) , i >. ) ) |
24 |
9
|
rabeqdv |
|- ( w = H -> { z e. ( Base ` w ) | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } = { z e. B | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) |
25 |
9 9 24
|
mpoeq123dv |
|- ( w = H -> ( x e. ( Base ` w ) , y e. ( Base ` w ) |-> { z e. ( Base ` w ) | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) = ( x e. B , y e. B |-> { z e. B | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) ) |
26 |
25
|
opeq2d |
|- ( w = H -> <. ( LineG ` ndx ) , ( x e. ( Base ` w ) , y e. ( Base ` w ) |-> { z e. ( Base ` w ) | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. = <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. ) |
27 |
23 26
|
oveq12d |
|- ( w = H -> ( ( w sSet <. ( Itv ` ndx ) , i >. ) sSet <. ( LineG ` ndx ) , ( x e. ( Base ` w ) , y e. ( Base ` w ) |-> { z e. ( Base ` w ) | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. ) = ( ( H sSet <. ( Itv ` ndx ) , i >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. ) ) |
28 |
27
|
csbeq2dv |
|- ( w = H -> [_ ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) / i ]_ ( ( w sSet <. ( Itv ` ndx ) , i >. ) sSet <. ( LineG ` ndx ) , ( x e. ( Base ` w ) , y e. ( Base ` w ) |-> { z e. ( Base ` w ) | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. ) = [_ ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) / i ]_ ( ( H sSet <. ( Itv ` ndx ) , i >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. ) ) |
29 |
22 28
|
eqtrd |
|- ( w = H -> [_ ( x e. ( Base ` w ) , y e. ( Base ` w ) |-> { z e. ( Base ` w ) | E. k e. ( 0 [,] 1 ) ( z ( -g ` w ) x ) = ( k ( .s ` w ) ( y ( -g ` w ) x ) ) } ) / i ]_ ( ( w sSet <. ( Itv ` ndx ) , i >. ) sSet <. ( LineG ` ndx ) , ( x e. ( Base ` w ) , y e. ( Base ` w ) |-> { z e. ( Base ` w ) | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. ) = [_ ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) / i ]_ ( ( H sSet <. ( Itv ` ndx ) , i >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. ) ) |
30 |
|
df-ttg |
|- toTG = ( w e. _V |-> [_ ( x e. ( Base ` w ) , y e. ( Base ` w ) |-> { z e. ( Base ` w ) | E. k e. ( 0 [,] 1 ) ( z ( -g ` w ) x ) = ( k ( .s ` w ) ( y ( -g ` w ) x ) ) } ) / i ]_ ( ( w sSet <. ( Itv ` ndx ) , i >. ) sSet <. ( LineG ` ndx ) , ( x e. ( Base ` w ) , y e. ( Base ` w ) |-> { z e. ( Base ` w ) | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. ) ) |
31 |
|
ovex |
|- ( ( H sSet <. ( Itv ` ndx ) , i >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. ) e. _V |
32 |
31
|
csbex |
|- [_ ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) / i ]_ ( ( H sSet <. ( Itv ` ndx ) , i >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. ) e. _V |
33 |
29 30 32
|
fvmpt |
|- ( H e. _V -> ( toTG ` H ) = [_ ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) / i ]_ ( ( H sSet <. ( Itv ` ndx ) , i >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. ) ) |
34 |
7 33
|
syl |
|- ( H e. V -> ( toTG ` H ) = [_ ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) / i ]_ ( ( H sSet <. ( Itv ` ndx ) , i >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. ) ) |
35 |
2
|
fvexi |
|- B e. _V |
36 |
35 35
|
mpoex |
|- ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) e. _V |
37 |
36
|
a1i |
|- ( H e. V -> ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) e. _V ) |
38 |
|
simpr |
|- ( ( H e. V /\ i = ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) ) -> i = ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) ) |
39 |
|
oveq2 |
|- ( a = x -> ( c .- a ) = ( c .- x ) ) |
40 |
|
oveq2 |
|- ( a = x -> ( b .- a ) = ( b .- x ) ) |
41 |
40
|
oveq2d |
|- ( a = x -> ( k .x. ( b .- a ) ) = ( k .x. ( b .- x ) ) ) |
42 |
39 41
|
eqeq12d |
|- ( a = x -> ( ( c .- a ) = ( k .x. ( b .- a ) ) <-> ( c .- x ) = ( k .x. ( b .- x ) ) ) ) |
43 |
42
|
rexbidv |
|- ( a = x -> ( E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) <-> E. k e. ( 0 [,] 1 ) ( c .- x ) = ( k .x. ( b .- x ) ) ) ) |
44 |
43
|
rabbidv |
|- ( a = x -> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } = { c e. B | E. k e. ( 0 [,] 1 ) ( c .- x ) = ( k .x. ( b .- x ) ) } ) |
45 |
|
oveq1 |
|- ( b = y -> ( b .- x ) = ( y .- x ) ) |
46 |
45
|
oveq2d |
|- ( b = y -> ( k .x. ( b .- x ) ) = ( k .x. ( y .- x ) ) ) |
47 |
46
|
eqeq2d |
|- ( b = y -> ( ( c .- x ) = ( k .x. ( b .- x ) ) <-> ( c .- x ) = ( k .x. ( y .- x ) ) ) ) |
48 |
47
|
rexbidv |
|- ( b = y -> ( E. k e. ( 0 [,] 1 ) ( c .- x ) = ( k .x. ( b .- x ) ) <-> E. k e. ( 0 [,] 1 ) ( c .- x ) = ( k .x. ( y .- x ) ) ) ) |
49 |
48
|
rabbidv |
|- ( b = y -> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- x ) = ( k .x. ( b .- x ) ) } = { c e. B | E. k e. ( 0 [,] 1 ) ( c .- x ) = ( k .x. ( y .- x ) ) } ) |
50 |
|
oveq1 |
|- ( c = z -> ( c .- x ) = ( z .- x ) ) |
51 |
50
|
eqeq1d |
|- ( c = z -> ( ( c .- x ) = ( k .x. ( y .- x ) ) <-> ( z .- x ) = ( k .x. ( y .- x ) ) ) ) |
52 |
51
|
rexbidv |
|- ( c = z -> ( E. k e. ( 0 [,] 1 ) ( c .- x ) = ( k .x. ( y .- x ) ) <-> E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) ) ) |
53 |
52
|
cbvrabv |
|- { c e. B | E. k e. ( 0 [,] 1 ) ( c .- x ) = ( k .x. ( y .- x ) ) } = { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } |
54 |
49 53
|
eqtrdi |
|- ( b = y -> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- x ) = ( k .x. ( b .- x ) ) } = { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) |
55 |
44 54
|
cbvmpov |
|- ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) = ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) |
56 |
38 55
|
eqtr4di |
|- ( ( H e. V /\ i = ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) ) -> i = ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) ) |
57 |
|
simpr |
|- ( ( H e. V /\ i = ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) ) -> i = ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) ) |
58 |
57 55
|
eqtrdi |
|- ( ( H e. V /\ i = ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) ) -> i = ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) ) |
59 |
58
|
opeq2d |
|- ( ( H e. V /\ i = ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) ) -> <. ( Itv ` ndx ) , i >. = <. ( Itv ` ndx ) , ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) >. ) |
60 |
59
|
oveq2d |
|- ( ( H e. V /\ i = ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) ) -> ( H sSet <. ( Itv ` ndx ) , i >. ) = ( H sSet <. ( Itv ` ndx ) , ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) >. ) ) |
61 |
58
|
oveqd |
|- ( ( H e. V /\ i = ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) ) -> ( x i y ) = ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) ) |
62 |
61
|
eleq2d |
|- ( ( H e. V /\ i = ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) ) -> ( z e. ( x i y ) <-> z e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) ) ) |
63 |
58
|
oveqd |
|- ( ( H e. V /\ i = ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) ) -> ( z i y ) = ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) ) |
64 |
63
|
eleq2d |
|- ( ( H e. V /\ i = ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) ) -> ( x e. ( z i y ) <-> x e. ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) ) ) |
65 |
58
|
oveqd |
|- ( ( H e. V /\ i = ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) ) -> ( x i z ) = ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) |
66 |
65
|
eleq2d |
|- ( ( H e. V /\ i = ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) ) -> ( y e. ( x i z ) <-> y e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) ) |
67 |
62 64 66
|
3orbi123d |
|- ( ( H e. V /\ i = ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) ) -> ( ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) <-> ( z e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ x e. ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ y e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) ) ) |
68 |
67
|
rabbidv |
|- ( ( H e. V /\ i = ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) ) -> { z e. B | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } = { z e. B | ( z e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ x e. ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ y e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) } ) |
69 |
68
|
mpoeq3dv |
|- ( ( H e. V /\ i = ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) ) -> ( x e. B , y e. B |-> { z e. B | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) = ( x e. B , y e. B |-> { z e. B | ( z e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ x e. ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ y e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) } ) ) |
70 |
69
|
opeq2d |
|- ( ( H e. V /\ i = ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) ) -> <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. = <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ x e. ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ y e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) } ) >. ) |
71 |
60 70
|
oveq12d |
|- ( ( H e. V /\ i = ( a e. B , b e. B |-> { c e. B | E. k e. ( 0 [,] 1 ) ( c .- a ) = ( k .x. ( b .- a ) ) } ) ) -> ( ( H sSet <. ( Itv ` ndx ) , i >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. ) = ( ( H sSet <. ( Itv ` ndx ) , ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ x e. ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ y e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) } ) >. ) ) |
72 |
56 71
|
syldan |
|- ( ( H e. V /\ i = ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) ) -> ( ( H sSet <. ( Itv ` ndx ) , i >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. ) = ( ( H sSet <. ( Itv ` ndx ) , ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ x e. ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ y e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) } ) >. ) ) |
73 |
37 72
|
csbied |
|- ( H e. V -> [_ ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) / i ]_ ( ( H sSet <. ( Itv ` ndx ) , i >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x i y ) \/ x e. ( z i y ) \/ y e. ( x i z ) ) } ) >. ) = ( ( H sSet <. ( Itv ` ndx ) , ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ x e. ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ y e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) } ) >. ) ) |
74 |
6 34 73
|
3eqtrd |
|- ( H e. V -> G = ( ( H sSet <. ( Itv ` ndx ) , ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ x e. ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ y e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) } ) >. ) ) |
75 |
74
|
fveq2d |
|- ( H e. V -> ( Itv ` G ) = ( Itv ` ( ( H sSet <. ( Itv ` ndx ) , ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ x e. ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ y e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) } ) >. ) ) ) |
76 |
|
itvid |
|- Itv = Slot ( Itv ` ndx ) |
77 |
|
1nn0 |
|- 1 e. NN0 |
78 |
|
6nn |
|- 6 e. NN |
79 |
77 78
|
decnncl |
|- ; 1 6 e. NN |
80 |
79
|
nnrei |
|- ; 1 6 e. RR |
81 |
|
6nn0 |
|- 6 e. NN0 |
82 |
|
7nn |
|- 7 e. NN |
83 |
|
6lt7 |
|- 6 < 7 |
84 |
77 81 82 83
|
declt |
|- ; 1 6 < ; 1 7 |
85 |
80 84
|
ltneii |
|- ; 1 6 =/= ; 1 7 |
86 |
|
itvndx |
|- ( Itv ` ndx ) = ; 1 6 |
87 |
|
lngndx |
|- ( LineG ` ndx ) = ; 1 7 |
88 |
86 87
|
neeq12i |
|- ( ( Itv ` ndx ) =/= ( LineG ` ndx ) <-> ; 1 6 =/= ; 1 7 ) |
89 |
85 88
|
mpbir |
|- ( Itv ` ndx ) =/= ( LineG ` ndx ) |
90 |
76 89
|
setsnid |
|- ( Itv ` ( H sSet <. ( Itv ` ndx ) , ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) >. ) ) = ( Itv ` ( ( H sSet <. ( Itv ` ndx ) , ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ x e. ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ y e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) } ) >. ) ) |
91 |
75 90
|
eqtr4di |
|- ( H e. V -> ( Itv ` G ) = ( Itv ` ( H sSet <. ( Itv ` ndx ) , ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) >. ) ) ) |
92 |
5
|
a1i |
|- ( H e. V -> I = ( Itv ` G ) ) |
93 |
76
|
setsid |
|- ( ( H e. V /\ ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) e. _V ) -> ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) = ( Itv ` ( H sSet <. ( Itv ` ndx ) , ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) >. ) ) ) |
94 |
36 93
|
mpan2 |
|- ( H e. V -> ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) = ( Itv ` ( H sSet <. ( Itv ` ndx ) , ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) >. ) ) ) |
95 |
91 92 94
|
3eqtr4d |
|- ( H e. V -> I = ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) ) |
96 |
95
|
oveqd |
|- ( H e. V -> ( x I y ) = ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) ) |
97 |
96
|
eleq2d |
|- ( H e. V -> ( z e. ( x I y ) <-> z e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) ) ) |
98 |
95
|
oveqd |
|- ( H e. V -> ( z I y ) = ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) ) |
99 |
98
|
eleq2d |
|- ( H e. V -> ( x e. ( z I y ) <-> x e. ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) ) ) |
100 |
95
|
oveqd |
|- ( H e. V -> ( x I z ) = ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) |
101 |
100
|
eleq2d |
|- ( H e. V -> ( y e. ( x I z ) <-> y e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) ) |
102 |
97 99 101
|
3orbi123d |
|- ( H e. V -> ( ( z e. ( x I y ) \/ x e. ( z I y ) \/ y e. ( x I z ) ) <-> ( z e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ x e. ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ y e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) ) ) |
103 |
102
|
rabbidv |
|- ( H e. V -> { z e. B | ( z e. ( x I y ) \/ x e. ( z I y ) \/ y e. ( x I z ) ) } = { z e. B | ( z e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ x e. ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ y e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) } ) |
104 |
103
|
mpoeq3dv |
|- ( H e. V -> ( x e. B , y e. B |-> { z e. B | ( z e. ( x I y ) \/ x e. ( z I y ) \/ y e. ( x I z ) ) } ) = ( x e. B , y e. B |-> { z e. B | ( z e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ x e. ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ y e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) } ) ) |
105 |
104
|
opeq2d |
|- ( H e. V -> <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x I y ) \/ x e. ( z I y ) \/ y e. ( x I z ) ) } ) >. = <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ x e. ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ y e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) } ) >. ) |
106 |
105
|
oveq2d |
|- ( H e. V -> ( ( H sSet <. ( Itv ` ndx ) , ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x I y ) \/ x e. ( z I y ) \/ y e. ( x I z ) ) } ) >. ) = ( ( H sSet <. ( Itv ` ndx ) , ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ x e. ( z ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) y ) \/ y e. ( x ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) z ) ) } ) >. ) ) |
107 |
74 106
|
eqtr4d |
|- ( H e. V -> G = ( ( H sSet <. ( Itv ` ndx ) , ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x I y ) \/ x e. ( z I y ) \/ y e. ( x I z ) ) } ) >. ) ) |
108 |
107 95
|
jca |
|- ( H e. V -> ( G = ( ( H sSet <. ( Itv ` ndx ) , ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) >. ) sSet <. ( LineG ` ndx ) , ( x e. B , y e. B |-> { z e. B | ( z e. ( x I y ) \/ x e. ( z I y ) \/ y e. ( x I z ) ) } ) >. ) /\ I = ( x e. B , y e. B |-> { z e. B | E. k e. ( 0 [,] 1 ) ( z .- x ) = ( k .x. ( y .- x ) ) } ) ) ) |