Proof of Theorem asymref
Step | Hyp | Ref
| Expression |
1 | | df-br 5071 |
. . . . . . . . . . 11
⊢ (𝑥𝑅𝑦 ↔ 〈𝑥, 𝑦〉 ∈ 𝑅) |
2 | | vex 3426 |
. . . . . . . . . . . 12
⊢ 𝑥 ∈ V |
3 | | vex 3426 |
. . . . . . . . . . . 12
⊢ 𝑦 ∈ V |
4 | 2, 3 | opeluu 5379 |
. . . . . . . . . . 11
⊢
(〈𝑥, 𝑦〉 ∈ 𝑅 → (𝑥 ∈ ∪ ∪ 𝑅
∧ 𝑦 ∈ ∪ ∪ 𝑅)) |
5 | 1, 4 | sylbi 216 |
. . . . . . . . . 10
⊢ (𝑥𝑅𝑦 → (𝑥 ∈ ∪ ∪ 𝑅
∧ 𝑦 ∈ ∪ ∪ 𝑅)) |
6 | 5 | simpld 494 |
. . . . . . . . 9
⊢ (𝑥𝑅𝑦 → 𝑥 ∈ ∪ ∪ 𝑅) |
7 | 6 | adantr 480 |
. . . . . . . 8
⊢ ((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥) → 𝑥 ∈ ∪ ∪ 𝑅) |
8 | 7 | pm4.71ri 560 |
. . . . . . 7
⊢ ((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥) ↔ (𝑥 ∈ ∪ ∪ 𝑅
∧ (𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥))) |
9 | 8 | bibi1i 338 |
. . . . . 6
⊢ (((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥) ↔ (𝑥 ∈ ∪ ∪ 𝑅
∧ 𝑥 = 𝑦)) ↔ ((𝑥 ∈ ∪ ∪ 𝑅
∧ (𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥)) ↔ (𝑥 ∈ ∪ ∪ 𝑅
∧ 𝑥 = 𝑦))) |
10 | | elin 3899 |
. . . . . . . 8
⊢
(〈𝑥, 𝑦〉 ∈ (𝑅 ∩ ◡𝑅) ↔ (〈𝑥, 𝑦〉 ∈ 𝑅 ∧ 〈𝑥, 𝑦〉 ∈ ◡𝑅)) |
11 | 2, 3 | brcnv 5780 |
. . . . . . . . . 10
⊢ (𝑥◡𝑅𝑦 ↔ 𝑦𝑅𝑥) |
12 | | df-br 5071 |
. . . . . . . . . 10
⊢ (𝑥◡𝑅𝑦 ↔ 〈𝑥, 𝑦〉 ∈ ◡𝑅) |
13 | 11, 12 | bitr3i 276 |
. . . . . . . . 9
⊢ (𝑦𝑅𝑥 ↔ 〈𝑥, 𝑦〉 ∈ ◡𝑅) |
14 | 1, 13 | anbi12i 626 |
. . . . . . . 8
⊢ ((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥) ↔ (〈𝑥, 𝑦〉 ∈ 𝑅 ∧ 〈𝑥, 𝑦〉 ∈ ◡𝑅)) |
15 | 10, 14 | bitr4i 277 |
. . . . . . 7
⊢
(〈𝑥, 𝑦〉 ∈ (𝑅 ∩ ◡𝑅) ↔ (𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥)) |
16 | 3 | opelresi 5888 |
. . . . . . . 8
⊢
(〈𝑥, 𝑦〉 ∈ ( I ↾ ∪ ∪ 𝑅) ↔ (𝑥 ∈ ∪ ∪ 𝑅
∧ 〈𝑥, 𝑦〉 ∈ I
)) |
17 | | df-br 5071 |
. . . . . . . . . 10
⊢ (𝑥 I 𝑦 ↔ 〈𝑥, 𝑦〉 ∈ I ) |
18 | 3 | ideq 5750 |
. . . . . . . . . 10
⊢ (𝑥 I 𝑦 ↔ 𝑥 = 𝑦) |
19 | 17, 18 | bitr3i 276 |
. . . . . . . . 9
⊢
(〈𝑥, 𝑦〉 ∈ I ↔ 𝑥 = 𝑦) |
20 | 19 | anbi2i 622 |
. . . . . . . 8
⊢ ((𝑥 ∈ ∪ ∪ 𝑅 ∧ 〈𝑥, 𝑦〉 ∈ I ) ↔ (𝑥 ∈ ∪ ∪ 𝑅
∧ 𝑥 = 𝑦)) |
21 | 16, 20 | bitri 274 |
. . . . . . 7
⊢
(〈𝑥, 𝑦〉 ∈ ( I ↾ ∪ ∪ 𝑅) ↔ (𝑥 ∈ ∪ ∪ 𝑅
∧ 𝑥 = 𝑦)) |
22 | 15, 21 | bibi12i 339 |
. . . . . 6
⊢
((〈𝑥, 𝑦〉 ∈ (𝑅 ∩ ◡𝑅) ↔ 〈𝑥, 𝑦〉 ∈ ( I ↾ ∪ ∪ 𝑅)) ↔ ((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥) ↔ (𝑥 ∈ ∪ ∪ 𝑅
∧ 𝑥 = 𝑦))) |
23 | | pm5.32 573 |
. . . . . 6
⊢ ((𝑥 ∈ ∪ ∪ 𝑅 → ((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥) ↔ 𝑥 = 𝑦)) ↔ ((𝑥 ∈ ∪ ∪ 𝑅
∧ (𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥)) ↔ (𝑥 ∈ ∪ ∪ 𝑅
∧ 𝑥 = 𝑦))) |
24 | 9, 22, 23 | 3bitr4i 302 |
. . . . 5
⊢
((〈𝑥, 𝑦〉 ∈ (𝑅 ∩ ◡𝑅) ↔ 〈𝑥, 𝑦〉 ∈ ( I ↾ ∪ ∪ 𝑅)) ↔ (𝑥 ∈ ∪ ∪ 𝑅
→ ((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥) ↔ 𝑥 = 𝑦))) |
25 | 24 | albii 1823 |
. . . 4
⊢
(∀𝑦(〈𝑥, 𝑦〉 ∈ (𝑅 ∩ ◡𝑅) ↔ 〈𝑥, 𝑦〉 ∈ ( I ↾ ∪ ∪ 𝑅)) ↔ ∀𝑦(𝑥 ∈ ∪ ∪ 𝑅
→ ((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥) ↔ 𝑥 = 𝑦))) |
26 | | 19.21v 1943 |
. . . 4
⊢
(∀𝑦(𝑥 ∈ ∪ ∪ 𝑅 → ((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥) ↔ 𝑥 = 𝑦)) ↔ (𝑥 ∈ ∪ ∪ 𝑅
→ ∀𝑦((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥) ↔ 𝑥 = 𝑦))) |
27 | 25, 26 | bitri 274 |
. . 3
⊢
(∀𝑦(〈𝑥, 𝑦〉 ∈ (𝑅 ∩ ◡𝑅) ↔ 〈𝑥, 𝑦〉 ∈ ( I ↾ ∪ ∪ 𝑅)) ↔ (𝑥 ∈ ∪ ∪ 𝑅
→ ∀𝑦((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥) ↔ 𝑥 = 𝑦))) |
28 | 27 | albii 1823 |
. 2
⊢
(∀𝑥∀𝑦(〈𝑥, 𝑦〉 ∈ (𝑅 ∩ ◡𝑅) ↔ 〈𝑥, 𝑦〉 ∈ ( I ↾ ∪ ∪ 𝑅)) ↔ ∀𝑥(𝑥 ∈ ∪ ∪ 𝑅
→ ∀𝑦((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥) ↔ 𝑥 = 𝑦))) |
29 | | relcnv 6001 |
. . . 4
⊢ Rel ◡𝑅 |
30 | | relin2 5712 |
. . . 4
⊢ (Rel
◡𝑅 → Rel (𝑅 ∩ ◡𝑅)) |
31 | 29, 30 | ax-mp 5 |
. . 3
⊢ Rel
(𝑅 ∩ ◡𝑅) |
32 | | relres 5909 |
. . 3
⊢ Rel ( I
↾ ∪ ∪ 𝑅) |
33 | | eqrel 5684 |
. . 3
⊢ ((Rel
(𝑅 ∩ ◡𝑅) ∧ Rel ( I ↾ ∪ ∪ 𝑅)) → ((𝑅 ∩ ◡𝑅) = ( I ↾ ∪
∪ 𝑅) ↔ ∀𝑥∀𝑦(〈𝑥, 𝑦〉 ∈ (𝑅 ∩ ◡𝑅) ↔ 〈𝑥, 𝑦〉 ∈ ( I ↾ ∪ ∪ 𝑅)))) |
34 | 31, 32, 33 | mp2an 688 |
. 2
⊢ ((𝑅 ∩ ◡𝑅) = ( I ↾ ∪
∪ 𝑅) ↔ ∀𝑥∀𝑦(〈𝑥, 𝑦〉 ∈ (𝑅 ∩ ◡𝑅) ↔ 〈𝑥, 𝑦〉 ∈ ( I ↾ ∪ ∪ 𝑅))) |
35 | | df-ral 3068 |
. 2
⊢
(∀𝑥 ∈
∪ ∪ 𝑅∀𝑦((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥) ↔ 𝑥 = 𝑦) ↔ ∀𝑥(𝑥 ∈ ∪ ∪ 𝑅
→ ∀𝑦((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥) ↔ 𝑥 = 𝑦))) |
36 | 28, 34, 35 | 3bitr4i 302 |
1
⊢ ((𝑅 ∩ ◡𝑅) = ( I ↾ ∪
∪ 𝑅) ↔ ∀𝑥 ∈ ∪ ∪ 𝑅∀𝑦((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑥) ↔ 𝑥 = 𝑦)) |