Step | Hyp | Ref
| Expression |
1 | | nfv 1922 |
. . . 4
⊢
Ⅎ𝑎((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) |
2 | | nfv 1922 |
. . . . . . 7
⊢
Ⅎ𝑎〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 |
3 | | nfcv 2904 |
. . . . . . . 8
⊢
Ⅎ𝑎𝑦 |
4 | | nfsbc1v 3714 |
. . . . . . . 8
⊢
Ⅎ𝑎[𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑) |
5 | 3, 4 | nfsbcw 3716 |
. . . . . . 7
⊢
Ⅎ𝑎[𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑) |
6 | 2, 5 | nfan 1907 |
. . . . . 6
⊢
Ⅎ𝑎(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑)) |
7 | 6 | nfex 2323 |
. . . . 5
⊢
Ⅎ𝑎∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑)) |
8 | 7 | nfex 2323 |
. . . 4
⊢
Ⅎ𝑎∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑)) |
9 | | nfv 1922 |
. . . . 5
⊢
Ⅎ𝑏((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) |
10 | | nfv 1922 |
. . . . . . . 8
⊢
Ⅎ𝑏〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 |
11 | | nfsbc1v 3714 |
. . . . . . . 8
⊢
Ⅎ𝑏[𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑) |
12 | 10, 11 | nfan 1907 |
. . . . . . 7
⊢
Ⅎ𝑏(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑)) |
13 | 12 | nfex 2323 |
. . . . . 6
⊢
Ⅎ𝑏∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑)) |
14 | 13 | nfex 2323 |
. . . . 5
⊢
Ⅎ𝑏∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑)) |
15 | | vex 3412 |
. . . . . . . . . 10
⊢ 𝑎 ∈ V |
16 | | vex 3412 |
. . . . . . . . . 10
⊢ 𝑏 ∈ V |
17 | | preq12bg 4764 |
. . . . . . . . . 10
⊢ (((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (𝑎 ∈ V ∧ 𝑏 ∈ V)) → ({𝐴, 𝐵} = {𝑎, 𝑏} ↔ ((𝐴 = 𝑎 ∧ 𝐵 = 𝑏) ∨ (𝐴 = 𝑏 ∧ 𝐵 = 𝑎)))) |
18 | 15, 16, 17 | mpanr12 705 |
. . . . . . . . 9
⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ({𝐴, 𝐵} = {𝑎, 𝑏} ↔ ((𝐴 = 𝑎 ∧ 𝐵 = 𝑏) ∨ (𝐴 = 𝑏 ∧ 𝐵 = 𝑎)))) |
19 | 18 | 3adant3 1134 |
. . . . . . . 8
⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵) → ({𝐴, 𝐵} = {𝑎, 𝑏} ↔ ((𝐴 = 𝑎 ∧ 𝐵 = 𝑏) ∨ (𝐴 = 𝑏 ∧ 𝐵 = 𝑎)))) |
20 | 19 | adantl 485 |
. . . . . . 7
⊢ (((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) → ({𝐴, 𝐵} = {𝑎, 𝑏} ↔ ((𝐴 = 𝑎 ∧ 𝐵 = 𝑏) ∨ (𝐴 = 𝑏 ∧ 𝐵 = 𝑎)))) |
21 | | or2expropbilem1 44198 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((𝐴 = 𝑎 ∧ 𝐵 = 𝑏) → ((𝑎𝑅𝑏 ∧ 𝜑) → ∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑))))) |
22 | 21 | 3adant3 1134 |
. . . . . . . . 9
⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵) → ((𝐴 = 𝑎 ∧ 𝐵 = 𝑏) → ((𝑎𝑅𝑏 ∧ 𝜑) → ∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑))))) |
23 | 22 | adantl 485 |
. . . . . . . 8
⊢ (((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) → ((𝐴 = 𝑎 ∧ 𝐵 = 𝑏) → ((𝑎𝑅𝑏 ∧ 𝜑) → ∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑))))) |
24 | | breq12 5058 |
. . . . . . . . . . . . 13
⊢ ((𝐵 = 𝑎 ∧ 𝐴 = 𝑏) → (𝐵𝑅𝐴 ↔ 𝑎𝑅𝑏)) |
25 | 24 | ancoms 462 |
. . . . . . . . . . . 12
⊢ ((𝐴 = 𝑏 ∧ 𝐵 = 𝑎) → (𝐵𝑅𝐴 ↔ 𝑎𝑅𝑏)) |
26 | 25 | adantl 485 |
. . . . . . . . . . 11
⊢ ((((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) ∧ (𝐴 = 𝑏 ∧ 𝐵 = 𝑎)) → (𝐵𝑅𝐴 ↔ 𝑎𝑅𝑏)) |
27 | | soasym 5499 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝑅 Or 𝑋 ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋)) → (𝐴𝑅𝐵 → ¬ 𝐵𝑅𝐴)) |
28 | 27 | ex 416 |
. . . . . . . . . . . . . . . 16
⊢ (𝑅 Or 𝑋 → ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝐴𝑅𝐵 → ¬ 𝐵𝑅𝐴))) |
29 | 28 | adantl 485 |
. . . . . . . . . . . . . . 15
⊢ ((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) → ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝐴𝑅𝐵 → ¬ 𝐵𝑅𝐴))) |
30 | 29 | expd 419 |
. . . . . . . . . . . . . 14
⊢ ((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) → (𝐴 ∈ 𝑋 → (𝐵 ∈ 𝑋 → (𝐴𝑅𝐵 → ¬ 𝐵𝑅𝐴)))) |
31 | 30 | 3imp2 1351 |
. . . . . . . . . . . . 13
⊢ (((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) → ¬ 𝐵𝑅𝐴) |
32 | 31 | pm2.21d 121 |
. . . . . . . . . . . 12
⊢ (((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) → (𝐵𝑅𝐴 → (𝜑 → ∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑))))) |
33 | 32 | adantr 484 |
. . . . . . . . . . 11
⊢ ((((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) ∧ (𝐴 = 𝑏 ∧ 𝐵 = 𝑎)) → (𝐵𝑅𝐴 → (𝜑 → ∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑))))) |
34 | 26, 33 | sylbird 263 |
. . . . . . . . . 10
⊢ ((((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) ∧ (𝐴 = 𝑏 ∧ 𝐵 = 𝑎)) → (𝑎𝑅𝑏 → (𝜑 → ∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑))))) |
35 | 34 | impd 414 |
. . . . . . . . 9
⊢ ((((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) ∧ (𝐴 = 𝑏 ∧ 𝐵 = 𝑎)) → ((𝑎𝑅𝑏 ∧ 𝜑) → ∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑)))) |
36 | 35 | ex 416 |
. . . . . . . 8
⊢ (((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) → ((𝐴 = 𝑏 ∧ 𝐵 = 𝑎) → ((𝑎𝑅𝑏 ∧ 𝜑) → ∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑))))) |
37 | 23, 36 | jaod 859 |
. . . . . . 7
⊢ (((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) → (((𝐴 = 𝑎 ∧ 𝐵 = 𝑏) ∨ (𝐴 = 𝑏 ∧ 𝐵 = 𝑎)) → ((𝑎𝑅𝑏 ∧ 𝜑) → ∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑))))) |
38 | 20, 37 | sylbid 243 |
. . . . . 6
⊢ (((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) → ({𝐴, 𝐵} = {𝑎, 𝑏} → ((𝑎𝑅𝑏 ∧ 𝜑) → ∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑))))) |
39 | 38 | impd 414 |
. . . . 5
⊢ (((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) → (({𝐴, 𝐵} = {𝑎, 𝑏} ∧ (𝑎𝑅𝑏 ∧ 𝜑)) → ∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑)))) |
40 | 9, 14, 39 | exlimd 2216 |
. . . 4
⊢ (((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) → (∃𝑏({𝐴, 𝐵} = {𝑎, 𝑏} ∧ (𝑎𝑅𝑏 ∧ 𝜑)) → ∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑)))) |
41 | 1, 8, 40 | exlimd 2216 |
. . 3
⊢ (((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) → (∃𝑎∃𝑏({𝐴, 𝐵} = {𝑎, 𝑏} ∧ (𝑎𝑅𝑏 ∧ 𝜑)) → ∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑)))) |
42 | | or2expropbilem2 44199 |
. . 3
⊢
(∃𝑎∃𝑏(〈𝐴, 𝐵〉 = 〈𝑎, 𝑏〉 ∧ (𝑎𝑅𝑏 ∧ 𝜑)) ↔ ∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ [𝑦 / 𝑏][𝑥 / 𝑎](𝑎𝑅𝑏 ∧ 𝜑))) |
43 | 41, 42 | syl6ibr 255 |
. 2
⊢ (((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) → (∃𝑎∃𝑏({𝐴, 𝐵} = {𝑎, 𝑏} ∧ (𝑎𝑅𝑏 ∧ 𝜑)) → ∃𝑎∃𝑏(〈𝐴, 𝐵〉 = 〈𝑎, 𝑏〉 ∧ (𝑎𝑅𝑏 ∧ 𝜑)))) |
44 | | oppr 44196 |
. . . . . 6
⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (〈𝐴, 𝐵〉 = 〈𝑎, 𝑏〉 → {𝐴, 𝐵} = {𝑎, 𝑏})) |
45 | 44 | anim1d 614 |
. . . . 5
⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((〈𝐴, 𝐵〉 = 〈𝑎, 𝑏〉 ∧ (𝑎𝑅𝑏 ∧ 𝜑)) → ({𝐴, 𝐵} = {𝑎, 𝑏} ∧ (𝑎𝑅𝑏 ∧ 𝜑)))) |
46 | 45 | 2eximdv 1927 |
. . . 4
⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (∃𝑎∃𝑏(〈𝐴, 𝐵〉 = 〈𝑎, 𝑏〉 ∧ (𝑎𝑅𝑏 ∧ 𝜑)) → ∃𝑎∃𝑏({𝐴, 𝐵} = {𝑎, 𝑏} ∧ (𝑎𝑅𝑏 ∧ 𝜑)))) |
47 | 46 | 3adant3 1134 |
. . 3
⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵) → (∃𝑎∃𝑏(〈𝐴, 𝐵〉 = 〈𝑎, 𝑏〉 ∧ (𝑎𝑅𝑏 ∧ 𝜑)) → ∃𝑎∃𝑏({𝐴, 𝐵} = {𝑎, 𝑏} ∧ (𝑎𝑅𝑏 ∧ 𝜑)))) |
48 | 47 | adantl 485 |
. 2
⊢ (((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) → (∃𝑎∃𝑏(〈𝐴, 𝐵〉 = 〈𝑎, 𝑏〉 ∧ (𝑎𝑅𝑏 ∧ 𝜑)) → ∃𝑎∃𝑏({𝐴, 𝐵} = {𝑎, 𝑏} ∧ (𝑎𝑅𝑏 ∧ 𝜑)))) |
49 | 43, 48 | impbid 215 |
1
⊢ (((𝑋 ∈ 𝑉 ∧ 𝑅 Or 𝑋) ∧ (𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋 ∧ 𝐴𝑅𝐵)) → (∃𝑎∃𝑏({𝐴, 𝐵} = {𝑎, 𝑏} ∧ (𝑎𝑅𝑏 ∧ 𝜑)) ↔ ∃𝑎∃𝑏(〈𝐴, 𝐵〉 = 〈𝑎, 𝑏〉 ∧ (𝑎𝑅𝑏 ∧ 𝜑)))) |