Proof of Theorem abfmpeld
Step | Hyp | Ref
| Expression |
1 | | abfmpeld.2 |
. . . . . . . . . 10
⊢ (𝜑 → {𝑦 ∣ 𝜓} ∈ V) |
2 | 1 | alrimiv 1930 |
. . . . . . . . 9
⊢ (𝜑 → ∀𝑥{𝑦 ∣ 𝜓} ∈ V) |
3 | | csbexg 5234 |
. . . . . . . . 9
⊢
(∀𝑥{𝑦 ∣ 𝜓} ∈ V → ⦋𝐴 / 𝑥⦌{𝑦 ∣ 𝜓} ∈ V) |
4 | 2, 3 | syl 17 |
. . . . . . . 8
⊢ (𝜑 → ⦋𝐴 / 𝑥⦌{𝑦 ∣ 𝜓} ∈ V) |
5 | | abfmpeld.1 |
. . . . . . . . 9
⊢ 𝐹 = (𝑥 ∈ 𝑉 ↦ {𝑦 ∣ 𝜓}) |
6 | 5 | fvmpts 6878 |
. . . . . . . 8
⊢ ((𝐴 ∈ 𝑉 ∧ ⦋𝐴 / 𝑥⦌{𝑦 ∣ 𝜓} ∈ V) → (𝐹‘𝐴) = ⦋𝐴 / 𝑥⦌{𝑦 ∣ 𝜓}) |
7 | 4, 6 | sylan2 593 |
. . . . . . 7
⊢ ((𝐴 ∈ 𝑉 ∧ 𝜑) → (𝐹‘𝐴) = ⦋𝐴 / 𝑥⦌{𝑦 ∣ 𝜓}) |
8 | | csbab 4371 |
. . . . . . 7
⊢
⦋𝐴 /
𝑥⦌{𝑦 ∣ 𝜓} = {𝑦 ∣ [𝐴 / 𝑥]𝜓} |
9 | 7, 8 | eqtrdi 2794 |
. . . . . 6
⊢ ((𝐴 ∈ 𝑉 ∧ 𝜑) → (𝐹‘𝐴) = {𝑦 ∣ [𝐴 / 𝑥]𝜓}) |
10 | 9 | eleq2d 2824 |
. . . . 5
⊢ ((𝐴 ∈ 𝑉 ∧ 𝜑) → (𝐵 ∈ (𝐹‘𝐴) ↔ 𝐵 ∈ {𝑦 ∣ [𝐴 / 𝑥]𝜓})) |
11 | 10 | adantl 482 |
. . . 4
⊢ ((𝐵 ∈ 𝑊 ∧ (𝐴 ∈ 𝑉 ∧ 𝜑)) → (𝐵 ∈ (𝐹‘𝐴) ↔ 𝐵 ∈ {𝑦 ∣ [𝐴 / 𝑥]𝜓})) |
12 | | simpll 764 |
. . . . . . . 8
⊢ (((𝐴 ∈ 𝑉 ∧ 𝜑) ∧ 𝑦 = 𝐵) → 𝐴 ∈ 𝑉) |
13 | | abfmpeld.3 |
. . . . . . . . . . 11
⊢ (𝜑 → ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (𝜓 ↔ 𝜒))) |
14 | 13 | ancomsd 466 |
. . . . . . . . . 10
⊢ (𝜑 → ((𝑦 = 𝐵 ∧ 𝑥 = 𝐴) → (𝜓 ↔ 𝜒))) |
15 | 14 | adantl 482 |
. . . . . . . . 9
⊢ ((𝐴 ∈ 𝑉 ∧ 𝜑) → ((𝑦 = 𝐵 ∧ 𝑥 = 𝐴) → (𝜓 ↔ 𝜒))) |
16 | 15 | impl 456 |
. . . . . . . 8
⊢ ((((𝐴 ∈ 𝑉 ∧ 𝜑) ∧ 𝑦 = 𝐵) ∧ 𝑥 = 𝐴) → (𝜓 ↔ 𝜒)) |
17 | 12, 16 | sbcied 3761 |
. . . . . . 7
⊢ (((𝐴 ∈ 𝑉 ∧ 𝜑) ∧ 𝑦 = 𝐵) → ([𝐴 / 𝑥]𝜓 ↔ 𝜒)) |
18 | 17 | ex 413 |
. . . . . 6
⊢ ((𝐴 ∈ 𝑉 ∧ 𝜑) → (𝑦 = 𝐵 → ([𝐴 / 𝑥]𝜓 ↔ 𝜒))) |
19 | 18 | alrimiv 1930 |
. . . . 5
⊢ ((𝐴 ∈ 𝑉 ∧ 𝜑) → ∀𝑦(𝑦 = 𝐵 → ([𝐴 / 𝑥]𝜓 ↔ 𝜒))) |
20 | | elabgt 3603 |
. . . . 5
⊢ ((𝐵 ∈ 𝑊 ∧ ∀𝑦(𝑦 = 𝐵 → ([𝐴 / 𝑥]𝜓 ↔ 𝜒))) → (𝐵 ∈ {𝑦 ∣ [𝐴 / 𝑥]𝜓} ↔ 𝜒)) |
21 | 19, 20 | sylan2 593 |
. . . 4
⊢ ((𝐵 ∈ 𝑊 ∧ (𝐴 ∈ 𝑉 ∧ 𝜑)) → (𝐵 ∈ {𝑦 ∣ [𝐴 / 𝑥]𝜓} ↔ 𝜒)) |
22 | 11, 21 | bitrd 278 |
. . 3
⊢ ((𝐵 ∈ 𝑊 ∧ (𝐴 ∈ 𝑉 ∧ 𝜑)) → (𝐵 ∈ (𝐹‘𝐴) ↔ 𝜒)) |
23 | 22 | an13s 648 |
. 2
⊢ ((𝜑 ∧ (𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊)) → (𝐵 ∈ (𝐹‘𝐴) ↔ 𝜒)) |
24 | 23 | ex 413 |
1
⊢ (𝜑 → ((𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑊) → (𝐵 ∈ (𝐹‘𝐴) ↔ 𝜒))) |