Users' Mathboxes Mathbox for Alexander van der Vekens < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  sbcpr Structured version   Visualization version   GIF version

Theorem sbcpr 44973
Description: The proper substitution of an unordered pair for a setvar variable corresponds to a proper substitution of each of its elements. (Contributed by AV, 7-Apr-2023.)
Hypothesis
Ref Expression
sbcpr.x (𝑝 = {𝑥, 𝑦} → (𝜑𝜓))
Assertion
Ref Expression
sbcpr ([{𝑎, 𝑏} / 𝑝]𝜑[𝑏 / 𝑦][𝑎 / 𝑥]𝜓)
Distinct variable groups:   𝑎,𝑏,𝑥,𝑦,𝑝   𝜑,𝑥,𝑦   𝜓,𝑝
Allowed substitution hints:   𝜑(𝑝,𝑎,𝑏)   𝜓(𝑥,𝑦,𝑎,𝑏)

Proof of Theorem sbcpr
StepHypRef Expression
1 sbc5 3744 . . 3 ([{𝑎, 𝑏} / 𝑝]𝜑 ↔ ∃𝑝(𝑝 = {𝑎, 𝑏} ∧ 𝜑))
2 preq12 4671 . . . . . . . . . . . . . . . . . 18 ((𝑥 = 𝑎𝑦 = 𝑏) → {𝑥, 𝑦} = {𝑎, 𝑏})
32eqcomd 2744 . . . . . . . . . . . . . . . . 17 ((𝑥 = 𝑎𝑦 = 𝑏) → {𝑎, 𝑏} = {𝑥, 𝑦})
43eqeq2d 2749 . . . . . . . . . . . . . . . 16 ((𝑥 = 𝑎𝑦 = 𝑏) → (𝑝 = {𝑎, 𝑏} ↔ 𝑝 = {𝑥, 𝑦}))
54biimpa 477 . . . . . . . . . . . . . . 15 (((𝑥 = 𝑎𝑦 = 𝑏) ∧ 𝑝 = {𝑎, 𝑏}) → 𝑝 = {𝑥, 𝑦})
6 sbcpr.x . . . . . . . . . . . . . . 15 (𝑝 = {𝑥, 𝑦} → (𝜑𝜓))
75, 6syl 17 . . . . . . . . . . . . . 14 (((𝑥 = 𝑎𝑦 = 𝑏) ∧ 𝑝 = {𝑎, 𝑏}) → (𝜑𝜓))
87biimpd 228 . . . . . . . . . . . . 13 (((𝑥 = 𝑎𝑦 = 𝑏) ∧ 𝑝 = {𝑎, 𝑏}) → (𝜑𝜓))
98expcom 414 . . . . . . . . . . . 12 (𝑝 = {𝑎, 𝑏} → ((𝑥 = 𝑎𝑦 = 𝑏) → (𝜑𝜓)))
109expd 416 . . . . . . . . . . 11 (𝑝 = {𝑎, 𝑏} → (𝑥 = 𝑎 → (𝑦 = 𝑏 → (𝜑𝜓))))
1110com24 95 . . . . . . . . . 10 (𝑝 = {𝑎, 𝑏} → (𝜑 → (𝑦 = 𝑏 → (𝑥 = 𝑎𝜓))))
1211imp31 418 . . . . . . . . 9 (((𝑝 = {𝑎, 𝑏} ∧ 𝜑) ∧ 𝑦 = 𝑏) → (𝑥 = 𝑎𝜓))
1312alrimiv 1930 . . . . . . . 8 (((𝑝 = {𝑎, 𝑏} ∧ 𝜑) ∧ 𝑦 = 𝑏) → ∀𝑥(𝑥 = 𝑎𝜓))
14 vex 3436 . . . . . . . . 9 𝑎 ∈ V
1514sbc6 3748 . . . . . . . 8 ([𝑎 / 𝑥]𝜓 ↔ ∀𝑥(𝑥 = 𝑎𝜓))
1613, 15sylibr 233 . . . . . . 7 (((𝑝 = {𝑎, 𝑏} ∧ 𝜑) ∧ 𝑦 = 𝑏) → [𝑎 / 𝑥]𝜓)
1716ex 413 . . . . . 6 ((𝑝 = {𝑎, 𝑏} ∧ 𝜑) → (𝑦 = 𝑏[𝑎 / 𝑥]𝜓))
1817alrimiv 1930 . . . . 5 ((𝑝 = {𝑎, 𝑏} ∧ 𝜑) → ∀𝑦(𝑦 = 𝑏[𝑎 / 𝑥]𝜓))
19 vex 3436 . . . . . 6 𝑏 ∈ V
2019sbc6 3748 . . . . 5 ([𝑏 / 𝑦][𝑎 / 𝑥]𝜓 ↔ ∀𝑦(𝑦 = 𝑏[𝑎 / 𝑥]𝜓))
2118, 20sylibr 233 . . . 4 ((𝑝 = {𝑎, 𝑏} ∧ 𝜑) → [𝑏 / 𝑦][𝑎 / 𝑥]𝜓)
2221exlimiv 1933 . . 3 (∃𝑝(𝑝 = {𝑎, 𝑏} ∧ 𝜑) → [𝑏 / 𝑦][𝑎 / 𝑥]𝜓)
231, 22sylbi 216 . 2 ([{𝑎, 𝑏} / 𝑝]𝜑[𝑏 / 𝑦][𝑎 / 𝑥]𝜓)
24 sbc5 3744 . . . . 5 ([𝑏 / 𝑦][𝑎 / 𝑥]𝜓 ↔ ∃𝑦(𝑦 = 𝑏[𝑎 / 𝑥]𝜓))
25 sbc5 3744 . . . . . . . 8 ([𝑎 / 𝑥]𝜓 ↔ ∃𝑥(𝑥 = 𝑎𝜓))
266bicomd 222 . . . . . . . . . . . . . . 15 (𝑝 = {𝑥, 𝑦} → (𝜓𝜑))
275, 26syl 17 . . . . . . . . . . . . . 14 (((𝑥 = 𝑎𝑦 = 𝑏) ∧ 𝑝 = {𝑎, 𝑏}) → (𝜓𝜑))
2827biimpd 228 . . . . . . . . . . . . 13 (((𝑥 = 𝑎𝑦 = 𝑏) ∧ 𝑝 = {𝑎, 𝑏}) → (𝜓𝜑))
2928expcom 414 . . . . . . . . . . . 12 (𝑝 = {𝑎, 𝑏} → ((𝑥 = 𝑎𝑦 = 𝑏) → (𝜓𝜑)))
3029com13 88 . . . . . . . . . . 11 (𝜓 → ((𝑥 = 𝑎𝑦 = 𝑏) → (𝑝 = {𝑎, 𝑏} → 𝜑)))
3130expd 416 . . . . . . . . . 10 (𝜓 → (𝑥 = 𝑎 → (𝑦 = 𝑏 → (𝑝 = {𝑎, 𝑏} → 𝜑))))
3231impcom 408 . . . . . . . . 9 ((𝑥 = 𝑎𝜓) → (𝑦 = 𝑏 → (𝑝 = {𝑎, 𝑏} → 𝜑)))
3332exlimiv 1933 . . . . . . . 8 (∃𝑥(𝑥 = 𝑎𝜓) → (𝑦 = 𝑏 → (𝑝 = {𝑎, 𝑏} → 𝜑)))
3425, 33sylbi 216 . . . . . . 7 ([𝑎 / 𝑥]𝜓 → (𝑦 = 𝑏 → (𝑝 = {𝑎, 𝑏} → 𝜑)))
3534impcom 408 . . . . . 6 ((𝑦 = 𝑏[𝑎 / 𝑥]𝜓) → (𝑝 = {𝑎, 𝑏} → 𝜑))
3635exlimiv 1933 . . . . 5 (∃𝑦(𝑦 = 𝑏[𝑎 / 𝑥]𝜓) → (𝑝 = {𝑎, 𝑏} → 𝜑))
3724, 36sylbi 216 . . . 4 ([𝑏 / 𝑦][𝑎 / 𝑥]𝜓 → (𝑝 = {𝑎, 𝑏} → 𝜑))
3837alrimiv 1930 . . 3 ([𝑏 / 𝑦][𝑎 / 𝑥]𝜓 → ∀𝑝(𝑝 = {𝑎, 𝑏} → 𝜑))
39 prex 5355 . . . 4 {𝑎, 𝑏} ∈ V
4039sbc6 3748 . . 3 ([{𝑎, 𝑏} / 𝑝]𝜑 ↔ ∀𝑝(𝑝 = {𝑎, 𝑏} → 𝜑))
4138, 40sylibr 233 . 2 ([𝑏 / 𝑦][𝑎 / 𝑥]𝜓[{𝑎, 𝑏} / 𝑝]𝜑)
4223, 41impbii 208 1 ([{𝑎, 𝑏} / 𝑝]𝜑[𝑏 / 𝑦][𝑎 / 𝑥]𝜓)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396  wal 1537   = wceq 1539  wex 1782  [wsbc 3716  {cpr 4563
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-12 2171  ax-ext 2709  ax-sep 5223  ax-nul 5230  ax-pr 5352
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-clab 2716  df-cleq 2730  df-clel 2816  df-v 3434  df-sbc 3717  df-dif 3890  df-un 3892  df-nul 4257  df-sn 4562  df-pr 4564
This theorem is referenced by:  reupr  44974
  Copyright terms: Public domain W3C validator