Step |
Hyp |
Ref |
Expression |
1 |
|
fveq2 |
⊢ ( 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) → ( 𝑇 ‘ 𝐴 ) = ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ) |
2 |
|
oveq2 |
⊢ ( 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) → ( 𝐵 ·ℎ 𝐴 ) = ( 𝐵 ·ℎ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ) |
3 |
1 2
|
eqeq12d |
⊢ ( 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) → ( ( 𝑇 ‘ 𝐴 ) = ( 𝐵 ·ℎ 𝐴 ) ↔ ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) = ( 𝐵 ·ℎ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ) ) |
4 |
|
neeq1 |
⊢ ( 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) → ( 𝐴 ≠ 0ℎ ↔ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ≠ 0ℎ ) ) |
5 |
3 4
|
anbi12d |
⊢ ( 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) → ( ( ( 𝑇 ‘ 𝐴 ) = ( 𝐵 ·ℎ 𝐴 ) ∧ 𝐴 ≠ 0ℎ ) ↔ ( ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) = ( 𝐵 ·ℎ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ∧ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ≠ 0ℎ ) ) ) |
6 |
|
id |
⊢ ( 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) → 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) |
7 |
6 1
|
oveq12d |
⊢ ( 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) → ( 𝐴 ·ih ( 𝑇 ‘ 𝐴 ) ) = ( if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ·ih ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ) ) |
8 |
1 6
|
oveq12d |
⊢ ( 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) → ( ( 𝑇 ‘ 𝐴 ) ·ih 𝐴 ) = ( ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ·ih if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ) |
9 |
7 8
|
eqeq12d |
⊢ ( 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) → ( ( 𝐴 ·ih ( 𝑇 ‘ 𝐴 ) ) = ( ( 𝑇 ‘ 𝐴 ) ·ih 𝐴 ) ↔ ( if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ·ih ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ) = ( ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ·ih if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ) ) |
10 |
9
|
bibi1d |
⊢ ( 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) → ( ( ( 𝐴 ·ih ( 𝑇 ‘ 𝐴 ) ) = ( ( 𝑇 ‘ 𝐴 ) ·ih 𝐴 ) ↔ 𝐵 ∈ ℝ ) ↔ ( ( if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ·ih ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ) = ( ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ·ih if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ↔ 𝐵 ∈ ℝ ) ) ) |
11 |
5 10
|
imbi12d |
⊢ ( 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) → ( ( ( ( 𝑇 ‘ 𝐴 ) = ( 𝐵 ·ℎ 𝐴 ) ∧ 𝐴 ≠ 0ℎ ) → ( ( 𝐴 ·ih ( 𝑇 ‘ 𝐴 ) ) = ( ( 𝑇 ‘ 𝐴 ) ·ih 𝐴 ) ↔ 𝐵 ∈ ℝ ) ) ↔ ( ( ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) = ( 𝐵 ·ℎ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ∧ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ≠ 0ℎ ) → ( ( if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ·ih ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ) = ( ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ·ih if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ↔ 𝐵 ∈ ℝ ) ) ) ) |
12 |
|
oveq1 |
⊢ ( 𝐵 = if ( 𝐵 ∈ ℂ , 𝐵 , 0 ) → ( 𝐵 ·ℎ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) = ( if ( 𝐵 ∈ ℂ , 𝐵 , 0 ) ·ℎ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ) |
13 |
12
|
eqeq2d |
⊢ ( 𝐵 = if ( 𝐵 ∈ ℂ , 𝐵 , 0 ) → ( ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) = ( 𝐵 ·ℎ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ↔ ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) = ( if ( 𝐵 ∈ ℂ , 𝐵 , 0 ) ·ℎ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ) ) |
14 |
13
|
anbi1d |
⊢ ( 𝐵 = if ( 𝐵 ∈ ℂ , 𝐵 , 0 ) → ( ( ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) = ( 𝐵 ·ℎ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ∧ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ≠ 0ℎ ) ↔ ( ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) = ( if ( 𝐵 ∈ ℂ , 𝐵 , 0 ) ·ℎ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ∧ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ≠ 0ℎ ) ) ) |
15 |
|
eleq1 |
⊢ ( 𝐵 = if ( 𝐵 ∈ ℂ , 𝐵 , 0 ) → ( 𝐵 ∈ ℝ ↔ if ( 𝐵 ∈ ℂ , 𝐵 , 0 ) ∈ ℝ ) ) |
16 |
15
|
bibi2d |
⊢ ( 𝐵 = if ( 𝐵 ∈ ℂ , 𝐵 , 0 ) → ( ( ( if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ·ih ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ) = ( ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ·ih if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ↔ 𝐵 ∈ ℝ ) ↔ ( ( if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ·ih ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ) = ( ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ·ih if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ↔ if ( 𝐵 ∈ ℂ , 𝐵 , 0 ) ∈ ℝ ) ) ) |
17 |
14 16
|
imbi12d |
⊢ ( 𝐵 = if ( 𝐵 ∈ ℂ , 𝐵 , 0 ) → ( ( ( ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) = ( 𝐵 ·ℎ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ∧ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ≠ 0ℎ ) → ( ( if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ·ih ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ) = ( ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ·ih if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ↔ 𝐵 ∈ ℝ ) ) ↔ ( ( ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) = ( if ( 𝐵 ∈ ℂ , 𝐵 , 0 ) ·ℎ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ∧ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ≠ 0ℎ ) → ( ( if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ·ih ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ) = ( ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ·ih if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ↔ if ( 𝐵 ∈ ℂ , 𝐵 , 0 ) ∈ ℝ ) ) ) ) |
18 |
|
ifhvhv0 |
⊢ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ∈ ℋ |
19 |
|
0cn |
⊢ 0 ∈ ℂ |
20 |
19
|
elimel |
⊢ if ( 𝐵 ∈ ℂ , 𝐵 , 0 ) ∈ ℂ |
21 |
18 20
|
eigrei |
⊢ ( ( ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) = ( if ( 𝐵 ∈ ℂ , 𝐵 , 0 ) ·ℎ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ∧ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ≠ 0ℎ ) → ( ( if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ·ih ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ) = ( ( 𝑇 ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ·ih if ( 𝐴 ∈ ℋ , 𝐴 , 0ℎ ) ) ↔ if ( 𝐵 ∈ ℂ , 𝐵 , 0 ) ∈ ℝ ) ) |
22 |
11 17 21
|
dedth2h |
⊢ ( ( 𝐴 ∈ ℋ ∧ 𝐵 ∈ ℂ ) → ( ( ( 𝑇 ‘ 𝐴 ) = ( 𝐵 ·ℎ 𝐴 ) ∧ 𝐴 ≠ 0ℎ ) → ( ( 𝐴 ·ih ( 𝑇 ‘ 𝐴 ) ) = ( ( 𝑇 ‘ 𝐴 ) ·ih 𝐴 ) ↔ 𝐵 ∈ ℝ ) ) ) |
23 |
22
|
imp |
⊢ ( ( ( 𝐴 ∈ ℋ ∧ 𝐵 ∈ ℂ ) ∧ ( ( 𝑇 ‘ 𝐴 ) = ( 𝐵 ·ℎ 𝐴 ) ∧ 𝐴 ≠ 0ℎ ) ) → ( ( 𝐴 ·ih ( 𝑇 ‘ 𝐴 ) ) = ( ( 𝑇 ‘ 𝐴 ) ·ih 𝐴 ) ↔ 𝐵 ∈ ℝ ) ) |