Proof of Theorem moop2
| Step | Hyp | Ref
| Expression |
| 1 | | cleqtr 1118 |
. . . . 5
⊢ ((〈B, x〉 =
A ∧ A = 〈{z∣[y /
x]z
∈ B}, y〉) → 〈B, x〉 =
〈{z∣[y / x]z ∈ B},
y〉) |
| 2 | | cleqcom 1103 |
. . . . 5
⊢ (A =
〈B, x〉 ↔ 〈B, x〉 =
A) |
| 3 | 1, 2 | sylanb 344 |
. . . 4
⊢ ((A =
〈B, x〉 ∧ A
= 〈{z∣[y / x]z ∈ B},
y〉) → 〈B, x〉 =
〈{z∣[y / x]z ∈ B},
y〉) |
| 4 | | visset 1350 |
. . . . 5
⊢ x
∈ V |
| 5 | | visset 1350 |
. . . . 5
⊢ y
∈ V |
| 6 | 4, 5 | opth2 1909 |
. . . 4
⊢ (〈B, x〉 =
〈{z∣[y / x]z ∈ B},
y〉 → x = y) |
| 7 | 3, 6 | syl 12 |
. . 3
⊢ ((A =
〈B, x〉 ∧ A
= 〈{z∣[y / x]z ∈ B},
y〉) → x = y) |
| 8 | 7 | gen2 681 |
. 2
⊢ ∀x∀y((A =
〈B, x〉 ∧ A
= 〈{z∣[y / x]z ∈ B},
y〉) → x = y) |
| 9 | | ax-17 925 |
. . . 4
⊢ (w
∈ A → ∀x w ∈
A) |
| 10 | | hbs1 986 |
. . . . . 6
⊢ ([y /
x]z
∈ B → ∀x[y / x]z ∈
B) |
| 11 | 10 | hbab 1096 |
. . . . 5
⊢ (w
∈ {z∣[y / x]z ∈ B}
→ ∀x w ∈ {z∣[y /
x]z
∈ B}) |
| 12 | | ax-17 925 |
. . . . 5
⊢ (w
∈ y → ∀x w ∈
y) |
| 13 | 11, 12 | hbop 1879 |
. . . 4
⊢ (w
∈ 〈{z∣[y / x]z ∈ B},
y〉 → ∀x w ∈
〈{z∣[y / x]z ∈ B},
y〉) |
| 14 | 9, 13 | hbeq 1171 |
. . 3
⊢ (A =
〈{z∣[y / x]z ∈ B},
y〉 → ∀x A =
〈{z∣[y / x]z ∈ B},
y〉) |
| 15 | | sbab 1188 |
. . . . . 6
⊢ (x =
y → B = {z∣[y /
x]z
∈ B}) |
| 16 | | opeq1 1876 |
. . . . . 6
⊢ (B =
{z∣[y / x]z ∈ B}
→ 〈B, x〉 = 〈{z∣[y /
x]z
∈ B}, x〉) |
| 17 | 15, 16 | syl 12 |
. . . . 5
⊢ (x =
y → 〈B, x〉 =
〈{z∣[y / x]z ∈ B},
x〉) |
| 18 | | opeq2 1877 |
. . . . 5
⊢ (x =
y → 〈{z∣[y /
x]z
∈ B}, x〉 = 〈{z∣[y /
x]z
∈ B}, y〉) |
| 19 | 17, 18 | eqtrd 1128 |
. . . 4
⊢ (x =
y → 〈B, x〉 =
〈{z∣[y / x]z ∈ B},
y〉) |
| 20 | 19 | cleq2d 1112 |
. . 3
⊢ (x =
y → (A = 〈B,
x〉 ↔ A = 〈{z∣[y /
x]z
∈ B}, y〉)) |
| 21 | 14, 20 | mo4f 1028 |
. 2
⊢ (∃*x A =
〈B, x〉 ↔ ∀x∀y((A =
〈B, x〉 ∧ A
= 〈{z∣[y / x]z ∈ B},
y〉) → x = y)) |
| 22 | 8, 21 | mpbir 165 |
1
⊢ ∃*x A =
〈B, x〉 |