MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  fmptsnd Structured version   Visualization version   GIF version

Theorem fmptsnd 6984
Description: Express a singleton function in maps-to notation. Deduction form of fmptsng 6983. (Contributed by AV, 4-Aug-2019.)
Hypotheses
Ref Expression
fmptsnd.1 ((𝜑𝑥 = 𝐴) → 𝐵 = 𝐶)
fmptsnd.2 (𝜑𝐴𝑉)
fmptsnd.3 (𝜑𝐶𝑊)
Assertion
Ref Expression
fmptsnd (𝜑 → {⟨𝐴, 𝐶⟩} = (𝑥 ∈ {𝐴} ↦ 𝐵))
Distinct variable groups:   𝑥,𝐴   𝑥,𝐶   𝜑,𝑥
Allowed substitution hints:   𝐵(𝑥)   𝑉(𝑥)   𝑊(𝑥)

Proof of Theorem fmptsnd
Dummy variables 𝑝 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 velsn 4557 . . . . 5 (𝑥 ∈ {𝐴} ↔ 𝑥 = 𝐴)
21bicomi 227 . . . 4 (𝑥 = 𝐴𝑥 ∈ {𝐴})
32anbi1i 627 . . 3 ((𝑥 = 𝐴𝑦 = 𝐵) ↔ (𝑥 ∈ {𝐴} ∧ 𝑦 = 𝐵))
43opabbii 5120 . 2 {⟨𝑥, 𝑦⟩ ∣ (𝑥 = 𝐴𝑦 = 𝐵)} = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ {𝐴} ∧ 𝑦 = 𝐵)}
5 velsn 4557 . . . . 5 (𝑝 ∈ {⟨𝐴, 𝐶⟩} ↔ 𝑝 = ⟨𝐴, 𝐶⟩)
6 eqidd 2738 . . . . . . . 8 (𝜑𝐴 = 𝐴)
7 eqidd 2738 . . . . . . . 8 (𝜑𝐶 = 𝐶)
8 sbcan 3746 . . . . . . . . . . 11 ([𝐶 / 𝑦](𝑥 = 𝐴𝑦 = 𝐵) ↔ ([𝐶 / 𝑦]𝑥 = 𝐴[𝐶 / 𝑦]𝑦 = 𝐵))
9 fmptsnd.3 . . . . . . . . . . . . 13 (𝜑𝐶𝑊)
10 sbcg 3774 . . . . . . . . . . . . 13 (𝐶𝑊 → ([𝐶 / 𝑦]𝑥 = 𝐴𝑥 = 𝐴))
119, 10syl 17 . . . . . . . . . . . 12 (𝜑 → ([𝐶 / 𝑦]𝑥 = 𝐴𝑥 = 𝐴))
12 eqsbc3 3743 . . . . . . . . . . . . 13 (𝐶𝑊 → ([𝐶 / 𝑦]𝑦 = 𝐵𝐶 = 𝐵))
139, 12syl 17 . . . . . . . . . . . 12 (𝜑 → ([𝐶 / 𝑦]𝑦 = 𝐵𝐶 = 𝐵))
1411, 13anbi12d 634 . . . . . . . . . . 11 (𝜑 → (([𝐶 / 𝑦]𝑥 = 𝐴[𝐶 / 𝑦]𝑦 = 𝐵) ↔ (𝑥 = 𝐴𝐶 = 𝐵)))
158, 14syl5bb 286 . . . . . . . . . 10 (𝜑 → ([𝐶 / 𝑦](𝑥 = 𝐴𝑦 = 𝐵) ↔ (𝑥 = 𝐴𝐶 = 𝐵)))
1615sbcbidv 3753 . . . . . . . . 9 (𝜑 → ([𝐴 / 𝑥][𝐶 / 𝑦](𝑥 = 𝐴𝑦 = 𝐵) ↔ [𝐴 / 𝑥](𝑥 = 𝐴𝐶 = 𝐵)))
17 fmptsnd.2 . . . . . . . . . 10 (𝜑𝐴𝑉)
18 eqeq1 2741 . . . . . . . . . . . 12 (𝑥 = 𝐴 → (𝑥 = 𝐴𝐴 = 𝐴))
1918adantl 485 . . . . . . . . . . 11 ((𝜑𝑥 = 𝐴) → (𝑥 = 𝐴𝐴 = 𝐴))
20 fmptsnd.1 . . . . . . . . . . . 12 ((𝜑𝑥 = 𝐴) → 𝐵 = 𝐶)
2120eqeq2d 2748 . . . . . . . . . . 11 ((𝜑𝑥 = 𝐴) → (𝐶 = 𝐵𝐶 = 𝐶))
2219, 21anbi12d 634 . . . . . . . . . 10 ((𝜑𝑥 = 𝐴) → ((𝑥 = 𝐴𝐶 = 𝐵) ↔ (𝐴 = 𝐴𝐶 = 𝐶)))
2317, 22sbcied 3739 . . . . . . . . 9 (𝜑 → ([𝐴 / 𝑥](𝑥 = 𝐴𝐶 = 𝐵) ↔ (𝐴 = 𝐴𝐶 = 𝐶)))
2416, 23bitrd 282 . . . . . . . 8 (𝜑 → ([𝐴 / 𝑥][𝐶 / 𝑦](𝑥 = 𝐴𝑦 = 𝐵) ↔ (𝐴 = 𝐴𝐶 = 𝐶)))
256, 7, 24mpbir2and 713 . . . . . . 7 (𝜑[𝐴 / 𝑥][𝐶 / 𝑦](𝑥 = 𝐴𝑦 = 𝐵))
26 opelopabsb 5411 . . . . . . 7 (⟨𝐴, 𝐶⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ (𝑥 = 𝐴𝑦 = 𝐵)} ↔ [𝐴 / 𝑥][𝐶 / 𝑦](𝑥 = 𝐴𝑦 = 𝐵))
2725, 26sylibr 237 . . . . . 6 (𝜑 → ⟨𝐴, 𝐶⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ (𝑥 = 𝐴𝑦 = 𝐵)})
28 eleq1 2825 . . . . . 6 (𝑝 = ⟨𝐴, 𝐶⟩ → (𝑝 ∈ {⟨𝑥, 𝑦⟩ ∣ (𝑥 = 𝐴𝑦 = 𝐵)} ↔ ⟨𝐴, 𝐶⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ (𝑥 = 𝐴𝑦 = 𝐵)}))
2927, 28syl5ibrcom 250 . . . . 5 (𝜑 → (𝑝 = ⟨𝐴, 𝐶⟩ → 𝑝 ∈ {⟨𝑥, 𝑦⟩ ∣ (𝑥 = 𝐴𝑦 = 𝐵)}))
305, 29syl5bi 245 . . . 4 (𝜑 → (𝑝 ∈ {⟨𝐴, 𝐶⟩} → 𝑝 ∈ {⟨𝑥, 𝑦⟩ ∣ (𝑥 = 𝐴𝑦 = 𝐵)}))
31 elopab 5408 . . . . 5 (𝑝 ∈ {⟨𝑥, 𝑦⟩ ∣ (𝑥 = 𝐴𝑦 = 𝐵)} ↔ ∃𝑥𝑦(𝑝 = ⟨𝑥, 𝑦⟩ ∧ (𝑥 = 𝐴𝑦 = 𝐵)))
32 opeq12 4786 . . . . . . . . . . 11 ((𝑥 = 𝐴𝑦 = 𝐵) → ⟨𝑥, 𝑦⟩ = ⟨𝐴, 𝐵⟩)
3332adantl 485 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 = 𝐴𝑦 = 𝐵)) → ⟨𝑥, 𝑦⟩ = ⟨𝐴, 𝐵⟩)
3433eqeq2d 2748 . . . . . . . . 9 ((𝜑 ∧ (𝑥 = 𝐴𝑦 = 𝐵)) → (𝑝 = ⟨𝑥, 𝑦⟩ ↔ 𝑝 = ⟨𝐴, 𝐵⟩))
3520adantrr 717 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥 = 𝐴𝑦 = 𝐵)) → 𝐵 = 𝐶)
3635opeq2d 4791 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 = 𝐴𝑦 = 𝐵)) → ⟨𝐴, 𝐵⟩ = ⟨𝐴, 𝐶⟩)
37 opex 5348 . . . . . . . . . . . 12 𝐴, 𝐶⟩ ∈ V
3837snid 4577 . . . . . . . . . . 11 𝐴, 𝐶⟩ ∈ {⟨𝐴, 𝐶⟩}
3936, 38eqeltrdi 2846 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 = 𝐴𝑦 = 𝐵)) → ⟨𝐴, 𝐵⟩ ∈ {⟨𝐴, 𝐶⟩})
40 eleq1 2825 . . . . . . . . . 10 (𝑝 = ⟨𝐴, 𝐵⟩ → (𝑝 ∈ {⟨𝐴, 𝐶⟩} ↔ ⟨𝐴, 𝐵⟩ ∈ {⟨𝐴, 𝐶⟩}))
4139, 40syl5ibrcom 250 . . . . . . . . 9 ((𝜑 ∧ (𝑥 = 𝐴𝑦 = 𝐵)) → (𝑝 = ⟨𝐴, 𝐵⟩ → 𝑝 ∈ {⟨𝐴, 𝐶⟩}))
4234, 41sylbid 243 . . . . . . . 8 ((𝜑 ∧ (𝑥 = 𝐴𝑦 = 𝐵)) → (𝑝 = ⟨𝑥, 𝑦⟩ → 𝑝 ∈ {⟨𝐴, 𝐶⟩}))
4342ex 416 . . . . . . 7 (𝜑 → ((𝑥 = 𝐴𝑦 = 𝐵) → (𝑝 = ⟨𝑥, 𝑦⟩ → 𝑝 ∈ {⟨𝐴, 𝐶⟩})))
4443impcomd 415 . . . . . 6 (𝜑 → ((𝑝 = ⟨𝑥, 𝑦⟩ ∧ (𝑥 = 𝐴𝑦 = 𝐵)) → 𝑝 ∈ {⟨𝐴, 𝐶⟩}))
4544exlimdvv 1942 . . . . 5 (𝜑 → (∃𝑥𝑦(𝑝 = ⟨𝑥, 𝑦⟩ ∧ (𝑥 = 𝐴𝑦 = 𝐵)) → 𝑝 ∈ {⟨𝐴, 𝐶⟩}))
4631, 45syl5bi 245 . . . 4 (𝜑 → (𝑝 ∈ {⟨𝑥, 𝑦⟩ ∣ (𝑥 = 𝐴𝑦 = 𝐵)} → 𝑝 ∈ {⟨𝐴, 𝐶⟩}))
4730, 46impbid 215 . . 3 (𝜑 → (𝑝 ∈ {⟨𝐴, 𝐶⟩} ↔ 𝑝 ∈ {⟨𝑥, 𝑦⟩ ∣ (𝑥 = 𝐴𝑦 = 𝐵)}))
4847eqrdv 2735 . 2 (𝜑 → {⟨𝐴, 𝐶⟩} = {⟨𝑥, 𝑦⟩ ∣ (𝑥 = 𝐴𝑦 = 𝐵)})
49 df-mpt 5136 . . 3 (𝑥 ∈ {𝐴} ↦ 𝐵) = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ {𝐴} ∧ 𝑦 = 𝐵)}
5049a1i 11 . 2 (𝜑 → (𝑥 ∈ {𝐴} ↦ 𝐵) = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ {𝐴} ∧ 𝑦 = 𝐵)})
514, 48, 503eqtr4a 2804 1 (𝜑 → {⟨𝐴, 𝐶⟩} = (𝑥 ∈ {𝐴} ↦ 𝐵))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 399   = wceq 1543  wex 1787  wcel 2110  [wsbc 3694  {csn 4541  cop 4547  {copab 5115  cmpt 5135
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 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2708  ax-sep 5192  ax-nul 5199  ax-pr 5322
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2071  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2886  df-ne 2941  df-ral 3066  df-rex 3067  df-rab 3070  df-v 3410  df-sbc 3695  df-dif 3869  df-un 3871  df-nul 4238  df-if 4440  df-sn 4542  df-pr 4544  df-op 4548  df-opab 5116  df-mpt 5136
This theorem is referenced by:  fmptapd  6986  fmptpr  6987  mposn  7871
  Copyright terms: Public domain W3C validator