Proof of Theorem csbnegg
| Step | Hyp | Ref
| Expression |
| 1 | | ax-17 969 |
. . . 4
⊢ (A
∈ C → ∀y A ∈
C) |
| 2 | | ax-17 969 |
. . . . 5
⊢ (z
∈ A → ∀y z ∈
A) |
| 3 | 2 | hbcsb1g 2020 |
. . . 4
⊢ (A
∈ C → (z ∈ [A / y][y / x]B
→ ∀y z ∈ [A / y][y / x]B)) |
| 4 | 1, 3 | hbnegd 5343 |
. . 3
⊢ (A
∈ C → (z ∈ -[A / y][y / x]B
→ ∀y z ∈ -[A / y][y / x]B)) |
| 5 | | csbeq1a 2002 |
. . . . 5
⊢ (y =
A → [y / x]B =
[A / y][y / x]B) |
| 6 | 5 | negeqd 5341 |
. . . 4
⊢ (y =
A → -[y / x]B =
-[A / y][y / x]B) |
| 7 | | a9e 1123 |
. . . . 5
⊢ ∃x x = y |
| 8 | | visset 1809 |
. . . . . . . 8
⊢ y
∈ V |
| 9 | | ax-17 969 |
. . . . . . . 8
⊢ (z
∈ y → ∀x z ∈
y) |
| 10 | 8, 9 | hbcsb1 2021 |
. . . . . . 7
⊢ (z
∈ [y / x]-B
→ ∀x z ∈ [y / x]-B) |
| 11 | 8, 9 | hbcsb1 2021 |
. . . . . . . 8
⊢ (z
∈ [y / x]B
→ ∀x z ∈ [y / x]B) |
| 12 | 11 | hbneg 5342 |
. . . . . . 7
⊢ (z
∈ -[y / x]B
→ ∀x z ∈ -[y / x]B) |
| 13 | 10, 12 | hbeq 1562 |
. . . . . 6
⊢ ([y / x]-B =
-[y / x]B
→ ∀x[y / x]-B =
-[y / x]B) |
| 14 | | csbeq1a 2002 |
. . . . . . 7
⊢ (x =
y → -B = [y /
x]-B) |
| 15 | | csbeq1a 2002 |
. . . . . . . 8
⊢ (x =
y → B = [y /
x]B) |
| 16 | 15 | negeqd 5341 |
. . . . . . 7
⊢ (x =
y → -B = -[y /
x]B) |
| 17 | 14, 16 | eqtr3d 1506 |
. . . . . 6
⊢ (x =
y → [y / x]-B =
-[y / x]B) |
| 18 | 13, 17 | 19.23ai 1062 |
. . . . 5
⊢ (∃x x = y → [y / x]-B =
-[y / x]B) |
| 19 | 7, 18 | ax-mp 7 |
. . . 4
⊢ [y / x]-B =
-[y / x]B |
| 20 | 6, 19 | syl5eq 1516 |
. . 3
⊢ (y =
A → [y / x]-B =
-[A / y][y / x]B) |
| 21 | 4, 20 | csbiegf 2027 |
. 2
⊢ (A
∈ C → [A / y][y / x]-B =
-[A / y][y / x]B) |
| 22 | | csbcog 2003 |
. 2
⊢ (A
∈ C → [A / y][y / x]-B =
[A / x]-B) |
| 23 | | csbcog 2003 |
. . 3
⊢ (A
∈ C → [A / y][y / x]B =
[A / x]B) |
| 24 | 23 | negeqd 5341 |
. 2
⊢ (A
∈ C → -[A / y][y / x]B =
-[A / x]B) |
| 25 | 21, 22, 24 | 3eqtr3d 1512 |
1
⊢ (A
∈ C → [A / x]-B =
-[A / x]B) |