Theorem trcoss 39598

Description: Sufficient condition for the transitivity of cosets by 𝑅. (Contributed by Peter Mazsa, 26-Dec-2018.)

Assertion

Ref	Expression
trcoss	⊢ (∀𝑦∃*𝑢 𝑢𝑅𝑦 → ∀𝑥∀𝑦∀𝑧((𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧) → 𝑥 ≀ 𝑅𝑧))

Distinct variable groups:   𝑢,𝑅,𝑥   𝑧,𝑅,𝑢   𝑦,𝑢,𝑥   𝑦,𝑧

Allowed substitution hint:   𝑅(𝑦)

Proof of Theorem trcoss

Step	Hyp	Ref	Expression
1		moantr 39398	. . . . 5 ⊢ (∃*𝑢 𝑢𝑅𝑦 → ((∃𝑢(𝑢𝑅𝑥 ∧ 𝑢𝑅𝑦) ∧ ∃𝑢(𝑢𝑅𝑦 ∧ 𝑢𝑅𝑧)) → ∃𝑢(𝑢𝑅𝑥 ∧ 𝑢𝑅𝑧)))
2		brcoss 39547	. . . . . . 7 ⊢ ((𝑥 ∈ V ∧ 𝑦 ∈ V) → (𝑥 ≀ 𝑅𝑦 ↔ ∃𝑢(𝑢𝑅𝑥 ∧ 𝑢𝑅𝑦)))
3	2	el2v 3457	. . . . . 6 ⊢ (𝑥 ≀ 𝑅𝑦 ↔ ∃𝑢(𝑢𝑅𝑥 ∧ 𝑢𝑅𝑦))
4		brcoss 39547	. . . . . . 7 ⊢ ((𝑦 ∈ V ∧ 𝑧 ∈ V) → (𝑦 ≀ 𝑅𝑧 ↔ ∃𝑢(𝑢𝑅𝑦 ∧ 𝑢𝑅𝑧)))
5	4	el2v 3457	. . . . . 6 ⊢ (𝑦 ≀ 𝑅𝑧 ↔ ∃𝑢(𝑢𝑅𝑦 ∧ 𝑢𝑅𝑧))
6	3, 5	anbi12i 640	. . . . 5 ⊢ ((𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧) ↔ (∃𝑢(𝑢𝑅𝑥 ∧ 𝑢𝑅𝑦) ∧ ∃𝑢(𝑢𝑅𝑦 ∧ 𝑢𝑅𝑧)))
7		brcoss 39547	. . . . . 6 ⊢ ((𝑥 ∈ V ∧ 𝑧 ∈ V) → (𝑥 ≀ 𝑅𝑧 ↔ ∃𝑢(𝑢𝑅𝑥 ∧ 𝑢𝑅𝑧)))
8	7	el2v 3457	. . . . 5 ⊢ (𝑥 ≀ 𝑅𝑧 ↔ ∃𝑢(𝑢𝑅𝑥 ∧ 𝑢𝑅𝑧))
9	1, 6, 8	3imtr4g 299	. . . 4 ⊢ (∃*𝑢 𝑢𝑅𝑦 → ((𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧) → 𝑥 ≀ 𝑅𝑧))
10	9	alrimiv 1959	. . 3 ⊢ (∃*𝑢 𝑢𝑅𝑦 → ∀𝑧((𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧) → 𝑥 ≀ 𝑅𝑧))
11	10	alimi 1843	. 2 ⊢ (∀𝑦∃*𝑢 𝑢𝑅𝑦 → ∀𝑦∀𝑧((𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧) → 𝑥 ≀ 𝑅𝑧))
12	11	alrimiv 1959	1 ⊢ (∀𝑦∃*𝑢 𝑢𝑅𝑦 → ∀𝑥∀𝑦∀𝑧((𝑥 ≀ 𝑅𝑦 ∧ 𝑦 ≀ 𝑅𝑧) → 𝑥 ≀ 𝑅𝑧))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401  ∀wal 1567  ∃wex 1811  ∃*wmo 2562  Vcvv 3450   class class class wbr 5102   ≀ ccoss 39209

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-sep 5248  ax-pr 5390

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-clab 2739  df-cleq 2752  df-clel 2835  df-rab 3413  df-v 3452  df-ss 3896  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-sn 4585  df-pr 4587  df-op 4835  df-br 5103  df-opab 5167  df-coss 39527

This theorem is used by:  disjim  39910