Proof of Theorem h1de2bi
Step | Hyp | Ref
| Expression |
1 | | h1de2.2 |
. . . 4
⊢ 𝐵 ∈ ℋ |
2 | | his6 29461 |
. . . 4
⊢ (𝐵 ∈ ℋ → ((𝐵
·ih 𝐵) = 0 ↔ 𝐵 = 0ℎ)) |
3 | 1, 2 | ax-mp 5 |
. . 3
⊢ ((𝐵
·ih 𝐵) = 0 ↔ 𝐵 = 0ℎ) |
4 | 3 | necon3bii 2996 |
. 2
⊢ ((𝐵
·ih 𝐵) ≠ 0 ↔ 𝐵 ≠ 0ℎ) |
5 | | h1de2.1 |
. . . . . . . . 9
⊢ 𝐴 ∈ ℋ |
6 | 5, 1 | h1de2i 29915 |
. . . . . . . 8
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) → ((𝐵 ·ih 𝐵)
·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) |
7 | 6 | adantl 482 |
. . . . . . 7
⊢ (((𝐵
·ih 𝐵) ≠ 0 ∧ 𝐴 ∈ (⊥‘(⊥‘{𝐵}))) → ((𝐵 ·ih 𝐵)
·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) |
8 | 7 | oveq2d 7291 |
. . . . . 6
⊢ (((𝐵
·ih 𝐵) ≠ 0 ∧ 𝐴 ∈ (⊥‘(⊥‘{𝐵}))) → ((1 / (𝐵
·ih 𝐵)) ·ℎ
((𝐵
·ih 𝐵) ·ℎ 𝐴)) = ((1 / (𝐵 ·ih 𝐵))
·ℎ ((𝐴 ·ih 𝐵)
·ℎ 𝐵))) |
9 | 1, 1 | hicli 29443 |
. . . . . . . . . . 11
⊢ (𝐵
·ih 𝐵) ∈ ℂ |
10 | 9 | recclzi 11700 |
. . . . . . . . . 10
⊢ ((𝐵
·ih 𝐵) ≠ 0 → (1 / (𝐵 ·ih 𝐵)) ∈
ℂ) |
11 | | ax-hvmulass 29369 |
. . . . . . . . . . 11
⊢ (((1 /
(𝐵
·ih 𝐵)) ∈ ℂ ∧ (𝐵 ·ih 𝐵) ∈ ℂ ∧ 𝐴 ∈ ℋ) → (((1 /
(𝐵
·ih 𝐵)) · (𝐵 ·ih 𝐵))
·ℎ 𝐴) = ((1 / (𝐵 ·ih 𝐵))
·ℎ ((𝐵 ·ih 𝐵)
·ℎ 𝐴))) |
12 | 9, 5, 11 | mp3an23 1452 |
. . . . . . . . . 10
⊢ ((1 /
(𝐵
·ih 𝐵)) ∈ ℂ → (((1 / (𝐵
·ih 𝐵)) · (𝐵 ·ih 𝐵))
·ℎ 𝐴) = ((1 / (𝐵 ·ih 𝐵))
·ℎ ((𝐵 ·ih 𝐵)
·ℎ 𝐴))) |
13 | 10, 12 | syl 17 |
. . . . . . . . 9
⊢ ((𝐵
·ih 𝐵) ≠ 0 → (((1 / (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵))
·ℎ 𝐴) = ((1 / (𝐵 ·ih 𝐵))
·ℎ ((𝐵 ·ih 𝐵)
·ℎ 𝐴))) |
14 | | ax-1cn 10929 |
. . . . . . . . . . 11
⊢ 1 ∈
ℂ |
15 | 14, 9 | divcan1zi 11711 |
. . . . . . . . . 10
⊢ ((𝐵
·ih 𝐵) ≠ 0 → ((1 / (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵)) = 1) |
16 | 15 | oveq1d 7290 |
. . . . . . . . 9
⊢ ((𝐵
·ih 𝐵) ≠ 0 → (((1 / (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵))
·ℎ 𝐴) = (1 ·ℎ
𝐴)) |
17 | 13, 16 | eqtr3d 2780 |
. . . . . . . 8
⊢ ((𝐵
·ih 𝐵) ≠ 0 → ((1 / (𝐵 ·ih 𝐵))
·ℎ ((𝐵 ·ih 𝐵)
·ℎ 𝐴)) = (1 ·ℎ
𝐴)) |
18 | | ax-hvmulid 29368 |
. . . . . . . . 9
⊢ (𝐴 ∈ ℋ → (1
·ℎ 𝐴) = 𝐴) |
19 | 5, 18 | ax-mp 5 |
. . . . . . . 8
⊢ (1
·ℎ 𝐴) = 𝐴 |
20 | 17, 19 | eqtrdi 2794 |
. . . . . . 7
⊢ ((𝐵
·ih 𝐵) ≠ 0 → ((1 / (𝐵 ·ih 𝐵))
·ℎ ((𝐵 ·ih 𝐵)
·ℎ 𝐴)) = 𝐴) |
21 | 20 | adantr 481 |
. . . . . 6
⊢ (((𝐵
·ih 𝐵) ≠ 0 ∧ 𝐴 ∈ (⊥‘(⊥‘{𝐵}))) → ((1 / (𝐵
·ih 𝐵)) ·ℎ
((𝐵
·ih 𝐵) ·ℎ 𝐴)) = 𝐴) |
22 | 8, 21 | eqtr3d 2780 |
. . . . 5
⊢ (((𝐵
·ih 𝐵) ≠ 0 ∧ 𝐴 ∈ (⊥‘(⊥‘{𝐵}))) → ((1 / (𝐵
·ih 𝐵)) ·ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) = 𝐴) |
23 | 5, 1 | hicli 29443 |
. . . . . . . . 9
⊢ (𝐴
·ih 𝐵) ∈ ℂ |
24 | | ax-hvmulass 29369 |
. . . . . . . . 9
⊢ (((1 /
(𝐵
·ih 𝐵)) ∈ ℂ ∧ (𝐴 ·ih 𝐵) ∈ ℂ ∧ 𝐵 ∈ ℋ) → (((1 /
(𝐵
·ih 𝐵)) · (𝐴 ·ih 𝐵))
·ℎ 𝐵) = ((1 / (𝐵 ·ih 𝐵))
·ℎ ((𝐴 ·ih 𝐵)
·ℎ 𝐵))) |
25 | 23, 1, 24 | mp3an23 1452 |
. . . . . . . 8
⊢ ((1 /
(𝐵
·ih 𝐵)) ∈ ℂ → (((1 / (𝐵
·ih 𝐵)) · (𝐴 ·ih 𝐵))
·ℎ 𝐵) = ((1 / (𝐵 ·ih 𝐵))
·ℎ ((𝐴 ·ih 𝐵)
·ℎ 𝐵))) |
26 | 10, 25 | syl 17 |
. . . . . . 7
⊢ ((𝐵
·ih 𝐵) ≠ 0 → (((1 / (𝐵 ·ih 𝐵)) · (𝐴 ·ih 𝐵))
·ℎ 𝐵) = ((1 / (𝐵 ·ih 𝐵))
·ℎ ((𝐴 ·ih 𝐵)
·ℎ 𝐵))) |
27 | | mulcom 10957 |
. . . . . . . . . 10
⊢ (((1 /
(𝐵
·ih 𝐵)) ∈ ℂ ∧ (𝐴 ·ih 𝐵) ∈ ℂ) → ((1 /
(𝐵
·ih 𝐵)) · (𝐴 ·ih 𝐵)) = ((𝐴 ·ih 𝐵) · (1 / (𝐵
·ih 𝐵)))) |
28 | 10, 23, 27 | sylancl 586 |
. . . . . . . . 9
⊢ ((𝐵
·ih 𝐵) ≠ 0 → ((1 / (𝐵 ·ih 𝐵)) · (𝐴 ·ih 𝐵)) = ((𝐴 ·ih 𝐵) · (1 / (𝐵
·ih 𝐵)))) |
29 | 23, 9 | divreczi 11713 |
. . . . . . . . 9
⊢ ((𝐵
·ih 𝐵) ≠ 0 → ((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵)) = ((𝐴 ·ih 𝐵) · (1 / (𝐵
·ih 𝐵)))) |
30 | 28, 29 | eqtr4d 2781 |
. . . . . . . 8
⊢ ((𝐵
·ih 𝐵) ≠ 0 → ((1 / (𝐵 ·ih 𝐵)) · (𝐴 ·ih 𝐵)) = ((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))) |
31 | 30 | oveq1d 7290 |
. . . . . . 7
⊢ ((𝐵
·ih 𝐵) ≠ 0 → (((1 / (𝐵 ·ih 𝐵)) · (𝐴 ·ih 𝐵))
·ℎ 𝐵) = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵)) |
32 | 26, 31 | eqtr3d 2780 |
. . . . . 6
⊢ ((𝐵
·ih 𝐵) ≠ 0 → ((1 / (𝐵 ·ih 𝐵))
·ℎ ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵)) |
33 | 32 | adantr 481 |
. . . . 5
⊢ (((𝐵
·ih 𝐵) ≠ 0 ∧ 𝐴 ∈ (⊥‘(⊥‘{𝐵}))) → ((1 / (𝐵
·ih 𝐵)) ·ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵)) |
34 | 22, 33 | eqtr3d 2780 |
. . . 4
⊢ (((𝐵
·ih 𝐵) ≠ 0 ∧ 𝐴 ∈ (⊥‘(⊥‘{𝐵}))) → 𝐴 = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵)) |
35 | 34 | ex 413 |
. . 3
⊢ ((𝐵
·ih 𝐵) ≠ 0 → (𝐴 ∈ (⊥‘(⊥‘{𝐵})) → 𝐴 = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵))) |
36 | 23, 9 | divclzi 11710 |
. . . . 5
⊢ ((𝐵
·ih 𝐵) ≠ 0 → ((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵)) ∈
ℂ) |
37 | 1 | elexi 3451 |
. . . . . . . . . . 11
⊢ 𝐵 ∈ V |
38 | 37 | snss 4719 |
. . . . . . . . . 10
⊢ (𝐵 ∈ ℋ ↔ {𝐵} ⊆
ℋ) |
39 | 1, 38 | mpbi 229 |
. . . . . . . . 9
⊢ {𝐵} ⊆
ℋ |
40 | | occl 29666 |
. . . . . . . . 9
⊢ ({𝐵} ⊆ ℋ →
(⊥‘{𝐵}) ∈
Cℋ ) |
41 | 39, 40 | ax-mp 5 |
. . . . . . . 8
⊢
(⊥‘{𝐵})
∈ Cℋ |
42 | 41 | choccli 29669 |
. . . . . . 7
⊢
(⊥‘(⊥‘{𝐵})) ∈
Cℋ |
43 | 42 | chshii 29589 |
. . . . . 6
⊢
(⊥‘(⊥‘{𝐵})) ∈
Sℋ |
44 | | h1did 29913 |
. . . . . . 7
⊢ (𝐵 ∈ ℋ → 𝐵 ∈
(⊥‘(⊥‘{𝐵}))) |
45 | 1, 44 | ax-mp 5 |
. . . . . 6
⊢ 𝐵 ∈
(⊥‘(⊥‘{𝐵})) |
46 | | shmulcl 29580 |
. . . . . 6
⊢
(((⊥‘(⊥‘{𝐵})) ∈ Sℋ
∧ ((𝐴
·ih 𝐵) / (𝐵 ·ih 𝐵)) ∈ ℂ ∧ 𝐵 ∈
(⊥‘(⊥‘{𝐵}))) → (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵) ∈
(⊥‘(⊥‘{𝐵}))) |
47 | 43, 45, 46 | mp3an13 1451 |
. . . . 5
⊢ (((𝐴
·ih 𝐵) / (𝐵 ·ih 𝐵)) ∈ ℂ →
(((𝐴
·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵) ∈
(⊥‘(⊥‘{𝐵}))) |
48 | 36, 47 | syl 17 |
. . . 4
⊢ ((𝐵
·ih 𝐵) ≠ 0 → (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵) ∈
(⊥‘(⊥‘{𝐵}))) |
49 | | eleq1 2826 |
. . . 4
⊢ (𝐴 = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵) → (𝐴 ∈ (⊥‘(⊥‘{𝐵})) ↔ (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵) ∈
(⊥‘(⊥‘{𝐵})))) |
50 | 48, 49 | syl5ibrcom 246 |
. . 3
⊢ ((𝐵
·ih 𝐵) ≠ 0 → (𝐴 = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵) → 𝐴 ∈ (⊥‘(⊥‘{𝐵})))) |
51 | 35, 50 | impbid 211 |
. 2
⊢ ((𝐵
·ih 𝐵) ≠ 0 → (𝐴 ∈ (⊥‘(⊥‘{𝐵})) ↔ 𝐴 = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵))) |
52 | 4, 51 | sylbir 234 |
1
⊢ (𝐵 ≠ 0ℎ
→ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) ↔ 𝐴 = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵))) |