Proof of Theorem trcoss2
Step | Hyp | Ref
| Expression |
1 | | alcom 2160 |
. . 3
⊢
(∀𝑦∀𝑧((𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧) → 𝑥 ≀ 𝑅𝑧) ↔ ∀𝑧∀𝑦((𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧) → 𝑥 ≀ 𝑅𝑧)) |
2 | 1 | albii 1827 |
. 2
⊢
(∀𝑥∀𝑦∀𝑧((𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧) → 𝑥 ≀ 𝑅𝑧) ↔ ∀𝑥∀𝑧∀𝑦((𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧) → 𝑥 ≀ 𝑅𝑧)) |
3 | | 19.23v 1950 |
. . . 4
⊢
(∀𝑦(𝑦 ∈ ([𝑥] ≀ 𝑅 ∩ [𝑧] ≀ 𝑅) → ([𝑥]◡𝑅 ∩ [𝑧]◡𝑅) ≠ ∅) ↔ (∃𝑦 𝑦 ∈ ([𝑥] ≀ 𝑅 ∩ [𝑧] ≀ 𝑅) → ([𝑥]◡𝑅 ∩ [𝑧]◡𝑅) ≠ ∅)) |
4 | | eleccossin 36338 |
. . . . . . . 8
⊢ ((𝑦 ∈ V ∧ 𝑧 ∈ V) → (𝑦 ∈ ([𝑥] ≀ 𝑅 ∩ [𝑧] ≀ 𝑅) ↔ (𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧))) |
5 | 4 | el2v 3416 |
. . . . . . 7
⊢ (𝑦 ∈ ([𝑥] ≀ 𝑅 ∩ [𝑧] ≀ 𝑅) ↔ (𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧)) |
6 | 5 | bicomi 227 |
. . . . . 6
⊢ ((𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧) ↔ 𝑦 ∈ ([𝑥] ≀ 𝑅 ∩ [𝑧] ≀ 𝑅)) |
7 | | brcoss3 36293 |
. . . . . . 7
⊢ ((𝑥 ∈ V ∧ 𝑧 ∈ V) → (𝑥 ≀ 𝑅𝑧 ↔ ([𝑥]◡𝑅 ∩ [𝑧]◡𝑅) ≠ ∅)) |
8 | 7 | el2v 3416 |
. . . . . 6
⊢ (𝑥 ≀ 𝑅𝑧 ↔ ([𝑥]◡𝑅 ∩ [𝑧]◡𝑅) ≠ ∅) |
9 | 6, 8 | imbi12i 354 |
. . . . 5
⊢ (((𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧) → 𝑥 ≀ 𝑅𝑧) ↔ (𝑦 ∈ ([𝑥] ≀ 𝑅 ∩ [𝑧] ≀ 𝑅) → ([𝑥]◡𝑅 ∩ [𝑧]◡𝑅) ≠ ∅)) |
10 | 9 | albii 1827 |
. . . 4
⊢
(∀𝑦((𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧) → 𝑥 ≀ 𝑅𝑧) ↔ ∀𝑦(𝑦 ∈ ([𝑥] ≀ 𝑅 ∩ [𝑧] ≀ 𝑅) → ([𝑥]◡𝑅 ∩ [𝑧]◡𝑅) ≠ ∅)) |
11 | | n0 4261 |
. . . . 5
⊢ (([𝑥] ≀ 𝑅 ∩ [𝑧] ≀ 𝑅) ≠ ∅ ↔ ∃𝑦 𝑦 ∈ ([𝑥] ≀ 𝑅 ∩ [𝑧] ≀ 𝑅)) |
12 | 11 | imbi1i 353 |
. . . 4
⊢ ((([𝑥] ≀ 𝑅 ∩ [𝑧] ≀ 𝑅) ≠ ∅ → ([𝑥]◡𝑅 ∩ [𝑧]◡𝑅) ≠ ∅) ↔ (∃𝑦 𝑦 ∈ ([𝑥] ≀ 𝑅 ∩ [𝑧] ≀ 𝑅) → ([𝑥]◡𝑅 ∩ [𝑧]◡𝑅) ≠ ∅)) |
13 | 3, 10, 12 | 3bitr4i 306 |
. . 3
⊢
(∀𝑦((𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧) → 𝑥 ≀ 𝑅𝑧) ↔ (([𝑥] ≀ 𝑅 ∩ [𝑧] ≀ 𝑅) ≠ ∅ → ([𝑥]◡𝑅 ∩ [𝑧]◡𝑅) ≠ ∅)) |
14 | 13 | 2albii 1828 |
. 2
⊢
(∀𝑥∀𝑧∀𝑦((𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧) → 𝑥 ≀ 𝑅𝑧) ↔ ∀𝑥∀𝑧(([𝑥] ≀ 𝑅 ∩ [𝑧] ≀ 𝑅) ≠ ∅ → ([𝑥]◡𝑅 ∩ [𝑧]◡𝑅) ≠ ∅)) |
15 | 2, 14 | bitri 278 |
1
⊢
(∀𝑥∀𝑦∀𝑧((𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧) → 𝑥 ≀ 𝑅𝑧) ↔ ∀𝑥∀𝑧(([𝑥] ≀ 𝑅 ∩ [𝑧] ≀ 𝑅) ≠ ∅ → ([𝑥]◡𝑅 ∩ [𝑧]◡𝑅) ≠ ∅)) |