Step | Hyp | Ref
| Expression |
1 | | rphalfcl 12997 |
. . 3
β’ (π β β+
β (π / 2) β
β+) |
2 | | ftc1anc.g |
. . . 4
β’ πΊ = (π₯ β (π΄[,]π΅) β¦ β«(π΄(,)π₯)(πΉβπ‘) dπ‘) |
3 | | ftc1anc.a |
. . . 4
β’ (π β π΄ β β) |
4 | | ftc1anc.b |
. . . 4
β’ (π β π΅ β β) |
5 | | ftc1anc.le |
. . . 4
β’ (π β π΄ β€ π΅) |
6 | | ftc1anc.s |
. . . 4
β’ (π β (π΄(,)π΅) β π·) |
7 | | ftc1anc.d |
. . . 4
β’ (π β π· β β) |
8 | | ftc1anc.i |
. . . 4
β’ (π β πΉ β
πΏ1) |
9 | | ftc1anc.f |
. . . 4
β’ (π β πΉ:π·βΆβ) |
10 | 2, 3, 4, 5, 6, 7, 8, 9 | ftc1anclem5 36503 |
. . 3
β’ ((π β§ (π / 2) β β+) β
βπ β dom
β«1(β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2)) |
11 | 1, 10 | sylan2 594 |
. 2
β’ ((π β§ π β β+) β
βπ β dom
β«1(β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2)) |
12 | | eqid 2733 |
. . . . 5
β’ (π₯ β (π΄[,]π΅) β¦ β«(π΄(,)π₯)((π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))βπ‘) dπ‘) = (π₯ β (π΄[,]π΅) β¦ β«(π΄(,)π₯)((π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))βπ‘) dπ‘) |
13 | | ax-icn 11165 |
. . . . . . . 8
β’ i β
β |
14 | | ine0 11645 |
. . . . . . . 8
β’ i β
0 |
15 | 13, 14 | reccli 11940 |
. . . . . . 7
β’ (1 / i)
β β |
16 | 15 | a1i 11 |
. . . . . 6
β’ (π β (1 / i) β
β) |
17 | 9 | ffvelcdmda 7082 |
. . . . . 6
β’ ((π β§ π¦ β π·) β (πΉβπ¦) β β) |
18 | 9 | feqmptd 6956 |
. . . . . . 7
β’ (π β πΉ = (π¦ β π· β¦ (πΉβπ¦))) |
19 | 18, 8 | eqeltrrd 2835 |
. . . . . 6
β’ (π β (π¦ β π· β¦ (πΉβπ¦)) β
πΏ1) |
20 | | divrec2 11885 |
. . . . . . . . . 10
β’ (((πΉβπ¦) β β β§ i β β β§
i β 0) β ((πΉβπ¦) / i) = ((1 / i) Β· (πΉβπ¦))) |
21 | 13, 14, 20 | mp3an23 1454 |
. . . . . . . . 9
β’ ((πΉβπ¦) β β β ((πΉβπ¦) / i) = ((1 / i) Β· (πΉβπ¦))) |
22 | 17, 21 | syl 17 |
. . . . . . . 8
β’ ((π β§ π¦ β π·) β ((πΉβπ¦) / i) = ((1 / i) Β· (πΉβπ¦))) |
23 | 22 | mpteq2dva 5247 |
. . . . . . 7
β’ (π β (π¦ β π· β¦ ((πΉβπ¦) / i)) = (π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))) |
24 | | iblmbf 25267 |
. . . . . . . . 9
β’ ((π¦ β π· β¦ (πΉβπ¦)) β πΏ1 β (π¦ β π· β¦ (πΉβπ¦)) β MblFn) |
25 | 19, 24 | syl 17 |
. . . . . . . 8
β’ (π β (π¦ β π· β¦ (πΉβπ¦)) β MblFn) |
26 | | 2fveq3 6893 |
. . . . . . . . . . . . . . . 16
β’ (π¦ = π₯ β (ββ(πΉβπ¦)) = (ββ(πΉβπ₯))) |
27 | 26 | cbvmptv 5260 |
. . . . . . . . . . . . . . 15
β’ (π¦ β π· β¦ (ββ(πΉβπ¦))) = (π₯ β π· β¦ (ββ(πΉβπ₯))) |
28 | 27 | eleq1i 2825 |
. . . . . . . . . . . . . 14
β’ ((π¦ β π· β¦ (ββ(πΉβπ¦))) β MblFn β (π₯ β π· β¦ (ββ(πΉβπ₯))) β MblFn) |
29 | 17 | recld 15137 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π¦ β π·) β (ββ(πΉβπ¦)) β β) |
30 | 29 | recnd 11238 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π¦ β π·) β (ββ(πΉβπ¦)) β β) |
31 | 30 | adantlr 714 |
. . . . . . . . . . . . . . 15
β’ (((π β§ (π₯ β π· β¦ (ββ(πΉβπ₯))) β MblFn) β§ π¦ β π·) β (ββ(πΉβπ¦)) β β) |
32 | 28 | biimpri 227 |
. . . . . . . . . . . . . . . 16
β’ ((π₯ β π· β¦ (ββ(πΉβπ₯))) β MblFn β (π¦ β π· β¦ (ββ(πΉβπ¦))) β MblFn) |
33 | 32 | adantl 483 |
. . . . . . . . . . . . . . 15
β’ ((π β§ (π₯ β π· β¦ (ββ(πΉβπ₯))) β MblFn) β (π¦ β π· β¦ (ββ(πΉβπ¦))) β MblFn) |
34 | 31, 33 | mbfneg 25149 |
. . . . . . . . . . . . . 14
β’ ((π β§ (π₯ β π· β¦ (ββ(πΉβπ₯))) β MblFn) β (π¦ β π· β¦ -(ββ(πΉβπ¦))) β MblFn) |
35 | 28, 34 | sylan2b 595 |
. . . . . . . . . . . . 13
β’ ((π β§ (π¦ β π· β¦ (ββ(πΉβπ¦))) β MblFn) β (π¦ β π· β¦ -(ββ(πΉβπ¦))) β MblFn) |
36 | 9 | ffvelcdmda 7082 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ π₯ β π·) β (πΉβπ₯) β β) |
37 | 36 | recld 15137 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π₯ β π·) β (ββ(πΉβπ₯)) β β) |
38 | 37 | recnd 11238 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π₯ β π·) β (ββ(πΉβπ₯)) β β) |
39 | 38 | negnegd 11558 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π₯ β π·) β --(ββ(πΉβπ₯)) = (ββ(πΉβπ₯))) |
40 | 39 | mpteq2dva 5247 |
. . . . . . . . . . . . . . . 16
β’ (π β (π₯ β π· β¦ --(ββ(πΉβπ₯))) = (π₯ β π· β¦ (ββ(πΉβπ₯)))) |
41 | 40, 27 | eqtr4di 2791 |
. . . . . . . . . . . . . . 15
β’ (π β (π₯ β π· β¦ --(ββ(πΉβπ₯))) = (π¦ β π· β¦ (ββ(πΉβπ¦)))) |
42 | 41 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((π β§ (π¦ β π· β¦ -(ββ(πΉβπ¦))) β MblFn) β (π₯ β π· β¦ --(ββ(πΉβπ₯))) = (π¦ β π· β¦ (ββ(πΉβπ¦)))) |
43 | | negex 11454 |
. . . . . . . . . . . . . . . 16
β’
-(ββ(πΉβπ₯)) β V |
44 | 43 | a1i 11 |
. . . . . . . . . . . . . . 15
β’ (((π β§ (π¦ β π· β¦ -(ββ(πΉβπ¦))) β MblFn) β§ π₯ β π·) β -(ββ(πΉβπ₯)) β V) |
45 | 26 | negeqd 11450 |
. . . . . . . . . . . . . . . . . . 19
β’ (π¦ = π₯ β -(ββ(πΉβπ¦)) = -(ββ(πΉβπ₯))) |
46 | 45 | cbvmptv 5260 |
. . . . . . . . . . . . . . . . . 18
β’ (π¦ β π· β¦ -(ββ(πΉβπ¦))) = (π₯ β π· β¦ -(ββ(πΉβπ₯))) |
47 | 46 | eleq1i 2825 |
. . . . . . . . . . . . . . . . 17
β’ ((π¦ β π· β¦ -(ββ(πΉβπ¦))) β MblFn β (π₯ β π· β¦ -(ββ(πΉβπ₯))) β MblFn) |
48 | 47 | biimpi 215 |
. . . . . . . . . . . . . . . 16
β’ ((π¦ β π· β¦ -(ββ(πΉβπ¦))) β MblFn β (π₯ β π· β¦ -(ββ(πΉβπ₯))) β MblFn) |
49 | 48 | adantl 483 |
. . . . . . . . . . . . . . 15
β’ ((π β§ (π¦ β π· β¦ -(ββ(πΉβπ¦))) β MblFn) β (π₯ β π· β¦ -(ββ(πΉβπ₯))) β MblFn) |
50 | 44, 49 | mbfneg 25149 |
. . . . . . . . . . . . . 14
β’ ((π β§ (π¦ β π· β¦ -(ββ(πΉβπ¦))) β MblFn) β (π₯ β π· β¦ --(ββ(πΉβπ₯))) β MblFn) |
51 | 42, 50 | eqeltrrd 2835 |
. . . . . . . . . . . . 13
β’ ((π β§ (π¦ β π· β¦ -(ββ(πΉβπ¦))) β MblFn) β (π¦ β π· β¦ (ββ(πΉβπ¦))) β MblFn) |
52 | 35, 51 | impbida 800 |
. . . . . . . . . . . 12
β’ (π β ((π¦ β π· β¦ (ββ(πΉβπ¦))) β MblFn β (π¦ β π· β¦ -(ββ(πΉβπ¦))) β MblFn)) |
53 | | divcl 11874 |
. . . . . . . . . . . . . . . . . 18
β’ (((πΉβπ¦) β β β§ i β β β§
i β 0) β ((πΉβπ¦) / i) β β) |
54 | | imre 15051 |
. . . . . . . . . . . . . . . . . 18
β’ (((πΉβπ¦) / i) β β β
(ββ((πΉβπ¦) / i)) = (ββ(-i Β· ((πΉβπ¦) / i)))) |
55 | 53, 54 | syl 17 |
. . . . . . . . . . . . . . . . 17
β’ (((πΉβπ¦) β β β§ i β β β§
i β 0) β (ββ((πΉβπ¦) / i)) = (ββ(-i Β· ((πΉβπ¦) / i)))) |
56 | 13, 14, 55 | mp3an23 1454 |
. . . . . . . . . . . . . . . 16
β’ ((πΉβπ¦) β β β
(ββ((πΉβπ¦) / i)) = (ββ(-i Β· ((πΉβπ¦) / i)))) |
57 | 13, 14, 53 | mp3an23 1454 |
. . . . . . . . . . . . . . . . . . 19
β’ ((πΉβπ¦) β β β ((πΉβπ¦) / i) β β) |
58 | | mulneg1 11646 |
. . . . . . . . . . . . . . . . . . 19
β’ ((i
β β β§ ((πΉβπ¦) / i) β β) β (-i Β·
((πΉβπ¦) / i)) = -(i Β· ((πΉβπ¦) / i))) |
59 | 13, 57, 58 | sylancr 588 |
. . . . . . . . . . . . . . . . . 18
β’ ((πΉβπ¦) β β β (-i Β· ((πΉβπ¦) / i)) = -(i Β· ((πΉβπ¦) / i))) |
60 | | divcan2 11876 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((πΉβπ¦) β β β§ i β β β§
i β 0) β (i Β· ((πΉβπ¦) / i)) = (πΉβπ¦)) |
61 | 13, 14, 60 | mp3an23 1454 |
. . . . . . . . . . . . . . . . . . 19
β’ ((πΉβπ¦) β β β (i Β· ((πΉβπ¦) / i)) = (πΉβπ¦)) |
62 | 61 | negeqd 11450 |
. . . . . . . . . . . . . . . . . 18
β’ ((πΉβπ¦) β β β -(i Β· ((πΉβπ¦) / i)) = -(πΉβπ¦)) |
63 | 59, 62 | eqtrd 2773 |
. . . . . . . . . . . . . . . . 17
β’ ((πΉβπ¦) β β β (-i Β· ((πΉβπ¦) / i)) = -(πΉβπ¦)) |
64 | 63 | fveq2d 6892 |
. . . . . . . . . . . . . . . 16
β’ ((πΉβπ¦) β β β (ββ(-i
Β· ((πΉβπ¦) / i))) = (ββ-(πΉβπ¦))) |
65 | | reneg 15068 |
. . . . . . . . . . . . . . . 16
β’ ((πΉβπ¦) β β β (ββ-(πΉβπ¦)) = -(ββ(πΉβπ¦))) |
66 | 56, 64, 65 | 3eqtrd 2777 |
. . . . . . . . . . . . . . 15
β’ ((πΉβπ¦) β β β
(ββ((πΉβπ¦) / i)) = -(ββ(πΉβπ¦))) |
67 | 17, 66 | syl 17 |
. . . . . . . . . . . . . 14
β’ ((π β§ π¦ β π·) β (ββ((πΉβπ¦) / i)) = -(ββ(πΉβπ¦))) |
68 | 67 | mpteq2dva 5247 |
. . . . . . . . . . . . 13
β’ (π β (π¦ β π· β¦ (ββ((πΉβπ¦) / i))) = (π¦ β π· β¦ -(ββ(πΉβπ¦)))) |
69 | 68 | eleq1d 2819 |
. . . . . . . . . . . 12
β’ (π β ((π¦ β π· β¦ (ββ((πΉβπ¦) / i))) β MblFn β (π¦ β π· β¦ -(ββ(πΉβπ¦))) β MblFn)) |
70 | 52, 69 | bitr4d 282 |
. . . . . . . . . . 11
β’ (π β ((π¦ β π· β¦ (ββ(πΉβπ¦))) β MblFn β (π¦ β π· β¦ (ββ((πΉβπ¦) / i))) β MblFn)) |
71 | | imval 15050 |
. . . . . . . . . . . . . 14
β’ ((πΉβπ¦) β β β (ββ(πΉβπ¦)) = (ββ((πΉβπ¦) / i))) |
72 | 17, 71 | syl 17 |
. . . . . . . . . . . . 13
β’ ((π β§ π¦ β π·) β (ββ(πΉβπ¦)) = (ββ((πΉβπ¦) / i))) |
73 | 72 | mpteq2dva 5247 |
. . . . . . . . . . . 12
β’ (π β (π¦ β π· β¦ (ββ(πΉβπ¦))) = (π¦ β π· β¦ (ββ((πΉβπ¦) / i)))) |
74 | 73 | eleq1d 2819 |
. . . . . . . . . . 11
β’ (π β ((π¦ β π· β¦ (ββ(πΉβπ¦))) β MblFn β (π¦ β π· β¦ (ββ((πΉβπ¦) / i))) β MblFn)) |
75 | 70, 74 | anbi12d 632 |
. . . . . . . . . 10
β’ (π β (((π¦ β π· β¦ (ββ(πΉβπ¦))) β MblFn β§ (π¦ β π· β¦ (ββ(πΉβπ¦))) β MblFn) β ((π¦ β π· β¦ (ββ((πΉβπ¦) / i))) β MblFn β§ (π¦ β π· β¦ (ββ((πΉβπ¦) / i))) β MblFn))) |
76 | | ancom 462 |
. . . . . . . . . 10
β’ (((π¦ β π· β¦ (ββ((πΉβπ¦) / i))) β MblFn β§ (π¦ β π· β¦ (ββ((πΉβπ¦) / i))) β MblFn) β ((π¦ β π· β¦ (ββ((πΉβπ¦) / i))) β MblFn β§ (π¦ β π· β¦ (ββ((πΉβπ¦) / i))) β MblFn)) |
77 | 75, 76 | bitrdi 287 |
. . . . . . . . 9
β’ (π β (((π¦ β π· β¦ (ββ(πΉβπ¦))) β MblFn β§ (π¦ β π· β¦ (ββ(πΉβπ¦))) β MblFn) β ((π¦ β π· β¦ (ββ((πΉβπ¦) / i))) β MblFn β§ (π¦ β π· β¦ (ββ((πΉβπ¦) / i))) β MblFn))) |
78 | 17 | ismbfcn2 25137 |
. . . . . . . . 9
β’ (π β ((π¦ β π· β¦ (πΉβπ¦)) β MblFn β ((π¦ β π· β¦ (ββ(πΉβπ¦))) β MblFn β§ (π¦ β π· β¦ (ββ(πΉβπ¦))) β MblFn))) |
79 | 17, 57 | syl 17 |
. . . . . . . . . 10
β’ ((π β§ π¦ β π·) β ((πΉβπ¦) / i) β β) |
80 | 79 | ismbfcn2 25137 |
. . . . . . . . 9
β’ (π β ((π¦ β π· β¦ ((πΉβπ¦) / i)) β MblFn β ((π¦ β π· β¦ (ββ((πΉβπ¦) / i))) β MblFn β§ (π¦ β π· β¦ (ββ((πΉβπ¦) / i))) β MblFn))) |
81 | 77, 78, 80 | 3bitr4d 311 |
. . . . . . . 8
β’ (π β ((π¦ β π· β¦ (πΉβπ¦)) β MblFn β (π¦ β π· β¦ ((πΉβπ¦) / i)) β MblFn)) |
82 | 25, 81 | mpbid 231 |
. . . . . . 7
β’ (π β (π¦ β π· β¦ ((πΉβπ¦) / i)) β MblFn) |
83 | 23, 82 | eqeltrrd 2835 |
. . . . . 6
β’ (π β (π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦))) β MblFn) |
84 | 16, 17, 19, 83 | iblmulc2nc 36491 |
. . . . 5
β’ (π β (π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦))) β
πΏ1) |
85 | | mulcl 11190 |
. . . . . . 7
β’ (((1 / i)
β β β§ (πΉβπ¦) β β) β ((1 / i) Β·
(πΉβπ¦)) β β) |
86 | 15, 17, 85 | sylancr 588 |
. . . . . 6
β’ ((π β§ π¦ β π·) β ((1 / i) Β· (πΉβπ¦)) β β) |
87 | 86 | fmpttd 7110 |
. . . . 5
β’ (π β (π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦))):π·βΆβ) |
88 | 12, 3, 4, 5, 6, 7, 84, 87 | ftc1anclem5 36503 |
. . . 4
β’ ((π β§ (π / 2) β β+) β
βπ β dom
β«1(β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, ((π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))βπ‘), 0)) β (πβπ‘))))) < (π / 2)) |
89 | 1, 88 | sylan2 594 |
. . 3
β’ ((π β§ π β β+) β
βπ β dom
β«1(β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, ((π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))βπ‘), 0)) β (πβπ‘))))) < (π / 2)) |
90 | 9 | ffvelcdmda 7082 |
. . . . . . . . . . . 12
β’ ((π β§ π‘ β π·) β (πΉβπ‘) β β) |
91 | | 0cnd 11203 |
. . . . . . . . . . . 12
β’ ((π β§ Β¬ π‘ β π·) β 0 β β) |
92 | 90, 91 | ifclda 4562 |
. . . . . . . . . . 11
β’ (π β if(π‘ β π·, (πΉβπ‘), 0) β β) |
93 | | imval 15050 |
. . . . . . . . . . 11
β’ (if(π‘ β π·, (πΉβπ‘), 0) β β β
(ββif(π‘ β
π·, (πΉβπ‘), 0)) = (ββ(if(π‘ β π·, (πΉβπ‘), 0) / i))) |
94 | 92, 93 | syl 17 |
. . . . . . . . . 10
β’ (π β (ββif(π‘ β π·, (πΉβπ‘), 0)) = (ββ(if(π‘ β π·, (πΉβπ‘), 0) / i))) |
95 | | fveq2 6888 |
. . . . . . . . . . . . . . . . 17
β’ (π¦ = π‘ β (πΉβπ¦) = (πΉβπ‘)) |
96 | 95 | oveq2d 7420 |
. . . . . . . . . . . . . . . 16
β’ (π¦ = π‘ β ((1 / i) Β· (πΉβπ¦)) = ((1 / i) Β· (πΉβπ‘))) |
97 | | eqid 2733 |
. . . . . . . . . . . . . . . 16
β’ (π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦))) = (π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦))) |
98 | | ovex 7437 |
. . . . . . . . . . . . . . . 16
β’ ((1 / i)
Β· (πΉβπ‘)) β V |
99 | 96, 97, 98 | fvmpt 6994 |
. . . . . . . . . . . . . . 15
β’ (π‘ β π· β ((π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))βπ‘) = ((1 / i) Β· (πΉβπ‘))) |
100 | 99 | adantl 483 |
. . . . . . . . . . . . . 14
β’ ((π β§ π‘ β π·) β ((π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))βπ‘) = ((1 / i) Β· (πΉβπ‘))) |
101 | | divrec2 11885 |
. . . . . . . . . . . . . . . 16
β’ (((πΉβπ‘) β β β§ i β β β§
i β 0) β ((πΉβπ‘) / i) = ((1 / i) Β· (πΉβπ‘))) |
102 | 13, 14, 101 | mp3an23 1454 |
. . . . . . . . . . . . . . 15
β’ ((πΉβπ‘) β β β ((πΉβπ‘) / i) = ((1 / i) Β· (πΉβπ‘))) |
103 | 90, 102 | syl 17 |
. . . . . . . . . . . . . 14
β’ ((π β§ π‘ β π·) β ((πΉβπ‘) / i) = ((1 / i) Β· (πΉβπ‘))) |
104 | 100, 103 | eqtr4d 2776 |
. . . . . . . . . . . . 13
β’ ((π β§ π‘ β π·) β ((π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))βπ‘) = ((πΉβπ‘) / i)) |
105 | 104 | ifeq1da 4558 |
. . . . . . . . . . . 12
β’ (π β if(π‘ β π·, ((π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))βπ‘), 0) = if(π‘ β π·, ((πΉβπ‘) / i), 0)) |
106 | | ovif 7501 |
. . . . . . . . . . . . 13
β’ (if(π‘ β π·, (πΉβπ‘), 0) / i) = if(π‘ β π·, ((πΉβπ‘) / i), (0 / i)) |
107 | 13, 14 | div0i 11944 |
. . . . . . . . . . . . . 14
β’ (0 / i) =
0 |
108 | | ifeq2 4532 |
. . . . . . . . . . . . . 14
β’ ((0 / i)
= 0 β if(π‘ β
π·, ((πΉβπ‘) / i), (0 / i)) = if(π‘ β π·, ((πΉβπ‘) / i), 0)) |
109 | 107, 108 | ax-mp 5 |
. . . . . . . . . . . . 13
β’ if(π‘ β π·, ((πΉβπ‘) / i), (0 / i)) = if(π‘ β π·, ((πΉβπ‘) / i), 0) |
110 | 106, 109 | eqtri 2761 |
. . . . . . . . . . . 12
β’ (if(π‘ β π·, (πΉβπ‘), 0) / i) = if(π‘ β π·, ((πΉβπ‘) / i), 0) |
111 | 105, 110 | eqtr4di 2791 |
. . . . . . . . . . 11
β’ (π β if(π‘ β π·, ((π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))βπ‘), 0) = (if(π‘ β π·, (πΉβπ‘), 0) / i)) |
112 | 111 | fveq2d 6892 |
. . . . . . . . . 10
β’ (π β (ββif(π‘ β π·, ((π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))βπ‘), 0)) = (ββ(if(π‘ β π·, (πΉβπ‘), 0) / i))) |
113 | 94, 112 | eqtr4d 2776 |
. . . . . . . . 9
β’ (π β (ββif(π‘ β π·, (πΉβπ‘), 0)) = (ββif(π‘ β π·, ((π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))βπ‘), 0))) |
114 | 113 | fvoveq1d 7426 |
. . . . . . . 8
β’ (π β
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) = (absβ((ββif(π‘ β π·, ((π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))βπ‘), 0)) β (πβπ‘)))) |
115 | 114 | mpteq2dv 5249 |
. . . . . . 7
β’ (π β (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) = (π‘ β β β¦
(absβ((ββif(π‘ β π·, ((π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))βπ‘), 0)) β (πβπ‘))))) |
116 | 115 | fveq2d 6892 |
. . . . . 6
β’ (π β
(β«2β(π‘
β β β¦ (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) = (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, ((π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))βπ‘), 0)) β (πβπ‘)))))) |
117 | 116 | breq1d 5157 |
. . . . 5
β’ (π β
((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2) β (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, ((π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))βπ‘), 0)) β (πβπ‘))))) < (π / 2))) |
118 | 117 | rexbidv 3179 |
. . . 4
β’ (π β (βπ β dom
β«1(β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2) β βπ β dom
β«1(β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, ((π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))βπ‘), 0)) β (πβπ‘))))) < (π / 2))) |
119 | 118 | adantr 482 |
. . 3
β’ ((π β§ π β β+) β
(βπ β dom
β«1(β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2) β βπ β dom
β«1(β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, ((π¦ β π· β¦ ((1 / i) Β· (πΉβπ¦)))βπ‘), 0)) β (πβπ‘))))) < (π / 2))) |
120 | 89, 119 | mpbird 257 |
. 2
β’ ((π β§ π β β+) β
βπ β dom
β«1(β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2)) |
121 | | reeanv 3227 |
. . 3
β’
(βπ β dom
β«1βπ
β dom β«1((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2) β§ (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2)) β (βπ β dom
β«1(β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2) β§ βπ β dom
β«1(β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2))) |
122 | | eleq1w 2817 |
. . . . . . . . . . . . . . . 16
β’ (π₯ = π‘ β (π₯ β π· β π‘ β π·)) |
123 | | fveq2 6888 |
. . . . . . . . . . . . . . . 16
β’ (π₯ = π‘ β (πΉβπ₯) = (πΉβπ‘)) |
124 | 122, 123 | ifbieq1d 4551 |
. . . . . . . . . . . . . . 15
β’ (π₯ = π‘ β if(π₯ β π·, (πΉβπ₯), 0) = if(π‘ β π·, (πΉβπ‘), 0)) |
125 | 124 | fveq2d 6892 |
. . . . . . . . . . . . . 14
β’ (π₯ = π‘ β (ββif(π₯ β π·, (πΉβπ₯), 0)) = (ββif(π‘ β π·, (πΉβπ‘), 0))) |
126 | | eqid 2733 |
. . . . . . . . . . . . . 14
β’ (π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0))) = (π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0))) |
127 | | fvex 6901 |
. . . . . . . . . . . . . 14
β’
(ββif(π‘
β π·, (πΉβπ‘), 0)) β V |
128 | 125, 126,
127 | fvmpt 6994 |
. . . . . . . . . . . . 13
β’ (π‘ β β β ((π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0)))βπ‘) = (ββif(π‘ β π·, (πΉβπ‘), 0))) |
129 | 128 | fvoveq1d 7426 |
. . . . . . . . . . . 12
β’ (π‘ β β β
(absβ(((π₯ β
β β¦ (ββif(π₯ β π·, (πΉβπ₯), 0)))βπ‘) β (πβπ‘))) = (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) |
130 | 129 | mpteq2ia 5250 |
. . . . . . . . . . 11
β’ (π‘ β β β¦
(absβ(((π₯ β
β β¦ (ββif(π₯ β π·, (πΉβπ₯), 0)))βπ‘) β (πβπ‘)))) = (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) |
131 | 130 | fveq2i 6891 |
. . . . . . . . . 10
β’
(β«2β(π‘ β β β¦ (absβ(((π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0)))βπ‘) β (πβπ‘))))) = (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) |
132 | | rembl 25039 |
. . . . . . . . . . . . . . . . 17
β’ β
β dom vol |
133 | 132 | a1i 11 |
. . . . . . . . . . . . . . . 16
β’ (π β β β dom
vol) |
134 | | 0cnd 11203 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ Β¬ π₯ β π·) β 0 β β) |
135 | 36, 134 | ifclda 4562 |
. . . . . . . . . . . . . . . . 17
β’ (π β if(π₯ β π·, (πΉβπ₯), 0) β β) |
136 | 135 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π₯ β π·) β if(π₯ β π·, (πΉβπ₯), 0) β β) |
137 | | eldifn 4126 |
. . . . . . . . . . . . . . . . . 18
β’ (π₯ β (β β π·) β Β¬ π₯ β π·) |
138 | 137 | adantl 483 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π₯ β (β β π·)) β Β¬ π₯ β π·) |
139 | 138 | iffalsed 4538 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π₯ β (β β π·)) β if(π₯ β π·, (πΉβπ₯), 0) = 0) |
140 | 9 | feqmptd 6956 |
. . . . . . . . . . . . . . . . . 18
β’ (π β πΉ = (π₯ β π· β¦ (πΉβπ₯))) |
141 | | iftrue 4533 |
. . . . . . . . . . . . . . . . . . 19
β’ (π₯ β π· β if(π₯ β π·, (πΉβπ₯), 0) = (πΉβπ₯)) |
142 | 141 | mpteq2ia 5250 |
. . . . . . . . . . . . . . . . . 18
β’ (π₯ β π· β¦ if(π₯ β π·, (πΉβπ₯), 0)) = (π₯ β π· β¦ (πΉβπ₯)) |
143 | 140, 142 | eqtr4di 2791 |
. . . . . . . . . . . . . . . . 17
β’ (π β πΉ = (π₯ β π· β¦ if(π₯ β π·, (πΉβπ₯), 0))) |
144 | 143, 8 | eqeltrrd 2835 |
. . . . . . . . . . . . . . . 16
β’ (π β (π₯ β π· β¦ if(π₯ β π·, (πΉβπ₯), 0)) β
πΏ1) |
145 | 7, 133, 136, 139, 144 | iblss2 25305 |
. . . . . . . . . . . . . . 15
β’ (π β (π₯ β β β¦ if(π₯ β π·, (πΉβπ₯), 0)) β
πΏ1) |
146 | 135 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π₯ β β) β if(π₯ β π·, (πΉβπ₯), 0) β β) |
147 | 146 | iblcn 25298 |
. . . . . . . . . . . . . . 15
β’ (π β ((π₯ β β β¦ if(π₯ β π·, (πΉβπ₯), 0)) β πΏ1 β
((π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0))) β πΏ1 β§
(π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0))) β
πΏ1))) |
148 | 145, 147 | mpbid 231 |
. . . . . . . . . . . . . 14
β’ (π β ((π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0))) β πΏ1 β§
(π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0))) β
πΏ1)) |
149 | 148 | simpld 496 |
. . . . . . . . . . . . 13
β’ (π β (π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0))) β
πΏ1) |
150 | 146 | recld 15137 |
. . . . . . . . . . . . . 14
β’ ((π β§ π₯ β β) β
(ββif(π₯ β
π·, (πΉβπ₯), 0)) β β) |
151 | 150 | fmpttd 7110 |
. . . . . . . . . . . . 13
β’ (π β (π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯),
0))):ββΆβ) |
152 | 149, 151 | jca 513 |
. . . . . . . . . . . 12
β’ (π β ((π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0))) β πΏ1 β§
(π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯),
0))):ββΆβ)) |
153 | | ftc1anclem4 36502 |
. . . . . . . . . . . . 13
β’ ((π β dom β«1
β§ (π₯ β β
β¦ (ββif(π₯
β π·, (πΉβπ₯), 0))) β πΏ1 β§
(π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0))):ββΆβ) β
(β«2β(π‘
β β β¦ (absβ(((π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0)))βπ‘) β (πβπ‘))))) β β) |
154 | 153 | 3expb 1121 |
. . . . . . . . . . . 12
β’ ((π β dom β«1
β§ ((π₯ β β
β¦ (ββif(π₯
β π·, (πΉβπ₯), 0))) β πΏ1 β§
(π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0))):ββΆβ)) β
(β«2β(π‘
β β β¦ (absβ(((π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0)))βπ‘) β (πβπ‘))))) β β) |
155 | 152, 154 | sylan2 594 |
. . . . . . . . . . 11
β’ ((π β dom β«1
β§ π) β
(β«2β(π‘
β β β¦ (absβ(((π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0)))βπ‘) β (πβπ‘))))) β β) |
156 | 155 | ancoms 460 |
. . . . . . . . . 10
β’ ((π β§ π β dom β«1) β
(β«2β(π‘
β β β¦ (absβ(((π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0)))βπ‘) β (πβπ‘))))) β β) |
157 | 131, 156 | eqeltrrid 2839 |
. . . . . . . . 9
β’ ((π β§ π β dom β«1) β
(β«2β(π‘
β β β¦ (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β β) |
158 | 124 | fveq2d 6892 |
. . . . . . . . . . . . . 14
β’ (π₯ = π‘ β (ββif(π₯ β π·, (πΉβπ₯), 0)) = (ββif(π‘ β π·, (πΉβπ‘), 0))) |
159 | | eqid 2733 |
. . . . . . . . . . . . . 14
β’ (π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0))) = (π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0))) |
160 | | fvex 6901 |
. . . . . . . . . . . . . 14
β’
(ββif(π‘
β π·, (πΉβπ‘), 0)) β V |
161 | 158, 159,
160 | fvmpt 6994 |
. . . . . . . . . . . . 13
β’ (π‘ β β β ((π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0)))βπ‘) = (ββif(π‘ β π·, (πΉβπ‘), 0))) |
162 | 161 | fvoveq1d 7426 |
. . . . . . . . . . . 12
β’ (π‘ β β β
(absβ(((π₯ β
β β¦ (ββif(π₯ β π·, (πΉβπ₯), 0)))βπ‘) β (πβπ‘))) = (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) |
163 | 162 | mpteq2ia 5250 |
. . . . . . . . . . 11
β’ (π‘ β β β¦
(absβ(((π₯ β
β β¦ (ββif(π₯ β π·, (πΉβπ₯), 0)))βπ‘) β (πβπ‘)))) = (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) |
164 | 163 | fveq2i 6891 |
. . . . . . . . . 10
β’
(β«2β(π‘ β β β¦ (absβ(((π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0)))βπ‘) β (πβπ‘))))) = (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) |
165 | 148 | simprd 497 |
. . . . . . . . . . . . 13
β’ (π β (π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0))) β
πΏ1) |
166 | 135 | imcld 15138 |
. . . . . . . . . . . . . . 15
β’ (π β (ββif(π₯ β π·, (πΉβπ₯), 0)) β β) |
167 | 166 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((π β§ π₯ β β) β
(ββif(π₯ β
π·, (πΉβπ₯), 0)) β β) |
168 | 167 | fmpttd 7110 |
. . . . . . . . . . . . 13
β’ (π β (π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯),
0))):ββΆβ) |
169 | 165, 168 | jca 513 |
. . . . . . . . . . . 12
β’ (π β ((π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0))) β πΏ1 β§
(π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯),
0))):ββΆβ)) |
170 | | ftc1anclem4 36502 |
. . . . . . . . . . . . 13
β’ ((π β dom β«1
β§ (π₯ β β
β¦ (ββif(π₯
β π·, (πΉβπ₯), 0))) β πΏ1 β§
(π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0))):ββΆβ) β
(β«2β(π‘
β β β¦ (absβ(((π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0)))βπ‘) β (πβπ‘))))) β β) |
171 | 170 | 3expb 1121 |
. . . . . . . . . . . 12
β’ ((π β dom β«1
β§ ((π₯ β β
β¦ (ββif(π₯
β π·, (πΉβπ₯), 0))) β πΏ1 β§
(π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0))):ββΆβ)) β
(β«2β(π‘
β β β¦ (absβ(((π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0)))βπ‘) β (πβπ‘))))) β β) |
172 | 169, 171 | sylan2 594 |
. . . . . . . . . . 11
β’ ((π β dom β«1
β§ π) β
(β«2β(π‘
β β β¦ (absβ(((π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0)))βπ‘) β (πβπ‘))))) β β) |
173 | 172 | ancoms 460 |
. . . . . . . . . 10
β’ ((π β§ π β dom β«1) β
(β«2β(π‘
β β β¦ (absβ(((π₯ β β β¦
(ββif(π₯ β
π·, (πΉβπ₯), 0)))βπ‘) β (πβπ‘))))) β β) |
174 | 164, 173 | eqeltrrid 2839 |
. . . . . . . . 9
β’ ((π β§ π β dom β«1) β
(β«2β(π‘
β β β¦ (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β β) |
175 | 157, 174 | anim12dan 620 |
. . . . . . . 8
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β ((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β β β§
(β«2β(π‘
β β β¦ (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β β)) |
176 | 1 | rpred 13012 |
. . . . . . . . 9
β’ (π β β+
β (π / 2) β
β) |
177 | 176, 176 | jca 513 |
. . . . . . . 8
β’ (π β β+
β ((π / 2) β
β β§ (π / 2)
β β)) |
178 | | lt2add 11695 |
. . . . . . . 8
β’
((((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β β β§
(β«2β(π‘
β β β¦ (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β β) β§ ((π / 2) β β β§
(π / 2) β β))
β (((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2) β§ (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2)) β
((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) + (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) < ((π / 2) + (π / 2)))) |
179 | 175, 177,
178 | syl2an 597 |
. . . . . . 7
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π β
β+) β (((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2) β§ (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2)) β
((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) + (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) < ((π / 2) + (π / 2)))) |
180 | 179 | an32s 651 |
. . . . . 6
β’ (((π β§ π β β+) β§ (π β dom β«1
β§ π β dom
β«1)) β (((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2) β§ (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2)) β
((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) + (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) < ((π / 2) + (π / 2)))) |
181 | 92 | recld 15137 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (ββif(π‘ β π·, (πΉβπ‘), 0)) β β) |
182 | 181 | recnd 11238 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (ββif(π‘ β π·, (πΉβπ‘), 0)) β β) |
183 | | i1ff 25175 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β dom β«1
β π:ββΆβ) |
184 | 183 | ffvelcdmda 7082 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β dom β«1
β§ π‘ β β)
β (πβπ‘) β
β) |
185 | 184 | recnd 11238 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β dom β«1
β§ π‘ β β)
β (πβπ‘) β
β) |
186 | | subcl 11455 |
. . . . . . . . . . . . . . . . . 18
β’
(((ββif(π‘
β π·, (πΉβπ‘), 0)) β β β§ (πβπ‘) β β) β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β β) |
187 | 182, 185,
186 | syl2an 597 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ (π β dom β«1 β§ π‘ β β)) β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β β) |
188 | 187 | anassrs 469 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β dom β«1) β§ π‘ β β) β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β β) |
189 | 188 | adantlrr 720 |
. . . . . . . . . . . . . . 15
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β ((ββif(π‘
β π·, (πΉβπ‘), 0)) β (πβπ‘)) β β) |
190 | 92 | imcld 15138 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (ββif(π‘ β π·, (πΉβπ‘), 0)) β β) |
191 | 190 | recnd 11238 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (ββif(π‘ β π·, (πΉβπ‘), 0)) β β) |
192 | | i1ff 25175 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β dom β«1
β π:ββΆβ) |
193 | 192 | ffvelcdmda 7082 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β dom β«1
β§ π‘ β β)
β (πβπ‘) β
β) |
194 | 193 | recnd 11238 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β dom β«1
β§ π‘ β β)
β (πβπ‘) β
β) |
195 | | subcl 11455 |
. . . . . . . . . . . . . . . . . . 19
β’
(((ββif(π‘ β π·, (πΉβπ‘), 0)) β β β§ (πβπ‘) β β) β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β β) |
196 | 191, 194,
195 | syl2an 597 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ (π β dom β«1 β§ π‘ β β)) β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β β) |
197 | 196 | anassrs 469 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β dom β«1) β§ π‘ β β) β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β β) |
198 | | mulcl 11190 |
. . . . . . . . . . . . . . . . 17
β’ ((i
β β β§ ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) β β) β (i Β·
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β β) |
199 | 13, 197, 198 | sylancr 588 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β dom β«1) β§ π‘ β β) β (i
Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) β β) |
200 | 199 | adantlrl 719 |
. . . . . . . . . . . . . . 15
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) β β) |
201 | 189, 200 | addcld 11229 |
. . . . . . . . . . . . . 14
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β (((ββif(π‘
β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) β β) |
202 | 201 | abscld 15379 |
. . . . . . . . . . . . 13
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β (absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β β) |
203 | 202 | rexrd 11260 |
. . . . . . . . . . . 12
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β (absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β
β*) |
204 | 201 | absge0d 15387 |
. . . . . . . . . . . 12
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β 0 β€ (absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) |
205 | | elxrge0 13430 |
. . . . . . . . . . . 12
β’
((absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β (0[,]+β) β
((absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β β* β§ 0 β€
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) |
206 | 203, 204,
205 | sylanbrc 584 |
. . . . . . . . . . 11
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β (absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β (0[,]+β)) |
207 | 206 | fmpttd 7110 |
. . . . . . . . . 10
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β (π‘ β β
β¦ (absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))):ββΆ(0[,]+β)) |
208 | | icossicc 13409 |
. . . . . . . . . . . . 13
β’
(0[,)+β) β (0[,]+β) |
209 | | ge0addcl 13433 |
. . . . . . . . . . . . 13
β’ ((π₯ β (0[,)+β) β§
π¦ β (0[,)+β))
β (π₯ + π¦) β
(0[,)+β)) |
210 | 208, 209 | sselid 3979 |
. . . . . . . . . . . 12
β’ ((π₯ β (0[,)+β) β§
π¦ β (0[,)+β))
β (π₯ + π¦) β
(0[,]+β)) |
211 | 210 | adantl 483 |
. . . . . . . . . . 11
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ (π₯ β
(0[,)+β) β§ π¦
β (0[,)+β))) β (π₯ + π¦) β (0[,]+β)) |
212 | 188 | abscld 15379 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β dom β«1) β§ π‘ β β) β
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) β β) |
213 | 188 | absge0d 15387 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β dom β«1) β§ π‘ β β) β 0 β€
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) |
214 | | elrege0 13427 |
. . . . . . . . . . . . . 14
β’
((absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) β (0[,)+β) β
((absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) β β β§ 0 β€
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) |
215 | 212, 213,
214 | sylanbrc 584 |
. . . . . . . . . . . . 13
β’ (((π β§ π β dom β«1) β§ π‘ β β) β
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) β (0[,)+β)) |
216 | 215 | fmpttd 7110 |
. . . . . . . . . . . 12
β’ ((π β§ π β dom β«1) β (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))):ββΆ(0[,)+β)) |
217 | 216 | adantrr 716 |
. . . . . . . . . . 11
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β (π‘ β β
β¦ (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))):ββΆ(0[,)+β)) |
218 | 197 | abscld 15379 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β dom β«1) β§ π‘ β β) β
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) β β) |
219 | 197 | absge0d 15387 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β dom β«1) β§ π‘ β β) β 0 β€
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) |
220 | | elrege0 13427 |
. . . . . . . . . . . . . 14
β’
((absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) β (0[,)+β) β
((absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) β β β§ 0 β€
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) |
221 | 218, 219,
220 | sylanbrc 584 |
. . . . . . . . . . . . 13
β’ (((π β§ π β dom β«1) β§ π‘ β β) β
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) β (0[,)+β)) |
222 | 221 | fmpttd 7110 |
. . . . . . . . . . . 12
β’ ((π β§ π β dom β«1) β (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))):ββΆ(0[,)+β)) |
223 | 222 | adantrl 715 |
. . . . . . . . . . 11
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β (π‘ β β
β¦ (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))):ββΆ(0[,)+β)) |
224 | | reex 11197 |
. . . . . . . . . . . 12
β’ β
β V |
225 | 224 | a1i 11 |
. . . . . . . . . . 11
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β β β V) |
226 | | inidm 4217 |
. . . . . . . . . . 11
β’ (β
β© β) = β |
227 | 211, 217,
223, 225, 225, 226 | off 7683 |
. . . . . . . . . 10
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β ((π‘ β β
β¦ (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) βf + (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))):ββΆ(0[,]+β)) |
228 | 189, 200 | abstrid 15399 |
. . . . . . . . . . . 12
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β (absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β€
((absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) + (absβ(i Β·
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)))))) |
229 | 228 | ralrimiva 3147 |
. . . . . . . . . . 11
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β βπ‘ β
β (absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β€
((absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) + (absβ(i Β·
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)))))) |
230 | | ovexd 7439 |
. . . . . . . . . . . 12
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β ((absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) + (absβ(i Β·
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))))) β V) |
231 | | eqidd 2734 |
. . . . . . . . . . . 12
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β (π‘ β β
β¦ (absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) = (π‘ β β β¦
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) |
232 | | fvexd 6903 |
. . . . . . . . . . . . 13
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) β V) |
233 | | fvexd 6903 |
. . . . . . . . . . . . 13
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β (absβ(i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) β V) |
234 | | eqidd 2734 |
. . . . . . . . . . . . 13
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β (π‘ β β
β¦ (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) = (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) |
235 | | absmul 15237 |
. . . . . . . . . . . . . . . . 17
β’ ((i
β β β§ ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) β β) β (absβ(i
Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) = ((absβi) Β·
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) |
236 | 13, 197, 235 | sylancr 588 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β dom β«1) β§ π‘ β β) β
(absβ(i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) = ((absβi) Β·
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) |
237 | | absi 15229 |
. . . . . . . . . . . . . . . . . 18
β’
(absβi) = 1 |
238 | 237 | oveq1i 7414 |
. . . . . . . . . . . . . . . . 17
β’
((absβi) Β· (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) = (1 Β·
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) |
239 | 218 | recnd 11238 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β dom β«1) β§ π‘ β β) β
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) β β) |
240 | 239 | mullidd 11228 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β dom β«1) β§ π‘ β β) β (1
Β· (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) = (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) |
241 | 238, 240 | eqtrid 2785 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β dom β«1) β§ π‘ β β) β
((absβi) Β· (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) = (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) |
242 | 236, 241 | eqtr2d 2774 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β dom β«1) β§ π‘ β β) β
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) = (absβ(i Β·
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))))) |
243 | 242 | mpteq2dva 5247 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β dom β«1) β (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) = (π‘ β β β¦ (absβ(i
Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) |
244 | 243 | adantrl 715 |
. . . . . . . . . . . . 13
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β (π‘ β β
β¦ (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) = (π‘ β β β¦ (absβ(i
Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) |
245 | 225, 232,
233, 234, 244 | offval2 7685 |
. . . . . . . . . . . 12
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β ((π‘ β β
β¦ (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) βf + (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) = (π‘ β β β¦
((absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) + (absβ(i Β·
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))))))) |
246 | 225, 202,
230, 231, 245 | ofrfval2 7686 |
. . . . . . . . . . 11
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β ((π‘ β β
β¦ (absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) βr β€ ((π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) βf + (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β βπ‘ β β
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β€
((absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) + (absβ(i Β·
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))))))) |
247 | 229, 246 | mpbird 257 |
. . . . . . . . . 10
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β (π‘ β β
β¦ (absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) βr β€ ((π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) βf + (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) |
248 | | itg2le 25239 |
. . . . . . . . . 10
β’ (((π‘ β β β¦
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))):ββΆ(0[,]+β) β§
((π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) βf + (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))):ββΆ(0[,]+β) β§
(π‘ β β β¦
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) βr β€ ((π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) βf + (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) β (β«2β(π‘ β β β¦
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) β€ (β«2β((π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) βf + (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) |
249 | 207, 227,
247, 248 | syl3anc 1372 |
. . . . . . . . 9
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β (β«2β(π‘ β β β¦
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) β€ (β«2β((π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) βf + (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) |
250 | | absf 15280 |
. . . . . . . . . . . . . 14
β’
abs:ββΆβ |
251 | 250 | a1i 11 |
. . . . . . . . . . . . 13
β’ ((π β§ π β dom β«1) β
abs:ββΆβ) |
252 | 251, 188 | cofmpt 7125 |
. . . . . . . . . . . 12
β’ ((π β§ π β dom β«1) β (abs
β (π‘ β β
β¦ ((ββif(π‘
β π·, (πΉβπ‘), 0)) β (πβπ‘)))) = (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) |
253 | | resubcl 11520 |
. . . . . . . . . . . . . . . 16
β’
(((ββif(π‘
β π·, (πΉβπ‘), 0)) β β β§ (πβπ‘) β β) β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β β) |
254 | 181, 184,
253 | syl2an 597 |
. . . . . . . . . . . . . . 15
β’ ((π β§ (π β dom β«1 β§ π‘ β β)) β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β β) |
255 | 254 | anassrs 469 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β dom β«1) β§ π‘ β β) β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β β) |
256 | 255 | fmpttd 7110 |
. . . . . . . . . . . . 13
β’ ((π β§ π β dom β«1) β (π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))):ββΆβ) |
257 | 132 | a1i 11 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β dom β«1) β β
β dom vol) |
258 | | iunin2 5073 |
. . . . . . . . . . . . . . . . . . 19
β’ βͺ π¦ β ran π((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© (β‘π β {π¦})) = ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© βͺ π¦ β ran π(β‘π β {π¦})) |
259 | | imaiun 7239 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (β‘π β βͺ
π¦ β ran π{π¦}) = βͺ
π¦ β ran π(β‘π β {π¦}) |
260 | | iunid 5062 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ βͺ π¦ β ran π{π¦} = ran π |
261 | 260 | imaeq2i 6055 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (β‘π β βͺ
π¦ β ran π{π¦}) = (β‘π β ran π) |
262 | 259, 261 | eqtr3i 2763 |
. . . . . . . . . . . . . . . . . . . 20
β’ βͺ π¦ β ran π(β‘π β {π¦}) = (β‘π β ran π) |
263 | 262 | ineq2i 4208 |
. . . . . . . . . . . . . . . . . . 19
β’ ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© βͺ π¦ β ran π(β‘π β {π¦})) = ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© (β‘π β ran π)) |
264 | 258, 263 | eqtri 2761 |
. . . . . . . . . . . . . . . . . 18
β’ βͺ π¦ β ran π((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© (β‘π β {π¦})) = ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© (β‘π β ran π)) |
265 | | cnvimass 6077 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β dom (π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) |
266 | | ovex 7437 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((ββif(π‘
β π·, (πΉβπ‘), 0)) β (πβπ‘)) β V |
267 | | eqid 2733 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) = (π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) |
268 | 266, 267 | dmmpti 6691 |
. . . . . . . . . . . . . . . . . . . . 21
β’ dom
(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) = β |
269 | 265, 268 | sseqtri 4017 |
. . . . . . . . . . . . . . . . . . . 20
β’ (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β
β |
270 | | cnvimarndm 6078 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (β‘π β ran π) = dom π |
271 | 183 | fdmd 6725 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β dom β«1
β dom π =
β) |
272 | 270, 271 | eqtrid 2785 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β dom β«1
β (β‘π β ran π) = β) |
273 | 269, 272 | sseqtrrid 4034 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β dom β«1
β (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β (β‘π β ran π)) |
274 | | df-ss 3964 |
. . . . . . . . . . . . . . . . . . 19
β’ ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β (β‘π β ran π) β ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© (β‘π β ran π)) = (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β))) |
275 | 273, 274 | sylib 217 |
. . . . . . . . . . . . . . . . . 18
β’ (π β dom β«1
β ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© (β‘π β ran π)) = (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β))) |
276 | 264, 275 | eqtrid 2785 |
. . . . . . . . . . . . . . . . 17
β’ (π β dom β«1
β βͺ π¦ β ran π((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© (β‘π β {π¦})) = (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β))) |
277 | 276 | ad2antlr 726 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β dom β«1) β§ π₯ β β) β βͺ π¦ β ran π((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© (β‘π β {π¦})) = (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β))) |
278 | 183 | frnd 6722 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β dom β«1
β ran π β
β) |
279 | 278 | ad2antlr 726 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π β dom β«1) β§ π₯ β β) β ran
π β
β) |
280 | 279 | sselda 3981 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β dom β«1) β§ π₯ β β) β§ π¦ β ran π) β π¦ β β) |
281 | 181 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π₯ β β) β§ π¦ β β) β
(ββif(π‘ β
π·, (πΉβπ‘), 0)) β β) |
282 | | resubcl 11520 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’
(((ββif(π‘
β π·, (πΉβπ‘), 0)) β β β§ π¦ β β) β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β π¦) β β) |
283 | 181, 282 | sylan 581 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((π β§ π¦ β β) β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β π¦) β β) |
284 | 283 | adantlr 714 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π₯ β β) β§ π¦ β β) β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β π¦) β β) |
285 | 281, 284 | 2thd 265 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ π₯ β β) β§ π¦ β β) β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β β β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β π¦) β β)) |
286 | | ltaddsub 11684 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ ((π₯ β β β§ π¦ β β β§
(ββif(π‘ β
π·, (πΉβπ‘), 0)) β β) β ((π₯ + π¦) < (ββif(π‘ β π·, (πΉβπ‘), 0)) β π₯ < ((ββif(π‘ β π·, (πΉβπ‘), 0)) β π¦))) |
287 | 181, 286 | syl3an3 1166 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((π₯ β β β§ π¦ β β β§ π) β ((π₯ + π¦) < (ββif(π‘ β π·, (πΉβπ‘), 0)) β π₯ < ((ββif(π‘ β π·, (πΉβπ‘), 0)) β π¦))) |
288 | 287 | 3comr 1126 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((π β§ π₯ β β β§ π¦ β β) β ((π₯ + π¦) < (ββif(π‘ β π·, (πΉβπ‘), 0)) β π₯ < ((ββif(π‘ β π·, (πΉβπ‘), 0)) β π¦))) |
289 | 288 | 3expa 1119 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ π₯ β β) β§ π¦ β β) β ((π₯ + π¦) < (ββif(π‘ β π·, (πΉβπ‘), 0)) β π₯ < ((ββif(π‘ β π·, (πΉβπ‘), 0)) β π¦))) |
290 | 285, 289 | anbi12d 632 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ π₯ β β) β§ π¦ β β) β
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β β β§ (π₯ + π¦) < (ββif(π‘ β π·, (πΉβπ‘), 0))) β (((ββif(π‘ β π·, (πΉβπ‘), 0)) β π¦) β β β§ π₯ < ((ββif(π‘ β π·, (πΉβπ‘), 0)) β π¦)))) |
291 | | readdcl 11189 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((π₯ β β β§ π¦ β β) β (π₯ + π¦) β β) |
292 | 291 | rexrd 11260 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((π₯ β β β§ π¦ β β) β (π₯ + π¦) β
β*) |
293 | 292 | adantll 713 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ π₯ β β) β§ π¦ β β) β (π₯ + π¦) β
β*) |
294 | | elioopnf 13416 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((π₯ + π¦) β β* β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β ((π₯ + π¦)(,)+β) β ((ββif(π‘ β π·, (πΉβπ‘), 0)) β β β§ (π₯ + π¦) < (ββif(π‘ β π·, (πΉβπ‘), 0))))) |
295 | 293, 294 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ π₯ β β) β§ π¦ β β) β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β ((π₯ + π¦)(,)+β) β ((ββif(π‘ β π·, (πΉβπ‘), 0)) β β β§ (π₯ + π¦) < (ββif(π‘ β π·, (πΉβπ‘), 0))))) |
296 | | rexr 11256 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (π₯ β β β π₯ β
β*) |
297 | 296 | ad2antlr 726 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ π₯ β β) β§ π¦ β β) β π₯ β β*) |
298 | | elioopnf 13416 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π₯ β β*
β (((ββif(π‘
β π·, (πΉβπ‘), 0)) β π¦) β (π₯(,)+β) β (((ββif(π‘ β π·, (πΉβπ‘), 0)) β π¦) β β β§ π₯ < ((ββif(π‘ β π·, (πΉβπ‘), 0)) β π¦)))) |
299 | 297, 298 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ π₯ β β) β§ π¦ β β) β
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β π¦) β (π₯(,)+β) β (((ββif(π‘ β π·, (πΉβπ‘), 0)) β π¦) β β β§ π₯ < ((ββif(π‘ β π·, (πΉβπ‘), 0)) β π¦)))) |
300 | 290, 295,
299 | 3bitr4rd 312 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π₯ β β) β§ π¦ β β) β
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β π¦) β (π₯(,)+β) β (ββif(π‘ β π·, (πΉβπ‘), 0)) β ((π₯ + π¦)(,)+β))) |
301 | | oveq2 7412 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((πβπ‘) = π¦ β ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) = ((ββif(π‘ β π·, (πΉβπ‘), 0)) β π¦)) |
302 | 301 | eleq1d 2819 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((πβπ‘) = π¦ β (((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) β (π₯(,)+β) β ((ββif(π‘ β π·, (πΉβπ‘), 0)) β π¦) β (π₯(,)+β))) |
303 | 302 | bibi1d 344 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((πβπ‘) = π¦ β ((((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) β (π₯(,)+β) β (ββif(π‘ β π·, (πΉβπ‘), 0)) β ((π₯ + π¦)(,)+β)) β
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β π¦) β (π₯(,)+β) β (ββif(π‘ β π·, (πΉβπ‘), 0)) β ((π₯ + π¦)(,)+β)))) |
304 | 300, 303 | syl5ibrcom 246 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π₯ β β) β§ π¦ β β) β ((πβπ‘) = π¦ β (((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) β (π₯(,)+β) β (ββif(π‘ β π·, (πΉβπ‘), 0)) β ((π₯ + π¦)(,)+β)))) |
305 | 304 | pm5.32rd 579 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π₯ β β) β§ π¦ β β) β
((((ββif(π‘
β π·, (πΉβπ‘), 0)) β (πβπ‘)) β (π₯(,)+β) β§ (πβπ‘) = π¦) β ((ββif(π‘ β π·, (πΉβπ‘), 0)) β ((π₯ + π¦)(,)+β) β§ (πβπ‘) = π¦))) |
306 | 305 | adantllr 718 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β dom β«1) β§ π₯ β β) β§ π¦ β β) β
((((ββif(π‘
β π·, (πΉβπ‘), 0)) β (πβπ‘)) β (π₯(,)+β) β§ (πβπ‘) = π¦) β ((ββif(π‘ β π·, (πΉβπ‘), 0)) β ((π₯ + π¦)(,)+β) β§ (πβπ‘) = π¦))) |
307 | 280, 306 | syldan 592 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β dom β«1) β§ π₯ β β) β§ π¦ β ran π) β ((((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) β (π₯(,)+β) β§ (πβπ‘) = π¦) β ((ββif(π‘ β π·, (πΉβπ‘), 0)) β ((π₯ + π¦)(,)+β) β§ (πβπ‘) = π¦))) |
308 | 307 | rabbidv 3441 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β dom β«1) β§ π₯ β β) β§ π¦ β ran π) β {π‘ β β β£
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β (π₯(,)+β) β§ (πβπ‘) = π¦)} = {π‘ β β β£
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β ((π₯ + π¦)(,)+β) β§ (πβπ‘) = π¦)}) |
309 | 183 | feqmptd 6956 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π β dom β«1
β π = (π‘ β β β¦ (πβπ‘))) |
310 | 309 | cnveqd 5873 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β dom β«1
β β‘π = β‘(π‘ β β β¦ (πβπ‘))) |
311 | 310 | imaeq1d 6056 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β dom β«1
β (β‘π β {π¦}) = (β‘(π‘ β β β¦ (πβπ‘)) β {π¦})) |
312 | 311 | ineq2d 4211 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β dom β«1
β ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© (β‘π β {π¦})) = ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© (β‘(π‘ β β β¦ (πβπ‘)) β {π¦}))) |
313 | 267 | mptpreima 6234 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) = {π‘ β β β£
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β (π₯(,)+β)} |
314 | | vex 3479 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ π¦ β V |
315 | | eqid 2733 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π‘ β β β¦ (πβπ‘)) = (π‘ β β β¦ (πβπ‘)) |
316 | 315 | mptiniseg 6235 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π¦ β V β (β‘(π‘ β β β¦ (πβπ‘)) β {π¦}) = {π‘ β β β£ (πβπ‘) = π¦}) |
317 | 314, 316 | ax-mp 5 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (β‘(π‘ β β β¦ (πβπ‘)) β {π¦}) = {π‘ β β β£ (πβπ‘) = π¦} |
318 | 313, 317 | ineq12i 4209 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© (β‘(π‘ β β β¦ (πβπ‘)) β {π¦})) = ({π‘ β β β£
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β (π₯(,)+β)} β© {π‘ β β β£ (πβπ‘) = π¦}) |
319 | | inrab 4305 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ({π‘ β β β£
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β (π₯(,)+β)} β© {π‘ β β β£ (πβπ‘) = π¦}) = {π‘ β β β£
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β (π₯(,)+β) β§ (πβπ‘) = π¦)} |
320 | 318, 319 | eqtri 2761 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© (β‘(π‘ β β β¦ (πβπ‘)) β {π¦})) = {π‘ β β β£
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β (π₯(,)+β) β§ (πβπ‘) = π¦)} |
321 | 312, 320 | eqtrdi 2789 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β dom β«1
β ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© (β‘π β {π¦})) = {π‘ β β β£
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β (π₯(,)+β) β§ (πβπ‘) = π¦)}) |
322 | 321 | ad3antlr 730 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β dom β«1) β§ π₯ β β) β§ π¦ β ran π) β ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© (β‘π β {π¦})) = {π‘ β β β£
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β (π₯(,)+β) β§ (πβπ‘) = π¦)}) |
323 | 311 | ineq2d 4211 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β dom β«1
β ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β© (β‘π β {π¦})) = ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β© (β‘(π‘ β β β¦ (πβπ‘)) β {π¦}))) |
324 | | eqid 2733 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) = (π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) |
325 | 324 | mptpreima 6234 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) = {π‘ β β β£
(ββif(π‘ β
π·, (πΉβπ‘), 0)) β ((π₯ + π¦)(,)+β)} |
326 | 325, 317 | ineq12i 4209 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β© (β‘(π‘ β β β¦ (πβπ‘)) β {π¦})) = ({π‘ β β β£
(ββif(π‘ β
π·, (πΉβπ‘), 0)) β ((π₯ + π¦)(,)+β)} β© {π‘ β β β£ (πβπ‘) = π¦}) |
327 | | inrab 4305 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ({π‘ β β β£
(ββif(π‘ β
π·, (πΉβπ‘), 0)) β ((π₯ + π¦)(,)+β)} β© {π‘ β β β£ (πβπ‘) = π¦}) = {π‘ β β β£
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β ((π₯ + π¦)(,)+β) β§ (πβπ‘) = π¦)} |
328 | 326, 327 | eqtri 2761 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β© (β‘(π‘ β β β¦ (πβπ‘)) β {π¦})) = {π‘ β β β£
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β ((π₯ + π¦)(,)+β) β§ (πβπ‘) = π¦)} |
329 | 323, 328 | eqtrdi 2789 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β dom β«1
β ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β© (β‘π β {π¦})) = {π‘ β β β£
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β ((π₯ + π¦)(,)+β) β§ (πβπ‘) = π¦)}) |
330 | 329 | ad3antlr 730 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β dom β«1) β§ π₯ β β) β§ π¦ β ran π) β ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β© (β‘π β {π¦})) = {π‘ β β β£
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β ((π₯ + π¦)(,)+β) β§ (πβπ‘) = π¦)}) |
331 | 308, 322,
330 | 3eqtr4d 2783 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ π β dom β«1) β§ π₯ β β) β§ π¦ β ran π) β ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© (β‘π β {π¦})) = ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β© (β‘π β {π¦}))) |
332 | 331 | iuneq2dv 5020 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β dom β«1) β§ π₯ β β) β βͺ π¦ β ran π((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β© (β‘π β {π¦})) = βͺ
π¦ β ran π((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β© (β‘π β {π¦}))) |
333 | 277, 332 | eqtr3d 2775 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β dom β«1) β§ π₯ β β) β (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) = βͺ π¦ β ran π((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β© (β‘π β {π¦}))) |
334 | | i1frn 25176 |
. . . . . . . . . . . . . . . . . 18
β’ (π β dom β«1
β ran π β
Fin) |
335 | 334 | adantl 483 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β dom β«1) β ran
π β
Fin) |
336 | 92 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π‘ β π·) β if(π‘ β π·, (πΉβπ‘), 0) β β) |
337 | | eldifn 4126 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π‘ β (β β π·) β Β¬ π‘ β π·) |
338 | 337 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ π‘ β (β β π·)) β Β¬ π‘ β π·) |
339 | 338 | iffalsed 4538 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π‘ β (β β π·)) β if(π‘ β π·, (πΉβπ‘), 0) = 0) |
340 | 9 | feqmptd 6956 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π β πΉ = (π‘ β π· β¦ (πΉβπ‘))) |
341 | | iftrue 4533 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (π‘ β π· β if(π‘ β π·, (πΉβπ‘), 0) = (πΉβπ‘)) |
342 | 341 | mpteq2ia 5250 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π‘ β π· β¦ if(π‘ β π·, (πΉβπ‘), 0)) = (π‘ β π· β¦ (πΉβπ‘)) |
343 | 340, 342 | eqtr4di 2791 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π β πΉ = (π‘ β π· β¦ if(π‘ β π·, (πΉβπ‘), 0))) |
344 | | iblmbf 25267 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (πΉ β πΏ1
β πΉ β
MblFn) |
345 | 8, 344 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π β πΉ β MblFn) |
346 | 343, 345 | eqeltrrd 2835 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π β (π‘ β π· β¦ if(π‘ β π·, (πΉβπ‘), 0)) β MblFn) |
347 | 7, 133, 336, 339, 346 | mbfss 25145 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β (π‘ β β β¦ if(π‘ β π·, (πΉβπ‘), 0)) β MblFn) |
348 | 92 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ π‘ β β) β if(π‘ β π·, (πΉβπ‘), 0) β β) |
349 | 348 | ismbfcn2 25137 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β ((π‘ β β β¦ if(π‘ β π·, (πΉβπ‘), 0)) β MblFn β ((π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β MblFn β§ (π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β MblFn))) |
350 | 347, 349 | mpbid 231 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β ((π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β MblFn β§ (π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β MblFn)) |
351 | 350 | simpld 496 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β MblFn) |
352 | 181 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ π‘ β β) β
(ββif(π‘ β
π·, (πΉβπ‘), 0)) β β) |
353 | 352 | fmpttd 7110 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘),
0))):ββΆβ) |
354 | | mbfima 25129 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β MblFn β§ (π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))):ββΆβ) β (β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β dom
vol) |
355 | 351, 353,
354 | syl2anc 585 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β dom
vol) |
356 | | i1fima 25177 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β dom β«1
β (β‘π β {π¦}) β dom vol) |
357 | | inmbl 25041 |
. . . . . . . . . . . . . . . . . . 19
β’ (((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β dom vol β§ (β‘π β {π¦}) β dom vol) β ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β© (β‘π β {π¦})) β dom vol) |
358 | 355, 356,
357 | syl2an 597 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β dom β«1) β ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β© (β‘π β {π¦})) β dom vol) |
359 | 358 | ralrimivw 3151 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β dom β«1) β
βπ¦ β ran π((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β© (β‘π β {π¦})) β dom vol) |
360 | | finiunmbl 25043 |
. . . . . . . . . . . . . . . . 17
β’ ((ran
π β Fin β§
βπ¦ β ran π((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β© (β‘π β {π¦})) β dom vol) β βͺ π¦ β ran π((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β© (β‘π β {π¦})) β dom vol) |
361 | 335, 359,
360 | syl2anc 585 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β dom β«1) β
βͺ π¦ β ran π((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β© (β‘π β {π¦})) β dom vol) |
362 | 361 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β dom β«1) β§ π₯ β β) β βͺ π¦ β ran π((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β ((π₯ + π¦)(,)+β)) β© (β‘π β {π¦})) β dom vol) |
363 | 333, 362 | eqeltrd 2834 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β dom β«1) β§ π₯ β β) β (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (π₯(,)+β)) β dom
vol) |
364 | | iunin2 5073 |
. . . . . . . . . . . . . . . . . . 19
β’ βͺ π¦ β ran π((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© (β‘π β {π¦})) = ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© βͺ
π¦ β ran π(β‘π β {π¦})) |
365 | 262 | ineq2i 4208 |
. . . . . . . . . . . . . . . . . . 19
β’ ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© βͺ
π¦ β ran π(β‘π β {π¦})) = ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© (β‘π β ran π)) |
366 | 364, 365 | eqtri 2761 |
. . . . . . . . . . . . . . . . . 18
β’ βͺ π¦ β ran π((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© (β‘π β {π¦})) = ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© (β‘π β ran π)) |
367 | | cnvimass 6077 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β dom (π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) |
368 | 367, 268 | sseqtri 4017 |
. . . . . . . . . . . . . . . . . . . 20
β’ (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β β |
369 | 368, 272 | sseqtrrid 4034 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β dom β«1
β (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β (β‘π β ran π)) |
370 | | df-ss 3964 |
. . . . . . . . . . . . . . . . . . 19
β’ ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β (β‘π β ran π) β ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© (β‘π β ran π)) = (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯))) |
371 | 369, 370 | sylib 217 |
. . . . . . . . . . . . . . . . . 18
β’ (π β dom β«1
β ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© (β‘π β ran π)) = (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯))) |
372 | 366, 371 | eqtrid 2785 |
. . . . . . . . . . . . . . . . 17
β’ (π β dom β«1
β βͺ π¦ β ran π((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© (β‘π β {π¦})) = (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯))) |
373 | 372 | ad2antlr 726 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β dom β«1) β§ π₯ β β) β βͺ π¦ β ran π((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© (β‘π β {π¦})) = (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯))) |
374 | 284, 281 | 2thd 265 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ π₯ β β) β§ π¦ β β) β
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β π¦) β β β
(ββif(π‘ β
π·, (πΉβπ‘), 0)) β β)) |
375 | | ltsubadd 11680 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’
(((ββif(π‘
β π·, (πΉβπ‘), 0)) β β β§ π¦ β β β§ π₯ β β) β
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β π¦) < π₯ β (ββif(π‘ β π·, (πΉβπ‘), 0)) < (π₯ + π¦))) |
376 | 181, 375 | syl3an1 1164 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ((π β§ π¦ β β β§ π₯ β β) β
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β π¦) < π₯ β (ββif(π‘ β π·, (πΉβπ‘), 0)) < (π₯ + π¦))) |
377 | 376 | 3expa 1119 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ π¦ β β) β§ π₯ β β) β
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β π¦) < π₯ β (ββif(π‘ β π·, (πΉβπ‘), 0)) < (π₯ + π¦))) |
378 | 377 | an32s 651 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ π₯ β β) β§ π¦ β β) β
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β π¦) < π₯ β (ββif(π‘ β π·, (πΉβπ‘), 0)) < (π₯ + π¦))) |
379 | 374, 378 | anbi12d 632 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ π₯ β β) β§ π¦ β β) β
((((ββif(π‘
β π·, (πΉβπ‘), 0)) β π¦) β β β§
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β π¦) < π₯) β ((ββif(π‘ β π·, (πΉβπ‘), 0)) β β β§
(ββif(π‘ β
π·, (πΉβπ‘), 0)) < (π₯ + π¦)))) |
380 | | elioomnf 13417 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π₯ β β*
β (((ββif(π‘
β π·, (πΉβπ‘), 0)) β π¦) β (-β(,)π₯) β (((ββif(π‘ β π·, (πΉβπ‘), 0)) β π¦) β β β§
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β π¦) < π₯))) |
381 | 297, 380 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ π₯ β β) β§ π¦ β β) β
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β π¦) β (-β(,)π₯) β (((ββif(π‘ β π·, (πΉβπ‘), 0)) β π¦) β β β§
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β π¦) < π₯))) |
382 | | elioomnf 13417 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((π₯ + π¦) β β* β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (-β(,)(π₯ + π¦)) β ((ββif(π‘ β π·, (πΉβπ‘), 0)) β β β§
(ββif(π‘ β
π·, (πΉβπ‘), 0)) < (π₯ + π¦)))) |
383 | 293, 382 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ π₯ β β) β§ π¦ β β) β
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (-β(,)(π₯ + π¦)) β ((ββif(π‘ β π·, (πΉβπ‘), 0)) β β β§
(ββif(π‘ β
π·, (πΉβπ‘), 0)) < (π₯ + π¦)))) |
384 | 379, 381,
383 | 3bitr4d 311 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ π₯ β β) β§ π¦ β β) β
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β π¦) β (-β(,)π₯) β (ββif(π‘ β π·, (πΉβπ‘), 0)) β (-β(,)(π₯ + π¦)))) |
385 | 301 | eleq1d 2819 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((πβπ‘) = π¦ β (((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) β (-β(,)π₯) β ((ββif(π‘ β π·, (πΉβπ‘), 0)) β π¦) β (-β(,)π₯))) |
386 | 385 | bibi1d 344 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((πβπ‘) = π¦ β ((((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) β (-β(,)π₯) β (ββif(π‘ β π·, (πΉβπ‘), 0)) β (-β(,)(π₯ + π¦))) β (((ββif(π‘ β π·, (πΉβπ‘), 0)) β π¦) β (-β(,)π₯) β (ββif(π‘ β π·, (πΉβπ‘), 0)) β (-β(,)(π₯ + π¦))))) |
387 | 384, 386 | syl5ibrcom 246 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ π₯ β β) β§ π¦ β β) β ((πβπ‘) = π¦ β (((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) β (-β(,)π₯) β (ββif(π‘ β π·, (πΉβπ‘), 0)) β (-β(,)(π₯ + π¦))))) |
388 | 387 | pm5.32rd 579 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ π₯ β β) β§ π¦ β β) β
((((ββif(π‘
β π·, (πΉβπ‘), 0)) β (πβπ‘)) β (-β(,)π₯) β§ (πβπ‘) = π¦) β ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (-β(,)(π₯ + π¦)) β§ (πβπ‘) = π¦))) |
389 | 388 | adantllr 718 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((((π β§ π β dom β«1) β§ π₯ β β) β§ π¦ β β) β
((((ββif(π‘
β π·, (πΉβπ‘), 0)) β (πβπ‘)) β (-β(,)π₯) β§ (πβπ‘) = π¦) β ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (-β(,)(π₯ + π¦)) β§ (πβπ‘) = π¦))) |
390 | 280, 389 | syldan 592 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((π β§ π β dom β«1) β§ π₯ β β) β§ π¦ β ran π) β ((((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) β (-β(,)π₯) β§ (πβπ‘) = π¦) β ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (-β(,)(π₯ + π¦)) β§ (πβπ‘) = π¦))) |
391 | 390 | rabbidv 3441 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β dom β«1) β§ π₯ β β) β§ π¦ β ran π) β {π‘ β β β£
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β (-β(,)π₯) β§ (πβπ‘) = π¦)} = {π‘ β β β£
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (-β(,)(π₯ + π¦)) β§ (πβπ‘) = π¦)}) |
392 | 311 | ineq2d 4211 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β dom β«1
β ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© (β‘π β {π¦})) = ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© (β‘(π‘ β β β¦ (πβπ‘)) β {π¦}))) |
393 | 267 | mptpreima 6234 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) = {π‘ β β β£
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β (-β(,)π₯)} |
394 | 393, 317 | ineq12i 4209 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© (β‘(π‘ β β β¦ (πβπ‘)) β {π¦})) = ({π‘ β β β£
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β (-β(,)π₯)} β© {π‘ β β β£ (πβπ‘) = π¦}) |
395 | | inrab 4305 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ({π‘ β β β£
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β (-β(,)π₯)} β© {π‘ β β β£ (πβπ‘) = π¦}) = {π‘ β β β£
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β (-β(,)π₯) β§ (πβπ‘) = π¦)} |
396 | 394, 395 | eqtri 2761 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© (β‘(π‘ β β β¦ (πβπ‘)) β {π¦})) = {π‘ β β β£
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β (-β(,)π₯) β§ (πβπ‘) = π¦)} |
397 | 392, 396 | eqtrdi 2789 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β dom β«1
β ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© (β‘π β {π¦})) = {π‘ β β β£
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β (-β(,)π₯) β§ (πβπ‘) = π¦)}) |
398 | 397 | ad3antlr 730 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β dom β«1) β§ π₯ β β) β§ π¦ β ran π) β ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© (β‘π β {π¦})) = {π‘ β β β£
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)) β (-β(,)π₯) β§ (πβπ‘) = π¦)}) |
399 | 311 | ineq2d 4211 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β dom β«1
β ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β© (β‘π β {π¦})) = ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β© (β‘(π‘ β β β¦ (πβπ‘)) β {π¦}))) |
400 | 324 | mptpreima 6234 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) = {π‘ β β β£
(ββif(π‘ β
π·, (πΉβπ‘), 0)) β (-β(,)(π₯ + π¦))} |
401 | 400, 317 | ineq12i 4209 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β© (β‘(π‘ β β β¦ (πβπ‘)) β {π¦})) = ({π‘ β β β£
(ββif(π‘ β
π·, (πΉβπ‘), 0)) β (-β(,)(π₯ + π¦))} β© {π‘ β β β£ (πβπ‘) = π¦}) |
402 | | inrab 4305 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ({π‘ β β β£
(ββif(π‘ β
π·, (πΉβπ‘), 0)) β (-β(,)(π₯ + π¦))} β© {π‘ β β β£ (πβπ‘) = π¦}) = {π‘ β β β£
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (-β(,)(π₯ + π¦)) β§ (πβπ‘) = π¦)} |
403 | 401, 402 | eqtri 2761 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β© (β‘(π‘ β β β¦ (πβπ‘)) β {π¦})) = {π‘ β β β£
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (-β(,)(π₯ + π¦)) β§ (πβπ‘) = π¦)} |
404 | 399, 403 | eqtrdi 2789 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β dom β«1
β ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β© (β‘π β {π¦})) = {π‘ β β β£
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (-β(,)(π₯ + π¦)) β§ (πβπ‘) = π¦)}) |
405 | 404 | ad3antlr 730 |
. . . . . . . . . . . . . . . . . 18
β’ ((((π β§ π β dom β«1) β§ π₯ β β) β§ π¦ β ran π) β ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β© (β‘π β {π¦})) = {π‘ β β β£
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (-β(,)(π₯ + π¦)) β§ (πβπ‘) = π¦)}) |
406 | 391, 398,
405 | 3eqtr4d 2783 |
. . . . . . . . . . . . . . . . 17
β’ ((((π β§ π β dom β«1) β§ π₯ β β) β§ π¦ β ran π) β ((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© (β‘π β {π¦})) = ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β© (β‘π β {π¦}))) |
407 | 406 | iuneq2dv 5020 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β dom β«1) β§ π₯ β β) β βͺ π¦ β ran π((β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β© (β‘π β {π¦})) = βͺ
π¦ β ran π((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β© (β‘π β {π¦}))) |
408 | 373, 407 | eqtr3d 2775 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β dom β«1) β§ π₯ β β) β (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) = βͺ
π¦ β ran π((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β© (β‘π β {π¦}))) |
409 | | mbfima 25129 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β MblFn β§ (π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))):ββΆβ) β (β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β dom vol) |
410 | 351, 353,
409 | syl2anc 585 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β dom vol) |
411 | | inmbl 25041 |
. . . . . . . . . . . . . . . . . . 19
β’ (((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β dom vol β§ (β‘π β {π¦}) β dom vol) β ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β© (β‘π β {π¦})) β dom vol) |
412 | 410, 356,
411 | syl2an 597 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π β dom β«1) β ((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β© (β‘π β {π¦})) β dom vol) |
413 | 412 | ralrimivw 3151 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β dom β«1) β
βπ¦ β ran π((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β© (β‘π β {π¦})) β dom vol) |
414 | | finiunmbl 25043 |
. . . . . . . . . . . . . . . . 17
β’ ((ran
π β Fin β§
βπ¦ β ran π((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β© (β‘π β {π¦})) β dom vol) β βͺ π¦ β ran π((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β© (β‘π β {π¦})) β dom vol) |
415 | 335, 413,
414 | syl2anc 585 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β dom β«1) β
βͺ π¦ β ran π((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β© (β‘π β {π¦})) β dom vol) |
416 | 415 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β dom β«1) β§ π₯ β β) β βͺ π¦ β ran π((β‘(π‘ β β β¦
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β (-β(,)(π₯ + π¦))) β© (β‘π β {π¦})) β dom vol) |
417 | 408, 416 | eqeltrd 2834 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β dom β«1) β§ π₯ β β) β (β‘(π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β (-β(,)π₯)) β dom vol) |
418 | 256, 257,
363, 417 | ismbf2d 25139 |
. . . . . . . . . . . . 13
β’ ((π β§ π β dom β«1) β (π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β MblFn) |
419 | | ftc1anclem1 36499 |
. . . . . . . . . . . . 13
β’ (((π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))):ββΆβ β§ (π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) β MblFn) β (abs β (π‘ β β β¦
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘)))) β MblFn) |
420 | 256, 418,
419 | syl2anc 585 |
. . . . . . . . . . . 12
β’ ((π β§ π β dom β«1) β (abs
β (π‘ β β
β¦ ((ββif(π‘
β π·, (πΉβπ‘), 0)) β (πβπ‘)))) β MblFn) |
421 | 252, 420 | eqeltrrd 2835 |
. . . . . . . . . . 11
β’ ((π β§ π β dom β«1) β (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) β MblFn) |
422 | 421 | adantrr 716 |
. . . . . . . . . 10
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β (π‘ β β
β¦ (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) β MblFn) |
423 | 157 | adantrr 716 |
. . . . . . . . . 10
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β β) |
424 | 174 | adantrl 715 |
. . . . . . . . . 10
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β β) |
425 | 422, 217,
423, 223, 424 | itg2addnc 36480 |
. . . . . . . . 9
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β (β«2β((π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) βf + (π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) = ((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) + (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) |
426 | 249, 425 | breqtrd 5173 |
. . . . . . . 8
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β (β«2β(π‘ β β β¦
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) β€ ((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) + (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) |
427 | 426 | adantlr 714 |
. . . . . . 7
β’ (((π β§ π β β+) β§ (π β dom β«1
β§ π β dom
β«1)) β (β«2β(π‘ β β β¦
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) β€ ((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) + (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) |
428 | | itg2cl 25232 |
. . . . . . . . . 10
β’ ((π‘ β β β¦
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))):ββΆ(0[,]+β) β
(β«2β(π‘
β β β¦ (absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) β
β*) |
429 | 207, 428 | syl 17 |
. . . . . . . . 9
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β (β«2β(π‘ β β β¦
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) β
β*) |
430 | 429 | adantlr 714 |
. . . . . . . 8
β’ (((π β§ π β β+) β§ (π β dom β«1
β§ π β dom
β«1)) β (β«2β(π‘ β β β¦
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) β
β*) |
431 | | readdcl 11189 |
. . . . . . . . . . . 12
β’
(((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β β β§
(β«2β(π‘
β β β¦ (absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) β β) β
((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) + (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) β β) |
432 | 157, 174,
431 | syl2an 597 |
. . . . . . . . . . 11
β’ (((π β§ π β dom β«1) β§ (π β§ π β dom β«1)) β
((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) + (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) β β) |
433 | 432 | anandis 677 |
. . . . . . . . . 10
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β ((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) + (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) β β) |
434 | 433 | rexrd 11260 |
. . . . . . . . 9
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β ((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) + (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) β
β*) |
435 | 434 | adantlr 714 |
. . . . . . . 8
β’ (((π β§ π β β+) β§ (π β dom β«1
β§ π β dom
β«1)) β ((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) + (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) β
β*) |
436 | 1, 1 | rpaddcld 13027 |
. . . . . . . . . 10
β’ (π β β+
β ((π / 2) + (π / 2)) β
β+) |
437 | 436 | rpxrd 13013 |
. . . . . . . . 9
β’ (π β β+
β ((π / 2) + (π / 2)) β
β*) |
438 | 437 | ad2antlr 726 |
. . . . . . . 8
β’ (((π β§ π β β+) β§ (π β dom β«1
β§ π β dom
β«1)) β ((π / 2) + (π / 2)) β
β*) |
439 | | xrlelttr 13131 |
. . . . . . . 8
β’
(((β«2β(π‘ β β β¦
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) β β* β§
((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) + (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) β β* β§
((π / 2) + (π / 2)) β
β*) β (((β«2β(π‘ β β β¦
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) β€ ((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) + (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) β§ ((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) + (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) < ((π / 2) + (π / 2))) β
(β«2β(π‘
β β β¦ (absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) < ((π / 2) + (π / 2)))) |
440 | 430, 435,
438, 439 | syl3anc 1372 |
. . . . . . 7
β’ (((π β§ π β β+) β§ (π β dom β«1
β§ π β dom
β«1)) β (((β«2β(π‘ β β β¦
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) β€ ((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) + (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) β§ ((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) + (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) < ((π / 2) + (π / 2))) β
(β«2β(π‘
β β β¦ (absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) < ((π / 2) + (π / 2)))) |
441 | 427, 440 | mpand 694 |
. . . . . 6
β’ (((π β§ π β β+) β§ (π β dom β«1
β§ π β dom
β«1)) β (((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) + (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) < ((π / 2) + (π / 2)) β
(β«2β(π‘
β β β¦ (absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) < ((π / 2) + (π / 2)))) |
442 | 180, 441 | syld 47 |
. . . . 5
β’ (((π β§ π β β+) β§ (π β dom β«1
β§ π β dom
β«1)) β (((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2) β§ (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2)) β
(β«2β(π‘
β β β¦ (absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) < ((π / 2) + (π / 2)))) |
443 | | mulcl 11190 |
. . . . . . . . . . . . . . 15
β’ ((i
β β β§ (ββif(π‘ β π·, (πΉβπ‘), 0)) β β) β (i Β·
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β β) |
444 | 13, 191, 443 | sylancr 588 |
. . . . . . . . . . . . . 14
β’ (π β (i Β·
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β β) |
445 | 182, 444 | jca 513 |
. . . . . . . . . . . . 13
β’ (π β ((ββif(π‘ β π·, (πΉβπ‘), 0)) β β β§ (i Β·
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β β)) |
446 | | mulcl 11190 |
. . . . . . . . . . . . . . . 16
β’ ((i
β β β§ (πβπ‘) β β) β (i Β· (πβπ‘)) β β) |
447 | 13, 194, 446 | sylancr 588 |
. . . . . . . . . . . . . . 15
β’ ((π β dom β«1
β§ π‘ β β)
β (i Β· (πβπ‘)) β β) |
448 | 185, 447 | anim12i 614 |
. . . . . . . . . . . . . 14
β’ (((π β dom β«1
β§ π‘ β β)
β§ (π β dom
β«1 β§ π‘
β β)) β ((πβπ‘) β β β§ (i Β· (πβπ‘)) β β)) |
449 | 448 | anandirs 678 |
. . . . . . . . . . . . 13
β’ (((π β dom β«1
β§ π β dom
β«1) β§ π‘
β β) β ((πβπ‘) β β β§ (i Β· (πβπ‘)) β β)) |
450 | | addsub4 11499 |
. . . . . . . . . . . . 13
β’
((((ββif(π‘ β π·, (πΉβπ‘), 0)) β β β§ (i Β·
(ββif(π‘ β
π·, (πΉβπ‘), 0))) β β) β§ ((πβπ‘) β β β§ (i Β· (πβπ‘)) β β)) β
(((ββif(π‘ β
π·, (πΉβπ‘), 0)) + (i Β· (ββif(π‘ β π·, (πΉβπ‘), 0)))) β ((πβπ‘) + (i Β· (πβπ‘)))) = (((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + ((i Β· (ββif(π‘ β π·, (πΉβπ‘), 0))) β (i Β· (πβπ‘))))) |
451 | 445, 449,
450 | syl2an 597 |
. . . . . . . . . . . 12
β’ ((π β§ ((π β dom β«1 β§ π β dom β«1)
β§ π‘ β β))
β (((ββif(π‘
β π·, (πΉβπ‘), 0)) + (i Β· (ββif(π‘ β π·, (πΉβπ‘), 0)))) β ((πβπ‘) + (i Β· (πβπ‘)))) = (((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + ((i Β· (ββif(π‘ β π·, (πΉβπ‘), 0))) β (i Β· (πβπ‘))))) |
452 | 451 | anassrs 469 |
. . . . . . . . . . 11
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β (((ββif(π‘
β π·, (πΉβπ‘), 0)) + (i Β· (ββif(π‘ β π·, (πΉβπ‘), 0)))) β ((πβπ‘) + (i Β· (πβπ‘)))) = (((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + ((i Β· (ββif(π‘ β π·, (πΉβπ‘), 0))) β (i Β· (πβπ‘))))) |
453 | 92 | replimd 15140 |
. . . . . . . . . . . . 13
β’ (π β if(π‘ β π·, (πΉβπ‘), 0) = ((ββif(π‘ β π·, (πΉβπ‘), 0)) + (i Β· (ββif(π‘ β π·, (πΉβπ‘), 0))))) |
454 | 453 | ad2antrr 725 |
. . . . . . . . . . . 12
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β if(π‘ β π·, (πΉβπ‘), 0) = ((ββif(π‘ β π·, (πΉβπ‘), 0)) + (i Β· (ββif(π‘ β π·, (πΉβπ‘), 0))))) |
455 | 454 | oveq1d 7419 |
. . . . . . . . . . 11
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β (if(π‘ β π·, (πΉβπ‘), 0) β ((πβπ‘) + (i Β· (πβπ‘)))) = (((ββif(π‘ β π·, (πΉβπ‘), 0)) + (i Β· (ββif(π‘ β π·, (πΉβπ‘), 0)))) β ((πβπ‘) + (i Β· (πβπ‘))))) |
456 | 194 | adantll 713 |
. . . . . . . . . . . . . 14
β’ (((π β dom β«1
β§ π β dom
β«1) β§ π‘
β β) β (πβπ‘) β β) |
457 | | subdi 11643 |
. . . . . . . . . . . . . 14
β’ ((i
β β β§ (ββif(π‘ β π·, (πΉβπ‘), 0)) β β β§ (πβπ‘) β β) β (i Β·
((ββif(π‘ β
π·, (πΉβπ‘), 0)) β (πβπ‘))) = ((i Β· (ββif(π‘ β π·, (πΉβπ‘), 0))) β (i Β· (πβπ‘)))) |
458 | 13, 191, 456, 457 | mp3an3an 1468 |
. . . . . . . . . . . . 13
β’ ((π β§ ((π β dom β«1 β§ π β dom β«1)
β§ π‘ β β))
β (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) = ((i Β· (ββif(π‘ β π·, (πΉβπ‘), 0))) β (i Β· (πβπ‘)))) |
459 | 458 | anassrs 469 |
. . . . . . . . . . . 12
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))) = ((i Β· (ββif(π‘ β π·, (πΉβπ‘), 0))) β (i Β· (πβπ‘)))) |
460 | 459 | oveq2d 7420 |
. . . . . . . . . . 11
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β (((ββif(π‘
β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) = (((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + ((i Β· (ββif(π‘ β π·, (πΉβπ‘), 0))) β (i Β· (πβπ‘))))) |
461 | 452, 455,
460 | 3eqtr4rd 2784 |
. . . . . . . . . 10
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β (((ββif(π‘
β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))) = (if(π‘ β π·, (πΉβπ‘), 0) β ((πβπ‘) + (i Β· (πβπ‘))))) |
462 | 461 | fveq2d 6892 |
. . . . . . . . 9
β’ (((π β§ (π β dom β«1 β§ π β dom β«1))
β§ π‘ β β)
β (absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) = (absβ(if(π‘ β π·, (πΉβπ‘), 0) β ((πβπ‘) + (i Β· (πβπ‘)))))) |
463 | 462 | mpteq2dva 5247 |
. . . . . . . 8
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β (π‘ β β
β¦ (absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)))))) = (π‘ β β β¦ (absβ(if(π‘ β π·, (πΉβπ‘), 0) β ((πβπ‘) + (i Β· (πβπ‘))))))) |
464 | 463 | fveq2d 6892 |
. . . . . . 7
β’ ((π β§ (π β dom β«1 β§ π β dom β«1))
β (β«2β(π‘ β β β¦
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) = (β«2β(π‘ β β β¦
(absβ(if(π‘ β
π·, (πΉβπ‘), 0) β ((πβπ‘) + (i Β· (πβπ‘)))))))) |
465 | 464 | adantlr 714 |
. . . . . 6
β’ (((π β§ π β β+) β§ (π β dom β«1
β§ π β dom
β«1)) β (β«2β(π‘ β β β¦
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) = (β«2β(π‘ β β β¦
(absβ(if(π‘ β
π·, (πΉβπ‘), 0) β ((πβπ‘) + (i Β· (πβπ‘)))))))) |
466 | | rpcn 12980 |
. . . . . . . 8
β’ (π β β+
β π β
β) |
467 | 466 | 2halvesd 12454 |
. . . . . . 7
β’ (π β β+
β ((π / 2) + (π / 2)) = π) |
468 | 467 | ad2antlr 726 |
. . . . . 6
β’ (((π β§ π β β+) β§ (π β dom β«1
β§ π β dom
β«1)) β ((π / 2) + (π / 2)) = π) |
469 | 465, 468 | breq12d 5160 |
. . . . 5
β’ (((π β§ π β β+) β§ (π β dom β«1
β§ π β dom
β«1)) β ((β«2β(π‘ β β β¦
(absβ(((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘)) + (i Β· ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))))) < ((π / 2) + (π / 2)) β
(β«2β(π‘
β β β¦ (absβ(if(π‘ β π·, (πΉβπ‘), 0) β ((πβπ‘) + (i Β· (πβπ‘))))))) < π)) |
470 | 442, 469 | sylibd 238 |
. . . 4
β’ (((π β§ π β β+) β§ (π β dom β«1
β§ π β dom
β«1)) β (((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2) β§ (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2)) β
(β«2β(π‘
β β β¦ (absβ(if(π‘ β π·, (πΉβπ‘), 0) β ((πβπ‘) + (i Β· (πβπ‘))))))) < π)) |
471 | 470 | reximdvva 3206 |
. . 3
β’ ((π β§ π β β+) β
(βπ β dom
β«1βπ
β dom β«1((β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2) β§ (β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2)) β βπ β dom β«1βπ β dom
β«1(β«2β(π‘ β β β¦ (absβ(if(π‘ β π·, (πΉβπ‘), 0) β ((πβπ‘) + (i Β· (πβπ‘))))))) < π)) |
472 | 121, 471 | biimtrrid 242 |
. 2
β’ ((π β§ π β β+) β
((βπ β dom
β«1(β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2) β§ βπ β dom
β«1(β«2β(π‘ β β β¦
(absβ((ββif(π‘ β π·, (πΉβπ‘), 0)) β (πβπ‘))))) < (π / 2)) β βπ β dom β«1βπ β dom
β«1(β«2β(π‘ β β β¦ (absβ(if(π‘ β π·, (πΉβπ‘), 0) β ((πβπ‘) + (i Β· (πβπ‘))))))) < π)) |
473 | 11, 120, 472 | mp2and 698 |
1
β’ ((π β§ π β β+) β
βπ β dom
β«1βπ
β dom β«1(β«2β(π‘ β β β¦ (absβ(if(π‘ β π·, (πΉβπ‘), 0) β ((πβπ‘) + (i Β· (πβπ‘))))))) < π) |