Step |
Hyp |
Ref |
Expression |
1 |
|
vonn0hoi.x |
|- ( ph -> X e. Fin ) |
2 |
|
vonn0hoi.n |
|- ( ph -> X =/= (/) ) |
3 |
|
vonn0hoi.a |
|- ( ph -> A : X --> RR ) |
4 |
|
vonn0hoi.b |
|- ( ph -> B : X --> RR ) |
5 |
|
vonn0hoi.i |
|- I = X_ k e. X ( ( A ` k ) [,) ( B ` k ) ) |
6 |
|
eqid |
|- ( x e. Fin |-> ( a e. ( RR ^m x ) , b e. ( RR ^m x ) |-> if ( x = (/) , 0 , prod_ k e. x ( vol ` ( ( a ` k ) [,) ( b ` k ) ) ) ) ) ) = ( x e. Fin |-> ( a e. ( RR ^m x ) , b e. ( RR ^m x ) |-> if ( x = (/) , 0 , prod_ k e. x ( vol ` ( ( a ` k ) [,) ( b ` k ) ) ) ) ) ) |
7 |
1 3 4 5 6
|
vonhoi |
|- ( ph -> ( ( voln ` X ) ` I ) = ( A ( ( x e. Fin |-> ( a e. ( RR ^m x ) , b e. ( RR ^m x ) |-> if ( x = (/) , 0 , prod_ k e. x ( vol ` ( ( a ` k ) [,) ( b ` k ) ) ) ) ) ) ` X ) B ) ) |
8 |
6 1 2 3 4
|
hoidmvn0val |
|- ( ph -> ( A ( ( x e. Fin |-> ( a e. ( RR ^m x ) , b e. ( RR ^m x ) |-> if ( x = (/) , 0 , prod_ k e. x ( vol ` ( ( a ` k ) [,) ( b ` k ) ) ) ) ) ) ` X ) B ) = prod_ k e. X ( vol ` ( ( A ` k ) [,) ( B ` k ) ) ) ) |
9 |
7 8
|
eqtrd |
|- ( ph -> ( ( voln ` X ) ` I ) = prod_ k e. X ( vol ` ( ( A ` k ) [,) ( B ` k ) ) ) ) |