Step | Hyp | Ref
| Expression |
1 | | spansn 30799 |
. . . 4
β’ (π΅ β β β
(spanβ{π΅}) =
(β₯β(β₯β{π΅}))) |
2 | 1 | eleq2d 2819 |
. . 3
β’ (π΅ β β β (π΄ β (spanβ{π΅}) β π΄ β (β₯β(β₯β{π΅})))) |
3 | 2 | 3ad2ant2 1134 |
. 2
β’ ((π΄ β β β§ π΅ β β β§ π΅ β 0β)
β (π΄ β
(spanβ{π΅}) β
π΄ β
(β₯β(β₯β{π΅})))) |
4 | | eleq1 2821 |
. . . . . 6
β’ (π΄ = if(π΄ β β, π΄, 0β) β (π΄ β
(β₯β(β₯β{π΅})) β if(π΄ β β, π΄, 0β) β
(β₯β(β₯β{π΅})))) |
5 | | id 22 |
. . . . . . 7
β’ (π΄ = if(π΄ β β, π΄, 0β) β π΄ = if(π΄ β β, π΄, 0β)) |
6 | | oveq1 7412 |
. . . . . . . . 9
β’ (π΄ = if(π΄ β β, π΄, 0β) β (π΄
Β·ih π΅) = (if(π΄ β β, π΄, 0β)
Β·ih π΅)) |
7 | 6 | oveq1d 7420 |
. . . . . . . 8
β’ (π΄ = if(π΄ β β, π΄, 0β) β ((π΄
Β·ih π΅) / (π΅ Β·ih π΅)) = ((if(π΄ β β, π΄, 0β)
Β·ih π΅) / (π΅ Β·ih π΅))) |
8 | 7 | oveq1d 7420 |
. . . . . . 7
β’ (π΄ = if(π΄ β β, π΄, 0β) β (((π΄
Β·ih π΅) / (π΅ Β·ih π΅))
Β·β π΅) = (((if(π΄ β β, π΄, 0β)
Β·ih π΅) / (π΅ Β·ih π΅))
Β·β π΅)) |
9 | 5, 8 | eqeq12d 2748 |
. . . . . 6
β’ (π΄ = if(π΄ β β, π΄, 0β) β (π΄ = (((π΄ Β·ih π΅) / (π΅ Β·ih π΅))
Β·β π΅) β if(π΄ β β, π΄, 0β) = (((if(π΄ β β, π΄, 0β)
Β·ih π΅) / (π΅ Β·ih π΅))
Β·β π΅))) |
10 | 4, 9 | bibi12d 345 |
. . . . 5
β’ (π΄ = if(π΄ β β, π΄, 0β) β ((π΄ β
(β₯β(β₯β{π΅})) β π΄ = (((π΄ Β·ih π΅) / (π΅ Β·ih π΅))
Β·β π΅)) β (if(π΄ β β, π΄, 0β) β
(β₯β(β₯β{π΅})) β if(π΄ β β, π΄, 0β) = (((if(π΄ β β, π΄, 0β)
Β·ih π΅) / (π΅ Β·ih π΅))
Β·β π΅)))) |
11 | 10 | imbi2d 340 |
. . . 4
β’ (π΄ = if(π΄ β β, π΄, 0β) β ((π΅ β 0β
β (π΄ β
(β₯β(β₯β{π΅})) β π΄ = (((π΄ Β·ih π΅) / (π΅ Β·ih π΅))
Β·β π΅))) β (π΅ β 0β β (if(π΄ β β, π΄, 0β) β
(β₯β(β₯β{π΅})) β if(π΄ β β, π΄, 0β) = (((if(π΄ β β, π΄, 0β)
Β·ih π΅) / (π΅ Β·ih π΅))
Β·β π΅))))) |
12 | | neeq1 3003 |
. . . . 5
β’ (π΅ = if(π΅ β β, π΅, 0β) β (π΅ β 0β
β if(π΅ β β,
π΅, 0β)
β 0β)) |
13 | | sneq 4637 |
. . . . . . . . 9
β’ (π΅ = if(π΅ β β, π΅, 0β) β {π΅} = {if(π΅ β β, π΅, 0β)}) |
14 | 13 | fveq2d 6892 |
. . . . . . . 8
β’ (π΅ = if(π΅ β β, π΅, 0β) β
(β₯β{π΅}) =
(β₯β{if(π΅ β
β, π΅,
0β)})) |
15 | 14 | fveq2d 6892 |
. . . . . . 7
β’ (π΅ = if(π΅ β β, π΅, 0β) β
(β₯β(β₯β{π΅})) =
(β₯β(β₯β{if(π΅ β β, π΅, 0β)}))) |
16 | 15 | eleq2d 2819 |
. . . . . 6
β’ (π΅ = if(π΅ β β, π΅, 0β) β (if(π΄ β β, π΄, 0β) β
(β₯β(β₯β{π΅})) β if(π΄ β β, π΄, 0β) β
(β₯β(β₯β{if(π΅ β β, π΅,
0β)})))) |
17 | | oveq2 7413 |
. . . . . . . . 9
β’ (π΅ = if(π΅ β β, π΅, 0β) β (if(π΄ β β, π΄, 0β)
Β·ih π΅) = (if(π΄ β β, π΄, 0β)
Β·ih if(π΅ β β, π΅, 0β))) |
18 | | oveq1 7412 |
. . . . . . . . . 10
β’ (π΅ = if(π΅ β β, π΅, 0β) β (π΅
Β·ih π΅) = (if(π΅ β β, π΅, 0β)
Β·ih π΅)) |
19 | | oveq2 7413 |
. . . . . . . . . 10
β’ (π΅ = if(π΅ β β, π΅, 0β) β (if(π΅ β β, π΅, 0β)
Β·ih π΅) = (if(π΅ β β, π΅, 0β)
Β·ih if(π΅ β β, π΅, 0β))) |
20 | 18, 19 | eqtrd 2772 |
. . . . . . . . 9
β’ (π΅ = if(π΅ β β, π΅, 0β) β (π΅
Β·ih π΅) = (if(π΅ β β, π΅, 0β)
Β·ih if(π΅ β β, π΅, 0β))) |
21 | 17, 20 | oveq12d 7423 |
. . . . . . . 8
β’ (π΅ = if(π΅ β β, π΅, 0β) β ((if(π΄ β β, π΄, 0β)
Β·ih π΅) / (π΅ Β·ih π΅)) = ((if(π΄ β β, π΄, 0β)
Β·ih if(π΅ β β, π΅, 0β)) / (if(π΅ β β, π΅, 0β)
Β·ih if(π΅ β β, π΅, 0β)))) |
22 | | id 22 |
. . . . . . . 8
β’ (π΅ = if(π΅ β β, π΅, 0β) β π΅ = if(π΅ β β, π΅, 0β)) |
23 | 21, 22 | oveq12d 7423 |
. . . . . . 7
β’ (π΅ = if(π΅ β β, π΅, 0β) β (((if(π΄ β β, π΄, 0β)
Β·ih π΅) / (π΅ Β·ih π΅))
Β·β π΅) = (((if(π΄ β β, π΄, 0β)
Β·ih if(π΅ β β, π΅, 0β)) / (if(π΅ β β, π΅, 0β)
Β·ih if(π΅ β β, π΅, 0β)))
Β·β if(π΅ β β, π΅, 0β))) |
24 | 23 | eqeq2d 2743 |
. . . . . 6
β’ (π΅ = if(π΅ β β, π΅, 0β) β (if(π΄ β β, π΄, 0β) =
(((if(π΄ β β,
π΄, 0β)
Β·ih π΅) / (π΅ Β·ih π΅))
Β·β π΅) β if(π΄ β β, π΄, 0β) = (((if(π΄ β β, π΄, 0β)
Β·ih if(π΅ β β, π΅, 0β)) / (if(π΅ β β, π΅, 0β)
Β·ih if(π΅ β β, π΅, 0β)))
Β·β if(π΅ β β, π΅, 0β)))) |
25 | 16, 24 | bibi12d 345 |
. . . . 5
β’ (π΅ = if(π΅ β β, π΅, 0β) β ((if(π΄ β β, π΄, 0β) β
(β₯β(β₯β{π΅})) β if(π΄ β β, π΄, 0β) = (((if(π΄ β β, π΄, 0β)
Β·ih π΅) / (π΅ Β·ih π΅))
Β·β π΅)) β (if(π΄ β β, π΄, 0β) β
(β₯β(β₯β{if(π΅ β β, π΅, 0β)})) β if(π΄ β β, π΄, 0β) =
(((if(π΄ β β,
π΄, 0β)
Β·ih if(π΅ β β, π΅, 0β)) / (if(π΅ β β, π΅, 0β)
Β·ih if(π΅ β β, π΅, 0β)))
Β·β if(π΅ β β, π΅, 0β))))) |
26 | 12, 25 | imbi12d 344 |
. . . 4
β’ (π΅ = if(π΅ β β, π΅, 0β) β ((π΅ β 0β
β (if(π΄ β
β, π΄,
0β) β (β₯β(β₯β{π΅})) β if(π΄ β β, π΄, 0β) = (((if(π΄ β β, π΄, 0β)
Β·ih π΅) / (π΅ Β·ih π΅))
Β·β π΅))) β (if(π΅ β β, π΅, 0β) β
0β β (if(π΄ β β, π΄, 0β) β
(β₯β(β₯β{if(π΅ β β, π΅, 0β)})) β if(π΄ β β, π΄, 0β) =
(((if(π΄ β β,
π΄, 0β)
Β·ih if(π΅ β β, π΅, 0β)) / (if(π΅ β β, π΅, 0β)
Β·ih if(π΅ β β, π΅, 0β)))
Β·β if(π΅ β β, π΅,
0β)))))) |
27 | | ifhvhv0 30262 |
. . . . 5
β’ if(π΄ β β, π΄, 0β) β
β |
28 | | ifhvhv0 30262 |
. . . . 5
β’ if(π΅ β β, π΅, 0β) β
β |
29 | 27, 28 | h1de2bi 30794 |
. . . 4
β’ (if(π΅ β β, π΅, 0β) β
0β β (if(π΄ β β, π΄, 0β) β
(β₯β(β₯β{if(π΅ β β, π΅, 0β)})) β if(π΄ β β, π΄, 0β) =
(((if(π΄ β β,
π΄, 0β)
Β·ih if(π΅ β β, π΅, 0β)) / (if(π΅ β β, π΅, 0β)
Β·ih if(π΅ β β, π΅, 0β)))
Β·β if(π΅ β β, π΅, 0β)))) |
30 | 11, 26, 29 | dedth2h 4586 |
. . 3
β’ ((π΄ β β β§ π΅ β β) β (π΅ β 0β
β (π΄ β
(β₯β(β₯β{π΅})) β π΄ = (((π΄ Β·ih π΅) / (π΅ Β·ih π΅))
Β·β π΅)))) |
31 | 30 | 3impia 1117 |
. 2
β’ ((π΄ β β β§ π΅ β β β§ π΅ β 0β)
β (π΄ β
(β₯β(β₯β{π΅})) β π΄ = (((π΄ Β·ih π΅) / (π΅ Β·ih π΅))
Β·β π΅))) |
32 | 3, 31 | bitrd 278 |
1
β’ ((π΄ β β β§ π΅ β β β§ π΅ β 0β)
β (π΄ β
(spanβ{π΅}) β
π΄ = (((π΄ Β·ih π΅) / (π΅ Β·ih π΅))
Β·β π΅))) |