Step | Hyp | Ref
| Expression |
1 | | fveq2 6888 |
. . . . . 6
β’ (π = β
β
(volnβπ) =
(volnββ
)) |
2 | 1 | fveq1d 6890 |
. . . . 5
β’ (π = β
β
((volnβπ)βXπ β
π (π΄[,)π΅)) = ((volnββ
)βXπ β
π (π΄[,)π΅))) |
3 | 2 | adantl 482 |
. . . 4
β’ ((π β§ π = β
) β ((volnβπ)βXπ β
π (π΄[,)π΅)) = ((volnββ
)βXπ β
π (π΄[,)π΅))) |
4 | | ixpeq1 8898 |
. . . . . . 7
β’ (π = β
β Xπ β
π (π΄[,)π΅) = Xπ β β
(π΄[,)π΅)) |
5 | 4 | adantl 482 |
. . . . . 6
β’ ((π β§ π = β
) β Xπ β
π (π΄[,)π΅) = Xπ β β
(π΄[,)π΅)) |
6 | | vonhoire.n |
. . . . . . . 8
β’
β²ππ |
7 | | 0fin 9167 |
. . . . . . . . 9
β’ β
β Fin |
8 | 7 | a1i 11 |
. . . . . . . 8
β’ (π β β
β
Fin) |
9 | | eqid 2732 |
. . . . . . . 8
β’ dom
(volnββ
) = dom (volnββ
) |
10 | | noel 4329 |
. . . . . . . . . 10
β’ Β¬
π β
β
|
11 | 10 | pm2.21i 119 |
. . . . . . . . 9
β’ (π β β
β π΄ β
β) |
12 | 11 | adantl 482 |
. . . . . . . 8
β’ ((π β§ π β β
) β π΄ β β) |
13 | 10 | pm2.21i 119 |
. . . . . . . . 9
β’ (π β β
β π΅ β
β) |
14 | 13 | adantl 482 |
. . . . . . . 8
β’ ((π β§ π β β
) β π΅ β β) |
15 | 6, 8, 9, 12, 14 | hoimbl2 45367 |
. . . . . . 7
β’ (π β Xπ β
β
(π΄[,)π΅) β dom
(volnββ
)) |
16 | 15 | adantr 481 |
. . . . . 6
β’ ((π β§ π = β
) β Xπ β
β
(π΄[,)π΅) β dom
(volnββ
)) |
17 | 5, 16 | eqeltrd 2833 |
. . . . 5
β’ ((π β§ π = β
) β Xπ β
π (π΄[,)π΅) β dom
(volnββ
)) |
18 | 17 | von0val 45373 |
. . . 4
β’ ((π β§ π = β
) β
((volnββ
)βXπ β π (π΄[,)π΅)) = 0) |
19 | 3, 18 | eqtrd 2772 |
. . 3
β’ ((π β§ π = β
) β ((volnβπ)βXπ β
π (π΄[,)π΅)) = 0) |
20 | | 0red 11213 |
. . 3
β’ ((π β§ π = β
) β 0 β
β) |
21 | 19, 20 | eqeltrd 2833 |
. 2
β’ ((π β§ π = β
) β ((volnβπ)βXπ β
π (π΄[,)π΅)) β β) |
22 | | neqne 2948 |
. . . 4
β’ (Β¬
π = β
β π β β
) |
23 | 22 | adantl 482 |
. . 3
β’ ((π β§ Β¬ π = β
) β π β β
) |
24 | | simpr 485 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β π β π) |
25 | | nfv 1917 |
. . . . . . . . . . . . . 14
β’
β²π π β π |
26 | 6, 25 | nfan 1902 |
. . . . . . . . . . . . 13
β’
β²π(π β§ π β π) |
27 | | nfcv 2903 |
. . . . . . . . . . . . . . 15
β’
β²ππ |
28 | 27 | nfcsb1 3916 |
. . . . . . . . . . . . . 14
β’
β²πβ¦π / πβ¦π΄ |
29 | 28 | nfel1 2919 |
. . . . . . . . . . . . 13
β’
β²πβ¦π / πβ¦π΄ β β |
30 | 26, 29 | nfim 1899 |
. . . . . . . . . . . 12
β’
β²π((π β§ π β π) β β¦π / πβ¦π΄ β β) |
31 | | eleq1w 2816 |
. . . . . . . . . . . . . 14
β’ (π = π β (π β π β π β π)) |
32 | 31 | anbi2d 629 |
. . . . . . . . . . . . 13
β’ (π = π β ((π β§ π β π) β (π β§ π β π))) |
33 | | csbeq1a 3906 |
. . . . . . . . . . . . . 14
β’ (π = π β π΄ = β¦π / πβ¦π΄) |
34 | 33 | eleq1d 2818 |
. . . . . . . . . . . . 13
β’ (π = π β (π΄ β β β β¦π / πβ¦π΄ β β)) |
35 | 32, 34 | imbi12d 344 |
. . . . . . . . . . . 12
β’ (π = π β (((π β§ π β π) β π΄ β β) β ((π β§ π β π) β β¦π / πβ¦π΄ β β))) |
36 | | vonhoire.a |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β π΄ β β) |
37 | 30, 35, 36 | chvarfv 2233 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β β¦π / πβ¦π΄ β β) |
38 | | eqid 2732 |
. . . . . . . . . . . 12
β’ (π β π β¦ π΄) = (π β π β¦ π΄) |
39 | 27, 28, 33, 38 | fvmptf 7016 |
. . . . . . . . . . 11
β’ ((π β π β§ β¦π / πβ¦π΄ β β) β ((π β π β¦ π΄)βπ) = β¦π / πβ¦π΄) |
40 | 24, 37, 39 | syl2anc 584 |
. . . . . . . . . 10
β’ ((π β§ π β π) β ((π β π β¦ π΄)βπ) = β¦π / πβ¦π΄) |
41 | 27 | nfcsb1 3916 |
. . . . . . . . . . . . . 14
β’
β²πβ¦π / πβ¦π΅ |
42 | | nfcv 2903 |
. . . . . . . . . . . . . 14
β’
β²πβ |
43 | 41, 42 | nfel 2917 |
. . . . . . . . . . . . 13
β’
β²πβ¦π / πβ¦π΅ β β |
44 | 26, 43 | nfim 1899 |
. . . . . . . . . . . 12
β’
β²π((π β§ π β π) β β¦π / πβ¦π΅ β β) |
45 | | csbeq1a 3906 |
. . . . . . . . . . . . . 14
β’ (π = π β π΅ = β¦π / πβ¦π΅) |
46 | 45 | eleq1d 2818 |
. . . . . . . . . . . . 13
β’ (π = π β (π΅ β β β β¦π / πβ¦π΅ β β)) |
47 | 32, 46 | imbi12d 344 |
. . . . . . . . . . . 12
β’ (π = π β (((π β§ π β π) β π΅ β β) β ((π β§ π β π) β β¦π / πβ¦π΅ β β))) |
48 | | vonhoire.b |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β π΅ β β) |
49 | 44, 47, 48 | chvarfv 2233 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β β¦π / πβ¦π΅ β β) |
50 | | eqid 2732 |
. . . . . . . . . . . 12
β’ (π β π β¦ π΅) = (π β π β¦ π΅) |
51 | 27, 41, 45, 50 | fvmptf 7016 |
. . . . . . . . . . 11
β’ ((π β π β§ β¦π / πβ¦π΅ β β) β ((π β π β¦ π΅)βπ) = β¦π / πβ¦π΅) |
52 | 24, 49, 51 | syl2anc 584 |
. . . . . . . . . 10
β’ ((π β§ π β π) β ((π β π β¦ π΅)βπ) = β¦π / πβ¦π΅) |
53 | 40, 52 | oveq12d 7423 |
. . . . . . . . 9
β’ ((π β§ π β π) β (((π β π β¦ π΄)βπ)[,)((π β π β¦ π΅)βπ)) = (β¦π / πβ¦π΄[,)β¦π / πβ¦π΅)) |
54 | 53 | ixpeq2dva 8902 |
. . . . . . . 8
β’ (π β Xπ β
π (((π β π β¦ π΄)βπ)[,)((π β π β¦ π΅)βπ)) = Xπ β π (β¦π / πβ¦π΄[,)β¦π / πβ¦π΅)) |
55 | | nfcv 2903 |
. . . . . . . . . . 11
β’
β²π(π΄[,)π΅) |
56 | | nfcv 2903 |
. . . . . . . . . . . 12
β’
β²π[,) |
57 | 28, 56, 41 | nfov 7435 |
. . . . . . . . . . 11
β’
β²π(β¦π / πβ¦π΄[,)β¦π / πβ¦π΅) |
58 | 33, 45 | oveq12d 7423 |
. . . . . . . . . . 11
β’ (π = π β (π΄[,)π΅) = (β¦π / πβ¦π΄[,)β¦π / πβ¦π΅)) |
59 | 55, 57, 58 | cbvixp 8904 |
. . . . . . . . . 10
β’ Xπ β
π (π΄[,)π΅) = Xπ β π (β¦π / πβ¦π΄[,)β¦π / πβ¦π΅) |
60 | 59 | eqcomi 2741 |
. . . . . . . . 9
β’ Xπ β
π (β¦π / πβ¦π΄[,)β¦π / πβ¦π΅) = Xπ β π (π΄[,)π΅) |
61 | 60 | a1i 11 |
. . . . . . . 8
β’ (π β Xπ β
π (β¦π / πβ¦π΄[,)β¦π / πβ¦π΅) = Xπ β π (π΄[,)π΅)) |
62 | 54, 61 | eqtr2d 2773 |
. . . . . . 7
β’ (π β Xπ β
π (π΄[,)π΅) = Xπ β π (((π β π β¦ π΄)βπ)[,)((π β π β¦ π΅)βπ))) |
63 | 62 | fveq2d 6892 |
. . . . . 6
β’ (π β ((volnβπ)βXπ β
π (π΄[,)π΅)) = ((volnβπ)βXπ β π (((π β π β¦ π΄)βπ)[,)((π β π β¦ π΅)βπ)))) |
64 | 63 | adantr 481 |
. . . . 5
β’ ((π β§ π β β
) β ((volnβπ)βXπ β
π (π΄[,)π΅)) = ((volnβπ)βXπ β π (((π β π β¦ π΄)βπ)[,)((π β π β¦ π΅)βπ)))) |
65 | | vonhoire.x |
. . . . . . 7
β’ (π β π β Fin) |
66 | 65 | adantr 481 |
. . . . . 6
β’ ((π β§ π β β
) β π β Fin) |
67 | | simpr 485 |
. . . . . 6
β’ ((π β§ π β β
) β π β β
) |
68 | 6, 36, 38 | fmptdf 7113 |
. . . . . . 7
β’ (π β (π β π β¦ π΄):πβΆβ) |
69 | 68 | adantr 481 |
. . . . . 6
β’ ((π β§ π β β
) β (π β π β¦ π΄):πβΆβ) |
70 | 6, 48, 50 | fmptdf 7113 |
. . . . . . 7
β’ (π β (π β π β¦ π΅):πβΆβ) |
71 | 70 | adantr 481 |
. . . . . 6
β’ ((π β§ π β β
) β (π β π β¦ π΅):πβΆβ) |
72 | | eqid 2732 |
. . . . . 6
β’ Xπ β
π (((π β π β¦ π΄)βπ)[,)((π β π β¦ π΅)βπ)) = Xπ β π (((π β π β¦ π΄)βπ)[,)((π β π β¦ π΅)βπ)) |
73 | 66, 67, 69, 71, 72 | vonn0hoi 45372 |
. . . . 5
β’ ((π β§ π β β
) β ((volnβπ)βXπ β
π (((π β π β¦ π΄)βπ)[,)((π β π β¦ π΅)βπ))) = βπ β π (volβ(((π β π β¦ π΄)βπ)[,)((π β π β¦ π΅)βπ)))) |
74 | 64, 73 | eqtrd 2772 |
. . . 4
β’ ((π β§ π β β
) β ((volnβπ)βXπ β
π (π΄[,)π΅)) = βπ β π (volβ(((π β π β¦ π΄)βπ)[,)((π β π β¦ π΅)βπ)))) |
75 | 40, 37 | eqeltrd 2833 |
. . . . . . 7
β’ ((π β§ π β π) β ((π β π β¦ π΄)βπ) β β) |
76 | 52, 49 | eqeltrd 2833 |
. . . . . . 7
β’ ((π β§ π β π) β ((π β π β¦ π΅)βπ) β β) |
77 | | volicore 45283 |
. . . . . . 7
β’ ((((π β π β¦ π΄)βπ) β β β§ ((π β π β¦ π΅)βπ) β β) β (volβ(((π β π β¦ π΄)βπ)[,)((π β π β¦ π΅)βπ))) β β) |
78 | 75, 76, 77 | syl2anc 584 |
. . . . . 6
β’ ((π β§ π β π) β (volβ(((π β π β¦ π΄)βπ)[,)((π β π β¦ π΅)βπ))) β β) |
79 | 65, 78 | fprodrecl 15893 |
. . . . 5
β’ (π β βπ β π (volβ(((π β π β¦ π΄)βπ)[,)((π β π β¦ π΅)βπ))) β β) |
80 | 79 | adantr 481 |
. . . 4
β’ ((π β§ π β β
) β βπ β π (volβ(((π β π β¦ π΄)βπ)[,)((π β π β¦ π΅)βπ))) β β) |
81 | 74, 80 | eqeltrd 2833 |
. . 3
β’ ((π β§ π β β
) β ((volnβπ)βXπ β
π (π΄[,)π΅)) β β) |
82 | 23, 81 | syldan 591 |
. 2
β’ ((π β§ Β¬ π = β
) β ((volnβπ)βXπ β
π (π΄[,)π΅)) β β) |
83 | 21, 82 | pm2.61dan 811 |
1
β’ (π β ((volnβπ)βXπ β
π (π΄[,)π΅)) β β) |