Proof of Theorem cmbrt
| Step | Hyp | Ref
| Expression |
| 1 | | eleq1 1149 |
. . . . 5
⊢ (x =
A → (x ∈ Cℋ ↔ A ∈ Cℋ )) |
| 2 | 1 | anbi1d 469 |
. . . 4
⊢ (x =
A → ((x ∈ Cℋ ∧ y ∈ Cℋ ) ↔
(A ∈ Cℋ ∧
y ∈ Cℋ
))) |
| 3 | | id 9 |
. . . . 5
⊢ (x =
A → x = A) |
| 4 | | ineq1 1638 |
. . . . . 6
⊢ (x =
A → (x ∩ y) =
(A ∩ y)) |
| 5 | | ineq1 1638 |
. . . . . 6
⊢ (x =
A → (x ∩ (⊥ ‘y)) = (A ∩
(⊥ ‘y))) |
| 6 | 4, 5 | opreq12d 3014 |
. . . . 5
⊢ (x =
A → ((x ∩ y)
∨ℋ (x ∩ (⊥
‘y))) = ((A ∩ y)
∨ℋ (A ∩ (⊥
‘y)))) |
| 7 | 3, 6 | cleq12d 1115 |
. . . 4
⊢ (x =
A → (x = ((x ∩
y) ∨ℋ (x ∩ (⊥ ‘y))) ↔ A =
((A ∩ y) ∨ℋ (A ∩ (⊥ ‘y))))) |
| 8 | 2, 7 | anbi12d 476 |
. . 3
⊢ (x =
A → (((x ∈ Cℋ ∧ y ∈ Cℋ ) ∧ x = ((x ∩
y) ∨ℋ (x ∩ (⊥ ‘y)))) ↔ ((A
∈ Cℋ ∧ y
∈ Cℋ ) ∧ A
= ((A ∩ y) ∨ℋ (A ∩ (⊥ ‘y)))))) |
| 9 | | eleq1 1149 |
. . . . 5
⊢ (y =
B → (y ∈ Cℋ ↔ B ∈ Cℋ )) |
| 10 | 9 | anbi2d 468 |
. . . 4
⊢ (y =
B → ((A ∈ Cℋ ∧ y ∈ Cℋ ) ↔
(A ∈ Cℋ ∧
B ∈ Cℋ
))) |
| 11 | | ineq2 1639 |
. . . . . 6
⊢ (y =
B → (A ∩ y) =
(A ∩ B)) |
| 12 | | fveq2 2832 |
. . . . . . 7
⊢ (y =
B → (⊥ ‘y) = (⊥ ‘B)) |
| 13 | 12 | ineq2d 1645 |
. . . . . 6
⊢ (y =
B → (A ∩ (⊥ ‘y)) = (A ∩
(⊥ ‘B))) |
| 14 | 11, 13 | opreq12d 3014 |
. . . . 5
⊢ (y =
B → ((A ∩ y)
∨ℋ (A ∩ (⊥
‘y))) = ((A ∩ B)
∨ℋ (A ∩ (⊥
‘B)))) |
| 15 | 14 | cleq2d 1112 |
. . . 4
⊢ (y =
B → (A = ((A ∩
y) ∨ℋ (A ∩ (⊥ ‘y))) ↔ A =
((A ∩ B) ∨ℋ (A ∩ (⊥ ‘B))))) |
| 16 | 10, 15 | anbi12d 476 |
. . 3
⊢ (y =
B → (((A ∈ Cℋ ∧ y ∈ Cℋ ) ∧ A = ((A ∩
y) ∨ℋ (A ∩ (⊥ ‘y)))) ↔ ((A
∈ Cℋ ∧ B
∈ Cℋ ) ∧ A
= ((A ∩ B) ∨ℋ (A ∩ (⊥ ‘B)))))) |
| 17 | | df-cm 5493 |
. . 3
⊢ Com = {〈x, y〉∣((x ∈ Cℋ ∧ y ∈ Cℋ ) ∧ x = ((x ∩
y) ∨ℋ (x ∩ (⊥ ‘y))))} |
| 18 | 8, 16, 17 | brabg 2116 |
. 2
⊢ ((A
∈ Cℋ ∧ B
∈ Cℋ ) → (A Com B ↔
((A ∈ Cℋ ∧
B ∈ Cℋ ) ∧
A = ((A
∩ B) ∨ℋ (A ∩ (⊥ ‘B)))))) |
| 19 | | ibar 487 |
. 2
⊢ ((A
∈ Cℋ ∧ B
∈ Cℋ ) → (A = ((A ∩
B) ∨ℋ (A ∩ (⊥ ‘B))) ↔ ((A
∈ Cℋ ∧ B
∈ Cℋ ) ∧ A
= ((A ∩ B) ∨ℋ (A ∩ (⊥ ‘B)))))) |
| 20 | 18, 19 | bitr4d 409 |
1
⊢ ((A
∈ Cℋ ∧ B
∈ Cℋ ) → (A Com B ↔
A = ((A
∩ B) ∨ℋ (A ∩ (⊥ ‘B))))) |