Proof of Theorem h1de2bi
| Step | Hyp | Ref
| Expression |
| 1 | | h1de2.2 |
. . . 4
⊢ 𝐵 ∈ ℋ |
| 2 | | his6 31065 |
. . . 4
⊢ (𝐵 ∈ ℋ → ((𝐵
·ih 𝐵) = 0 ↔ 𝐵 = 0ℎ)) |
| 3 | 1, 2 | ax-mp 5 |
. . 3
⊢ ((𝐵
·ih 𝐵) = 0 ↔ 𝐵 = 0ℎ) |
| 4 | 3 | necon3bii 2983 |
. 2
⊢ ((𝐵
·ih 𝐵) ≠ 0 ↔ 𝐵 ≠ 0ℎ) |
| 5 | | h1de2.1 |
. . . . . . . . 9
⊢ 𝐴 ∈ ℋ |
| 6 | 5, 1 | h1de2i 31519 |
. . . . . . . 8
⊢ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) → ((𝐵 ·ih 𝐵)
·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) |
| 7 | 6 | adantl 481 |
. . . . . . 7
⊢ (((𝐵
·ih 𝐵) ≠ 0 ∧ 𝐴 ∈ (⊥‘(⊥‘{𝐵}))) → ((𝐵 ·ih 𝐵)
·ℎ 𝐴) = ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) |
| 8 | 7 | oveq2d 7430 |
. . . . . 6
⊢ (((𝐵
·ih 𝐵) ≠ 0 ∧ 𝐴 ∈ (⊥‘(⊥‘{𝐵}))) → ((1 / (𝐵
·ih 𝐵)) ·ℎ
((𝐵
·ih 𝐵) ·ℎ 𝐴)) = ((1 / (𝐵 ·ih 𝐵))
·ℎ ((𝐴 ·ih 𝐵)
·ℎ 𝐵))) |
| 9 | 1, 1 | hicli 31047 |
. . . . . . . . . . 11
⊢ (𝐵
·ih 𝐵) ∈ ℂ |
| 10 | 9 | recclzi 11975 |
. . . . . . . . . 10
⊢ ((𝐵
·ih 𝐵) ≠ 0 → (1 / (𝐵 ·ih 𝐵)) ∈
ℂ) |
| 11 | | ax-hvmulass 30973 |
. . . . . . . . . . 11
⊢ (((1 /
(𝐵
·ih 𝐵)) ∈ ℂ ∧ (𝐵 ·ih 𝐵) ∈ ℂ ∧ 𝐴 ∈ ℋ) → (((1 /
(𝐵
·ih 𝐵)) · (𝐵 ·ih 𝐵))
·ℎ 𝐴) = ((1 / (𝐵 ·ih 𝐵))
·ℎ ((𝐵 ·ih 𝐵)
·ℎ 𝐴))) |
| 12 | 9, 5, 11 | mp3an23 1454 |
. . . . . . . . . 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 11196 |
. . . . . . . . . . 11
⊢ 1 ∈
ℂ |
| 15 | 14, 9 | divcan1zi 11986 |
. . . . . . . . . 10
⊢ ((𝐵
·ih 𝐵) ≠ 0 → ((1 / (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵)) = 1) |
| 16 | 15 | oveq1d 7429 |
. . . . . . . . 9
⊢ ((𝐵
·ih 𝐵) ≠ 0 → (((1 / (𝐵 ·ih 𝐵)) · (𝐵 ·ih 𝐵))
·ℎ 𝐴) = (1 ·ℎ
𝐴)) |
| 17 | 13, 16 | eqtr3d 2771 |
. . . . . . . 8
⊢ ((𝐵
·ih 𝐵) ≠ 0 → ((1 / (𝐵 ·ih 𝐵))
·ℎ ((𝐵 ·ih 𝐵)
·ℎ 𝐴)) = (1 ·ℎ
𝐴)) |
| 18 | | ax-hvmulid 30972 |
. . . . . . . . 9
⊢ (𝐴 ∈ ℋ → (1
·ℎ 𝐴) = 𝐴) |
| 19 | 5, 18 | ax-mp 5 |
. . . . . . . 8
⊢ (1
·ℎ 𝐴) = 𝐴 |
| 20 | 17, 19 | eqtrdi 2785 |
. . . . . . 7
⊢ ((𝐵
·ih 𝐵) ≠ 0 → ((1 / (𝐵 ·ih 𝐵))
·ℎ ((𝐵 ·ih 𝐵)
·ℎ 𝐴)) = 𝐴) |
| 21 | 20 | adantr 480 |
. . . . . 6
⊢ (((𝐵
·ih 𝐵) ≠ 0 ∧ 𝐴 ∈ (⊥‘(⊥‘{𝐵}))) → ((1 / (𝐵
·ih 𝐵)) ·ℎ
((𝐵
·ih 𝐵) ·ℎ 𝐴)) = 𝐴) |
| 22 | 8, 21 | eqtr3d 2771 |
. . . . 5
⊢ (((𝐵
·ih 𝐵) ≠ 0 ∧ 𝐴 ∈ (⊥‘(⊥‘{𝐵}))) → ((1 / (𝐵
·ih 𝐵)) ·ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) = 𝐴) |
| 23 | 5, 1 | hicli 31047 |
. . . . . . . . 9
⊢ (𝐴
·ih 𝐵) ∈ ℂ |
| 24 | | ax-hvmulass 30973 |
. . . . . . . . 9
⊢ (((1 /
(𝐵
·ih 𝐵)) ∈ ℂ ∧ (𝐴 ·ih 𝐵) ∈ ℂ ∧ 𝐵 ∈ ℋ) → (((1 /
(𝐵
·ih 𝐵)) · (𝐴 ·ih 𝐵))
·ℎ 𝐵) = ((1 / (𝐵 ·ih 𝐵))
·ℎ ((𝐴 ·ih 𝐵)
·ℎ 𝐵))) |
| 25 | 23, 1, 24 | mp3an23 1454 |
. . . . . . . 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 11224 |
. . . . . . . . . 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 11988 |
. . . . . . . . 9
⊢ ((𝐵
·ih 𝐵) ≠ 0 → ((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵)) = ((𝐴 ·ih 𝐵) · (1 / (𝐵
·ih 𝐵)))) |
| 30 | 28, 29 | eqtr4d 2772 |
. . . . . . . 8
⊢ ((𝐵
·ih 𝐵) ≠ 0 → ((1 / (𝐵 ·ih 𝐵)) · (𝐴 ·ih 𝐵)) = ((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))) |
| 31 | 30 | oveq1d 7429 |
. . . . . . 7
⊢ ((𝐵
·ih 𝐵) ≠ 0 → (((1 / (𝐵 ·ih 𝐵)) · (𝐴 ·ih 𝐵))
·ℎ 𝐵) = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵)) |
| 32 | 26, 31 | eqtr3d 2771 |
. . . . . 6
⊢ ((𝐵
·ih 𝐵) ≠ 0 → ((1 / (𝐵 ·ih 𝐵))
·ℎ ((𝐴 ·ih 𝐵)
·ℎ 𝐵)) = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵)) |
| 33 | 32 | adantr 480 |
. . . . 5
⊢ (((𝐵
·ih 𝐵) ≠ 0 ∧ 𝐴 ∈ (⊥‘(⊥‘{𝐵}))) → ((1 / (𝐵
·ih 𝐵)) ·ℎ
((𝐴
·ih 𝐵) ·ℎ 𝐵)) = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵)) |
| 34 | 22, 33 | eqtr3d 2771 |
. . . 4
⊢ (((𝐵
·ih 𝐵) ≠ 0 ∧ 𝐴 ∈ (⊥‘(⊥‘{𝐵}))) → 𝐴 = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵)) |
| 35 | 34 | ex 412 |
. . 3
⊢ ((𝐵
·ih 𝐵) ≠ 0 → (𝐴 ∈ (⊥‘(⊥‘{𝐵})) → 𝐴 = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵))) |
| 36 | 23, 9 | divclzi 11985 |
. . . . 5
⊢ ((𝐵
·ih 𝐵) ≠ 0 → ((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵)) ∈
ℂ) |
| 37 | 1 | elexi 3487 |
. . . . . . . . . . 11
⊢ 𝐵 ∈ V |
| 38 | 37 | snss 4767 |
. . . . . . . . . 10
⊢ (𝐵 ∈ ℋ ↔ {𝐵} ⊆
ℋ) |
| 39 | 1, 38 | mpbi 230 |
. . . . . . . . 9
⊢ {𝐵} ⊆
ℋ |
| 40 | | occl 31270 |
. . . . . . . . 9
⊢ ({𝐵} ⊆ ℋ →
(⊥‘{𝐵}) ∈
Cℋ ) |
| 41 | 39, 40 | ax-mp 5 |
. . . . . . . 8
⊢
(⊥‘{𝐵})
∈ Cℋ |
| 42 | 41 | choccli 31273 |
. . . . . . 7
⊢
(⊥‘(⊥‘{𝐵})) ∈
Cℋ |
| 43 | 42 | chshii 31193 |
. . . . . 6
⊢
(⊥‘(⊥‘{𝐵})) ∈
Sℋ |
| 44 | | h1did 31517 |
. . . . . . 7
⊢ (𝐵 ∈ ℋ → 𝐵 ∈
(⊥‘(⊥‘{𝐵}))) |
| 45 | 1, 44 | ax-mp 5 |
. . . . . 6
⊢ 𝐵 ∈
(⊥‘(⊥‘{𝐵})) |
| 46 | | shmulcl 31184 |
. . . . . 6
⊢
(((⊥‘(⊥‘{𝐵})) ∈ Sℋ
∧ ((𝐴
·ih 𝐵) / (𝐵 ·ih 𝐵)) ∈ ℂ ∧ 𝐵 ∈
(⊥‘(⊥‘{𝐵}))) → (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵) ∈
(⊥‘(⊥‘{𝐵}))) |
| 47 | 43, 45, 46 | mp3an13 1453 |
. . . . 5
⊢ (((𝐴
·ih 𝐵) / (𝐵 ·ih 𝐵)) ∈ ℂ →
(((𝐴
·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵) ∈
(⊥‘(⊥‘{𝐵}))) |
| 48 | 36, 47 | syl 17 |
. . . 4
⊢ ((𝐵
·ih 𝐵) ≠ 0 → (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵) ∈
(⊥‘(⊥‘{𝐵}))) |
| 49 | | eleq1 2821 |
. . . 4
⊢ (𝐴 = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵) → (𝐴 ∈ (⊥‘(⊥‘{𝐵})) ↔ (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵) ∈
(⊥‘(⊥‘{𝐵})))) |
| 50 | 48, 49 | syl5ibrcom 247 |
. . 3
⊢ ((𝐵
·ih 𝐵) ≠ 0 → (𝐴 = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵) → 𝐴 ∈ (⊥‘(⊥‘{𝐵})))) |
| 51 | 35, 50 | impbid 212 |
. 2
⊢ ((𝐵
·ih 𝐵) ≠ 0 → (𝐴 ∈ (⊥‘(⊥‘{𝐵})) ↔ 𝐴 = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵))) |
| 52 | 4, 51 | sylbir 235 |
1
⊢ (𝐵 ≠ 0ℎ
→ (𝐴 ∈
(⊥‘(⊥‘{𝐵})) ↔ 𝐴 = (((𝐴 ·ih 𝐵) / (𝐵 ·ih 𝐵))
·ℎ 𝐵))) |