Step | Hyp | Ref
| Expression |
1 | | chsh 29586 |
. . . . . . . 8
⊢ (𝐻 ∈
Cℋ → 𝐻 ∈ Sℋ
) |
2 | | shocsh 29646 |
. . . . . . . 8
⊢ (𝐻 ∈
Sℋ → (⊥‘𝐻) ∈ Sℋ
) |
3 | | shsel 29676 |
. . . . . . . 8
⊢ ((𝐻 ∈
Sℋ ∧ (⊥‘𝐻) ∈ Sℋ )
→ (𝐴 ∈ (𝐻 +ℋ
(⊥‘𝐻)) ↔
∃𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥))) |
4 | 1, 2, 3 | syl2anc2 585 |
. . . . . . 7
⊢ (𝐻 ∈
Cℋ → (𝐴 ∈ (𝐻 +ℋ (⊥‘𝐻)) ↔ ∃𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥))) |
5 | 4 | biimpa 477 |
. . . . . 6
⊢ ((𝐻 ∈
Cℋ ∧ 𝐴 ∈ (𝐻 +ℋ (⊥‘𝐻))) → ∃𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥)) |
6 | 1, 2 | syl 17 |
. . . . . . . 8
⊢ (𝐻 ∈
Cℋ → (⊥‘𝐻) ∈ Sℋ
) |
7 | | ocin 29658 |
. . . . . . . . 9
⊢ (𝐻 ∈
Sℋ → (𝐻 ∩ (⊥‘𝐻)) = 0ℋ) |
8 | 1, 7 | syl 17 |
. . . . . . . 8
⊢ (𝐻 ∈
Cℋ → (𝐻 ∩ (⊥‘𝐻)) = 0ℋ) |
9 | | pjhthmo 29664 |
. . . . . . . 8
⊢ ((𝐻 ∈
Sℋ ∧ (⊥‘𝐻) ∈ Sℋ
∧ (𝐻 ∩
(⊥‘𝐻)) =
0ℋ) → ∃*𝑦(𝑦 ∈ 𝐻 ∧ ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥))) |
10 | 1, 6, 8, 9 | syl3anc 1370 |
. . . . . . 7
⊢ (𝐻 ∈
Cℋ → ∃*𝑦(𝑦 ∈ 𝐻 ∧ ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥))) |
11 | 10 | adantr 481 |
. . . . . 6
⊢ ((𝐻 ∈
Cℋ ∧ 𝐴 ∈ (𝐻 +ℋ (⊥‘𝐻))) → ∃*𝑦(𝑦 ∈ 𝐻 ∧ ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥))) |
12 | | reu5 3361 |
. . . . . . 7
⊢
(∃!𝑦 ∈
𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥) ↔ (∃𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥) ∧ ∃*𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥))) |
13 | | df-rmo 3071 |
. . . . . . . 8
⊢
(∃*𝑦 ∈
𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥) ↔ ∃*𝑦(𝑦 ∈ 𝐻 ∧ ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥))) |
14 | 13 | anbi2i 623 |
. . . . . . 7
⊢
((∃𝑦 ∈
𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥) ∧ ∃*𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥)) ↔ (∃𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥) ∧ ∃*𝑦(𝑦 ∈ 𝐻 ∧ ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥)))) |
15 | 12, 14 | bitri 274 |
. . . . . 6
⊢
(∃!𝑦 ∈
𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥) ↔ (∃𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥) ∧ ∃*𝑦(𝑦 ∈ 𝐻 ∧ ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥)))) |
16 | 5, 11, 15 | sylanbrc 583 |
. . . . 5
⊢ ((𝐻 ∈
Cℋ ∧ 𝐴 ∈ (𝐻 +ℋ (⊥‘𝐻))) → ∃!𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥)) |
17 | | riotacl 7250 |
. . . . 5
⊢
(∃!𝑦 ∈
𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥) → (℩𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥)) ∈ 𝐻) |
18 | 16, 17 | syl 17 |
. . . 4
⊢ ((𝐻 ∈
Cℋ ∧ 𝐴 ∈ (𝐻 +ℋ (⊥‘𝐻))) → (℩𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥)) ∈ 𝐻) |
19 | | eleq1 2826 |
. . . 4
⊢
((℩𝑦
∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥)) = 𝐵 → ((℩𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥)) ∈ 𝐻 ↔ 𝐵 ∈ 𝐻)) |
20 | 18, 19 | syl5ibcom 244 |
. . 3
⊢ ((𝐻 ∈
Cℋ ∧ 𝐴 ∈ (𝐻 +ℋ (⊥‘𝐻))) → ((℩𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥)) = 𝐵 → 𝐵 ∈ 𝐻)) |
21 | 20 | pm4.71rd 563 |
. 2
⊢ ((𝐻 ∈
Cℋ ∧ 𝐴 ∈ (𝐻 +ℋ (⊥‘𝐻))) → ((℩𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥)) = 𝐵 ↔ (𝐵 ∈ 𝐻 ∧ (℩𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥)) = 𝐵))) |
22 | | shsss 29675 |
. . . . . 6
⊢ ((𝐻 ∈
Sℋ ∧ (⊥‘𝐻) ∈ Sℋ )
→ (𝐻
+ℋ (⊥‘𝐻)) ⊆ ℋ) |
23 | 1, 2, 22 | syl2anc2 585 |
. . . . 5
⊢ (𝐻 ∈
Cℋ → (𝐻 +ℋ (⊥‘𝐻)) ⊆
ℋ) |
24 | 23 | sselda 3921 |
. . . 4
⊢ ((𝐻 ∈
Cℋ ∧ 𝐴 ∈ (𝐻 +ℋ (⊥‘𝐻))) → 𝐴 ∈ ℋ) |
25 | | pjhval 29759 |
. . . 4
⊢ ((𝐻 ∈
Cℋ ∧ 𝐴 ∈ ℋ) →
((projℎ‘𝐻)‘𝐴) = (℩𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥))) |
26 | 24, 25 | syldan 591 |
. . 3
⊢ ((𝐻 ∈
Cℋ ∧ 𝐴 ∈ (𝐻 +ℋ (⊥‘𝐻))) →
((projℎ‘𝐻)‘𝐴) = (℩𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥))) |
27 | 26 | eqeq1d 2740 |
. 2
⊢ ((𝐻 ∈
Cℋ ∧ 𝐴 ∈ (𝐻 +ℋ (⊥‘𝐻))) →
(((projℎ‘𝐻)‘𝐴) = 𝐵 ↔ (℩𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥)) = 𝐵)) |
28 | | id 22 |
. . . 4
⊢ (𝐵 ∈ 𝐻 → 𝐵 ∈ 𝐻) |
29 | | oveq1 7282 |
. . . . . . 7
⊢ (𝑦 = 𝐵 → (𝑦 +ℎ 𝑥) = (𝐵 +ℎ 𝑥)) |
30 | 29 | eqeq2d 2749 |
. . . . . 6
⊢ (𝑦 = 𝐵 → (𝐴 = (𝑦 +ℎ 𝑥) ↔ 𝐴 = (𝐵 +ℎ 𝑥))) |
31 | 30 | rexbidv 3226 |
. . . . 5
⊢ (𝑦 = 𝐵 → (∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥) ↔ ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝐵 +ℎ 𝑥))) |
32 | 31 | riota2 7258 |
. . . 4
⊢ ((𝐵 ∈ 𝐻 ∧ ∃!𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥)) → (∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝐵 +ℎ 𝑥) ↔ (℩𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥)) = 𝐵)) |
33 | 28, 16, 32 | syl2anr 597 |
. . 3
⊢ (((𝐻 ∈
Cℋ ∧ 𝐴 ∈ (𝐻 +ℋ (⊥‘𝐻))) ∧ 𝐵 ∈ 𝐻) → (∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝐵 +ℎ 𝑥) ↔ (℩𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥)) = 𝐵)) |
34 | 33 | pm5.32da 579 |
. 2
⊢ ((𝐻 ∈
Cℋ ∧ 𝐴 ∈ (𝐻 +ℋ (⊥‘𝐻))) → ((𝐵 ∈ 𝐻 ∧ ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝐵 +ℎ 𝑥)) ↔ (𝐵 ∈ 𝐻 ∧ (℩𝑦 ∈ 𝐻 ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝑦 +ℎ 𝑥)) = 𝐵))) |
35 | 21, 27, 34 | 3bitr4d 311 |
1
⊢ ((𝐻 ∈
Cℋ ∧ 𝐴 ∈ (𝐻 +ℋ (⊥‘𝐻))) →
(((projℎ‘𝐻)‘𝐴) = 𝐵 ↔ (𝐵 ∈ 𝐻 ∧ ∃𝑥 ∈ (⊥‘𝐻)𝐴 = (𝐵 +ℎ 𝑥)))) |