Users' Mathboxes Mathbox for Peter Mazsa < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  raldmqseu Structured version   Visualization version   GIF version

Theorem raldmqseu 39211
Description: Equivalence between "exactly one" on the quotient carrier and "at most one" globally. Provides a type-safe way to talk about unique representatives either as ∃! on the intended carrier or as a global ∃* statement. (Contributed by Peter Mazsa, 6-Feb-2026.)
Assertion
Ref Expression
raldmqseu (𝑅𝑉 → (∀𝑢 ∈ (dom 𝑅 / 𝑅)∃!𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅 ↔ ∀𝑢∃*𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅))
Distinct variable groups:   𝑡,𝑅,𝑢   𝑡,𝑉,𝑢

Proof of Theorem raldmqseu
StepHypRef Expression
1 raldmqsmo 39209 . . 3 (∀𝑢 ∈ (dom 𝑅 / 𝑅)∃*𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅 ↔ ∀𝑢 ∈ (dom 𝑅 / 𝑅)∃!𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅)
2 ralrmo3 39210 . . 3 (∀𝑢 ∈ (dom 𝑅 / 𝑅)∃*𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅 ↔ ∀𝑢∃*𝑡 ∈ dom 𝑅(𝑢 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅))
31, 2bitr3i 280 . 2 (∀𝑢 ∈ (dom 𝑅 / 𝑅)∃!𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅 ↔ ∀𝑢∃*𝑡 ∈ dom 𝑅(𝑢 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅))
4 eqelb 39087 . . . . . . 7 ((𝑢 = [𝑡]𝑅𝑢 ∈ (dom 𝑅 / 𝑅)) ↔ (𝑢 = [𝑡]𝑅 ∧ [𝑡]𝑅 ∈ (dom 𝑅 / 𝑅)))
5 ancom 466 . . . . . . 7 ((𝑢 = [𝑡]𝑅𝑢 ∈ (dom 𝑅 / 𝑅)) ↔ (𝑢 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅))
6 ancom 466 . . . . . . 7 ((𝑢 = [𝑡]𝑅 ∧ [𝑡]𝑅 ∈ (dom 𝑅 / 𝑅)) ↔ ([𝑡]𝑅 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅))
74, 5, 63bitr3i 304 . . . . . 6 ((𝑢 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅) ↔ ([𝑡]𝑅 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅))
8 eceldmqs 8787 . . . . . . 7 (𝑅𝑉 → ([𝑡]𝑅 ∈ (dom 𝑅 / 𝑅) ↔ 𝑡 ∈ dom 𝑅))
98anbi1d 643 . . . . . 6 (𝑅𝑉 → (([𝑡]𝑅 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅) ↔ (𝑡 ∈ dom 𝑅𝑢 = [𝑡]𝑅)))
107, 9bitrid 286 . . . . 5 (𝑅𝑉 → ((𝑢 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅) ↔ (𝑡 ∈ dom 𝑅𝑢 = [𝑡]𝑅)))
1110rmobidv 3380 . . . 4 (𝑅𝑉 → (∃*𝑡 ∈ dom 𝑅(𝑢 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅) ↔ ∃*𝑡 ∈ dom 𝑅(𝑡 ∈ dom 𝑅𝑢 = [𝑡]𝑅)))
12 rmoanid 3375 . . . 4 (∃*𝑡 ∈ dom 𝑅(𝑡 ∈ dom 𝑅𝑢 = [𝑡]𝑅) ↔ ∃*𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅)
1311, 12bitrdi 290 . . 3 (𝑅𝑉 → (∃*𝑡 ∈ dom 𝑅(𝑢 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅) ↔ ∃*𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅))
1413albidv 1953 . 2 (𝑅𝑉 → (∀𝑢∃*𝑡 ∈ dom 𝑅(𝑢 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅) ↔ ∀𝑢∃*𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅))
153, 14bitrid 286 1 (𝑅𝑉 → (∀𝑢 ∈ (dom 𝑅 / 𝑅)∃!𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅 ↔ ∀𝑢∃*𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wb 209  wa 401  wal 1568   = wceq 1570  wcel 2145  wral 3076  ∃!wreu 3363  ∃*wrmo 3364  dom cdm 5648  [cec 8694   / cqs 8695
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-12 2213  ax-ext 2732  ax-sep 5249  ax-pr 5391  ax-un 7735
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-ne 2956  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-br 5104  df-opab 5168  df-xp 5654  df-rel 5655  df-cnv 5656  df-dm 5658  df-rn 5659  df-res 5660  df-ima 5661  df-ec 8698  df-qs 8702
This theorem is used by:  disjqmap  39673
  Copyright terms: Public domain W3C validator