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 38747
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 38745 . . 3 (∀𝑢 ∈ (dom 𝑅 / 𝑅)∃*𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅 ↔ ∀𝑢 ∈ (dom 𝑅 / 𝑅)∃!𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅)
2 ralrmo3 38746 . . 3 (∀𝑢 ∈ (dom 𝑅 / 𝑅)∃*𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅 ↔ ∀𝑢∃*𝑡 ∈ dom 𝑅(𝑢 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅))
31, 2bitr3i 279 . 2 (∀𝑢 ∈ (dom 𝑅 / 𝑅)∃!𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅 ↔ ∀𝑢∃*𝑡 ∈ dom 𝑅(𝑢 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅))
4 eqelb 38623 . . . . . . 7 ((𝑢 = [𝑡]𝑅𝑢 ∈ (dom 𝑅 / 𝑅)) ↔ (𝑢 = [𝑡]𝑅 ∧ [𝑡]𝑅 ∈ (dom 𝑅 / 𝑅)))
5 ancom 462 . . . . . . 7 ((𝑢 = [𝑡]𝑅𝑢 ∈ (dom 𝑅 / 𝑅)) ↔ (𝑢 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅))
6 ancom 462 . . . . . . 7 ((𝑢 = [𝑡]𝑅 ∧ [𝑡]𝑅 ∈ (dom 𝑅 / 𝑅)) ↔ ([𝑡]𝑅 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅))
74, 5, 63bitr3i 303 . . . . . 6 ((𝑢 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅) ↔ ([𝑡]𝑅 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅))
8 eceldmqs 8728 . . . . . . 7 (𝑅𝑉 → ([𝑡]𝑅 ∈ (dom 𝑅 / 𝑅) ↔ 𝑡 ∈ dom 𝑅))
98anbi1d 638 . . . . . 6 (𝑅𝑉 → (([𝑡]𝑅 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅) ↔ (𝑡 ∈ dom 𝑅𝑢 = [𝑡]𝑅)))
107, 9bitrid 285 . . . . 5 (𝑅𝑉 → ((𝑢 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅) ↔ (𝑡 ∈ dom 𝑅𝑢 = [𝑡]𝑅)))
1110rmobidv 3361 . . . 4 (𝑅𝑉 → (∃*𝑡 ∈ dom 𝑅(𝑢 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅) ↔ ∃*𝑡 ∈ dom 𝑅(𝑡 ∈ dom 𝑅𝑢 = [𝑡]𝑅)))
12 rmoanid 3356 . . . 4 (∃*𝑡 ∈ dom 𝑅(𝑡 ∈ dom 𝑅𝑢 = [𝑡]𝑅) ↔ ∃*𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅)
1311, 12bitrdi 289 . . 3 (𝑅𝑉 → (∃*𝑡 ∈ dom 𝑅(𝑢 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅) ↔ ∃*𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅))
1413albidv 1928 . 2 (𝑅𝑉 → (∀𝑢∃*𝑡 ∈ dom 𝑅(𝑢 ∈ (dom 𝑅 / 𝑅) ∧ 𝑢 = [𝑡]𝑅) ↔ ∀𝑢∃*𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅))
153, 14bitrid 285 1 (𝑅𝑉 → (∀𝑢 ∈ (dom 𝑅 / 𝑅)∃!𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅 ↔ ∀𝑢∃*𝑡 ∈ dom 𝑅 𝑢 = [𝑡]𝑅))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 208  wa 397  wal 1546   = wceq 1548  wcel 2121  wral 3055  ∃!wreu 3344  ∃*wrmo 3345  dom cdm 5621  [cec 8635   / cqs 8636
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1975  ax-7 2016  ax-8 2123  ax-9 2131  ax-12 2191  ax-ext 2713  ax-sep 5221  ax-pr 5365  ax-un 7682
This theorem depends on definitions:  df-bi 209  df-an 398  df-or 855  df-3an 1095  df-tru 1551  df-fal 1561  df-ex 1788  df-nf 1792  df-sb 2075  df-mo 2545  df-eu 2575  df-clab 2720  df-cleq 2733  df-clel 2816  df-ne 2937  df-ral 3056  df-rex 3066  df-rmo 3346  df-reu 3347  df-rab 3394  df-v 3435  df-dif 3888  df-un 3890  df-in 3892  df-ss 3902  df-nul 4265  df-if 4458  df-sn 4559  df-pr 4561  df-op 4565  df-uni 4842  df-br 5076  df-opab 5138  df-xp 5627  df-rel 5628  df-cnv 5629  df-dm 5631  df-rn 5632  df-res 5633  df-ima 5634  df-ec 8639  df-qs 8643
This theorem is referenced by:  disjqmap  39209
  Copyright terms: Public domain W3C validator