Proof of Theorem intasym
| Step | Hyp | Ref
| Expression |
| 1 | | inss2 1658 |
. . . 4
⊢ (R
∩ ◡R) ⊆ ◡R |
| 2 | | relcnv 2624 |
. . . 4
⊢ Rel ◡R |
| 3 | | ssrel 2479 |
. . . 4
⊢ ((R
∩ ◡R) ⊆ ◡R →
(Rel ◡R → Rel (R
∩ ◡R))) |
| 4 | 1, 2, 3 | mp2 43 |
. . 3
⊢ Rel (R
∩ ◡R) |
| 5 | | relss 2480 |
. . 3
⊢ (Rel (R ∩ ◡R)
→ ((R ∩ ◡R)
⊆ I ↔ ∀x∀y(〈x,
y〉 ∈ (R ∩ ◡R)
→ 〈x, y〉 ∈ I))) |
| 6 | 4, 5 | ax-mp 6 |
. 2
⊢ ((R
∩ ◡R) ⊆ I ↔ ∀x∀y(〈x,
y〉 ∈ (R ∩ ◡R)
→ 〈x, y〉 ∈ I)) |
| 7 | | df-br 2063 |
. . . . . 6
⊢ (xRy ↔ 〈x, y〉
∈ R) |
| 8 | | visset 1350 |
. . . . . . . 8
⊢ x
∈ V |
| 9 | | visset 1350 |
. . . . . . . 8
⊢ y
∈ V |
| 10 | 8, 9 | brcnv 2519 |
. . . . . . 7
⊢ (x◡Ry ↔
yRx) |
| 11 | | df-br 2063 |
. . . . . . 7
⊢ (x◡Ry ↔
〈x, y〉 ∈ ◡R) |
| 12 | 10, 11 | bitr3 153 |
. . . . . 6
⊢ (yRx ↔ 〈x, y〉
∈ ◡R) |
| 13 | 7, 12 | anbi12i 369 |
. . . . 5
⊢ ((xRy ∧ yRx) ↔ (〈x, y〉
∈ R ∧ 〈x, y〉
∈ ◡R)) |
| 14 | | elin 1635 |
. . . . 5
⊢ (〈x, y〉
∈ (R ∩ ◡R)
↔ (〈x, y〉 ∈ R
∧ 〈x, y〉 ∈ ◡R)) |
| 15 | 13, 14 | bitr4 154 |
. . . 4
⊢ ((xRy ∧ yRx) ↔ 〈x, y〉
∈ (R ∩ ◡R)) |
| 16 | 8, 9 | ideq 2127 |
. . . . 5
⊢ (xIy
↔ x = y) |
| 17 | | df-br 2063 |
. . . . 5
⊢ (xIy
↔ 〈x, y〉 ∈ I) |
| 18 | 16, 17 | bitr3 153 |
. . . 4
⊢ (x =
y ↔ 〈x, y〉
∈ I) |
| 19 | 15, 18 | imbi12i 163 |
. . 3
⊢ (((xRy ∧ yRx) → x =
y) ↔ (〈x, y〉
∈ (R ∩ ◡R)
→ 〈x, y〉 ∈ I)) |
| 20 | 19 | bi2al 696 |
. 2
⊢ (∀x∀y((xRy ∧
yRx) →
x = y)
↔ ∀x∀y(〈x,
y〉 ∈ (R ∩ ◡R)
→ 〈x, y〉 ∈ I)) |
| 21 | 6, 20 | bitr4 154 |
1
⊢ ((R
∩ ◡R) ⊆ I ↔ ∀x∀y((xRy ∧
yRx) →
x = y)) |