Proof of Theorem bj-elid6
Step | Hyp | Ref
| Expression |
1 | | df-res 5592 |
. . . 4
⊢ ( I
↾ 𝐴) = ( I ∩
(𝐴 ×
V)) |
2 | 1 | elin2 4127 |
. . 3
⊢ (𝐵 ∈ ( I ↾ 𝐴) ↔ (𝐵 ∈ I ∧ 𝐵 ∈ (𝐴 × V))) |
3 | 2 | biancomi 462 |
. 2
⊢ (𝐵 ∈ ( I ↾ 𝐴) ↔ (𝐵 ∈ (𝐴 × V) ∧ 𝐵 ∈ I )) |
4 | | bj-elid4 35266 |
. . 3
⊢ (𝐵 ∈ (𝐴 × V) → (𝐵 ∈ I ↔ (1st
‘𝐵) = (2nd
‘𝐵))) |
5 | 4 | pm5.32i 574 |
. 2
⊢ ((𝐵 ∈ (𝐴 × V) ∧ 𝐵 ∈ I ) ↔ (𝐵 ∈ (𝐴 × V) ∧ (1st
‘𝐵) = (2nd
‘𝐵))) |
6 | | 1st2nd2 7843 |
. . . . 5
⊢ (𝐵 ∈ (𝐴 × V) → 𝐵 = 〈(1st ‘𝐵), (2nd ‘𝐵)〉) |
7 | 6 | pm4.71ri 560 |
. . . 4
⊢ (𝐵 ∈ (𝐴 × V) ↔ (𝐵 = 〈(1st ‘𝐵), (2nd ‘𝐵)〉 ∧ 𝐵 ∈ (𝐴 × V))) |
8 | | eleq1 2826 |
. . . . . . . 8
⊢ (𝐵 = 〈(1st
‘𝐵), (2nd
‘𝐵)〉 →
(𝐵 ∈ (𝐴 × V) ↔
〈(1st ‘𝐵), (2nd ‘𝐵)〉 ∈ (𝐴 × V))) |
9 | 8 | adantl 481 |
. . . . . . 7
⊢
(((1st ‘𝐵) = (2nd ‘𝐵) ∧ 𝐵 = 〈(1st ‘𝐵), (2nd ‘𝐵)〉) → (𝐵 ∈ (𝐴 × V) ↔ 〈(1st
‘𝐵), (2nd
‘𝐵)〉 ∈
(𝐴 ×
V))) |
10 | | simpl 482 |
. . . . . . . . . . . 12
⊢
(((1st ‘𝐵) ∈ 𝐴 ∧ (2nd ‘𝐵) ∈ V) →
(1st ‘𝐵)
∈ 𝐴) |
11 | 10 | a1i 11 |
. . . . . . . . . . 11
⊢
((1st ‘𝐵) = (2nd ‘𝐵) → (((1st ‘𝐵) ∈ 𝐴 ∧ (2nd ‘𝐵) ∈ V) →
(1st ‘𝐵)
∈ 𝐴)) |
12 | | eleq1 2826 |
. . . . . . . . . . . 12
⊢
((1st ‘𝐵) = (2nd ‘𝐵) → ((1st ‘𝐵) ∈ 𝐴 ↔ (2nd ‘𝐵) ∈ 𝐴)) |
13 | 10, 12 | syl5ib 243 |
. . . . . . . . . . 11
⊢
((1st ‘𝐵) = (2nd ‘𝐵) → (((1st ‘𝐵) ∈ 𝐴 ∧ (2nd ‘𝐵) ∈ V) →
(2nd ‘𝐵)
∈ 𝐴)) |
14 | 11, 13 | jcad 512 |
. . . . . . . . . 10
⊢
((1st ‘𝐵) = (2nd ‘𝐵) → (((1st ‘𝐵) ∈ 𝐴 ∧ (2nd ‘𝐵) ∈ V) →
((1st ‘𝐵)
∈ 𝐴 ∧
(2nd ‘𝐵)
∈ 𝐴))) |
15 | | elex 3440 |
. . . . . . . . . . 11
⊢
((2nd ‘𝐵) ∈ 𝐴 → (2nd ‘𝐵) ∈ V) |
16 | 15 | anim2i 616 |
. . . . . . . . . 10
⊢
(((1st ‘𝐵) ∈ 𝐴 ∧ (2nd ‘𝐵) ∈ 𝐴) → ((1st ‘𝐵) ∈ 𝐴 ∧ (2nd ‘𝐵) ∈ V)) |
17 | 14, 16 | impbid1 224 |
. . . . . . . . 9
⊢
((1st ‘𝐵) = (2nd ‘𝐵) → (((1st ‘𝐵) ∈ 𝐴 ∧ (2nd ‘𝐵) ∈ V) ↔
((1st ‘𝐵)
∈ 𝐴 ∧
(2nd ‘𝐵)
∈ 𝐴))) |
18 | 17 | adantr 480 |
. . . . . . . 8
⊢
(((1st ‘𝐵) = (2nd ‘𝐵) ∧ 𝐵 = 〈(1st ‘𝐵), (2nd ‘𝐵)〉) →
(((1st ‘𝐵)
∈ 𝐴 ∧
(2nd ‘𝐵)
∈ V) ↔ ((1st ‘𝐵) ∈ 𝐴 ∧ (2nd ‘𝐵) ∈ 𝐴))) |
19 | | opelxp 5616 |
. . . . . . . 8
⊢
(〈(1st ‘𝐵), (2nd ‘𝐵)〉 ∈ (𝐴 × V) ↔ ((1st
‘𝐵) ∈ 𝐴 ∧ (2nd
‘𝐵) ∈
V)) |
20 | | opelxp 5616 |
. . . . . . . 8
⊢
(〈(1st ‘𝐵), (2nd ‘𝐵)〉 ∈ (𝐴 × 𝐴) ↔ ((1st ‘𝐵) ∈ 𝐴 ∧ (2nd ‘𝐵) ∈ 𝐴)) |
21 | 18, 19, 20 | 3bitr4g 313 |
. . . . . . 7
⊢
(((1st ‘𝐵) = (2nd ‘𝐵) ∧ 𝐵 = 〈(1st ‘𝐵), (2nd ‘𝐵)〉) →
(〈(1st ‘𝐵), (2nd ‘𝐵)〉 ∈ (𝐴 × V) ↔ 〈(1st
‘𝐵), (2nd
‘𝐵)〉 ∈
(𝐴 × 𝐴))) |
22 | | eleq1 2826 |
. . . . . . . . 9
⊢ (𝐵 = 〈(1st
‘𝐵), (2nd
‘𝐵)〉 →
(𝐵 ∈ (𝐴 × 𝐴) ↔ 〈(1st ‘𝐵), (2nd ‘𝐵)〉 ∈ (𝐴 × 𝐴))) |
23 | 22 | bicomd 222 |
. . . . . . . 8
⊢ (𝐵 = 〈(1st
‘𝐵), (2nd
‘𝐵)〉 →
(〈(1st ‘𝐵), (2nd ‘𝐵)〉 ∈ (𝐴 × 𝐴) ↔ 𝐵 ∈ (𝐴 × 𝐴))) |
24 | 23 | adantl 481 |
. . . . . . 7
⊢
(((1st ‘𝐵) = (2nd ‘𝐵) ∧ 𝐵 = 〈(1st ‘𝐵), (2nd ‘𝐵)〉) →
(〈(1st ‘𝐵), (2nd ‘𝐵)〉 ∈ (𝐴 × 𝐴) ↔ 𝐵 ∈ (𝐴 × 𝐴))) |
25 | 9, 21, 24 | 3bitrd 304 |
. . . . . 6
⊢
(((1st ‘𝐵) = (2nd ‘𝐵) ∧ 𝐵 = 〈(1st ‘𝐵), (2nd ‘𝐵)〉) → (𝐵 ∈ (𝐴 × V) ↔ 𝐵 ∈ (𝐴 × 𝐴))) |
26 | 25 | pm5.32da 578 |
. . . . 5
⊢
((1st ‘𝐵) = (2nd ‘𝐵) → ((𝐵 = 〈(1st ‘𝐵), (2nd ‘𝐵)〉 ∧ 𝐵 ∈ (𝐴 × V)) ↔ (𝐵 = 〈(1st ‘𝐵), (2nd ‘𝐵)〉 ∧ 𝐵 ∈ (𝐴 × 𝐴)))) |
27 | | simpr 484 |
. . . . . 6
⊢ ((𝐵 = 〈(1st
‘𝐵), (2nd
‘𝐵)〉 ∧ 𝐵 ∈ (𝐴 × 𝐴)) → 𝐵 ∈ (𝐴 × 𝐴)) |
28 | | 1st2nd2 7843 |
. . . . . . 7
⊢ (𝐵 ∈ (𝐴 × 𝐴) → 𝐵 = 〈(1st ‘𝐵), (2nd ‘𝐵)〉) |
29 | 28 | ancri 549 |
. . . . . 6
⊢ (𝐵 ∈ (𝐴 × 𝐴) → (𝐵 = 〈(1st ‘𝐵), (2nd ‘𝐵)〉 ∧ 𝐵 ∈ (𝐴 × 𝐴))) |
30 | 27, 29 | impbii 208 |
. . . . 5
⊢ ((𝐵 = 〈(1st
‘𝐵), (2nd
‘𝐵)〉 ∧ 𝐵 ∈ (𝐴 × 𝐴)) ↔ 𝐵 ∈ (𝐴 × 𝐴)) |
31 | 26, 30 | bitrdi 286 |
. . . 4
⊢
((1st ‘𝐵) = (2nd ‘𝐵) → ((𝐵 = 〈(1st ‘𝐵), (2nd ‘𝐵)〉 ∧ 𝐵 ∈ (𝐴 × V)) ↔ 𝐵 ∈ (𝐴 × 𝐴))) |
32 | 7, 31 | syl5bb 282 |
. . 3
⊢
((1st ‘𝐵) = (2nd ‘𝐵) → (𝐵 ∈ (𝐴 × V) ↔ 𝐵 ∈ (𝐴 × 𝐴))) |
33 | 32 | pm5.32ri 575 |
. 2
⊢ ((𝐵 ∈ (𝐴 × V) ∧ (1st
‘𝐵) = (2nd
‘𝐵)) ↔ (𝐵 ∈ (𝐴 × 𝐴) ∧ (1st ‘𝐵) = (2nd ‘𝐵))) |
34 | 3, 5, 33 | 3bitri 296 |
1
⊢ (𝐵 ∈ ( I ↾ 𝐴) ↔ (𝐵 ∈ (𝐴 × 𝐴) ∧ (1st ‘𝐵) = (2nd ‘𝐵))) |