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 44491
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 3707 . . 3 ([{𝑎, 𝑏} / 𝑝]𝜑 ↔ ∃𝑝(𝑝 = {𝑎, 𝑏} ∧ 𝜑))
2 preq12 4623 . . . . . . . . . . . . . . . . . 18 ((𝑥 = 𝑎𝑦 = 𝑏) → {𝑥, 𝑦} = {𝑎, 𝑏})
32eqcomd 2744 . . . . . . . . . . . . . . . . 17 ((𝑥 = 𝑎𝑦 = 𝑏) → {𝑎, 𝑏} = {𝑥, 𝑦})
43eqeq2d 2749 . . . . . . . . . . . . . . . 16 ((𝑥 = 𝑎𝑦 = 𝑏) → (𝑝 = {𝑎, 𝑏} ↔ 𝑝 = {𝑥, 𝑦}))
54biimpa 480 . . . . . . . . . . . . . . 15 (((𝑥 = 𝑎𝑦 = 𝑏) ∧ 𝑝 = {𝑎, 𝑏}) → 𝑝 = {𝑥, 𝑦})
6 sbcpr.x . . . . . . . . . . . . . . 15 (𝑝 = {𝑥, 𝑦} → (𝜑𝜓))
75, 6syl 17 . . . . . . . . . . . . . 14 (((𝑥 = 𝑎𝑦 = 𝑏) ∧ 𝑝 = {𝑎, 𝑏}) → (𝜑𝜓))
87biimpd 232 . . . . . . . . . . . . 13 (((𝑥 = 𝑎𝑦 = 𝑏) ∧ 𝑝 = {𝑎, 𝑏}) → (𝜑𝜓))
98expcom 417 . . . . . . . . . . . 12 (𝑝 = {𝑎, 𝑏} → ((𝑥 = 𝑎𝑦 = 𝑏) → (𝜑𝜓)))
109expd 419 . . . . . . . . . . 11 (𝑝 = {𝑎, 𝑏} → (𝑥 = 𝑎 → (𝑦 = 𝑏 → (𝜑𝜓))))
1110com24 95 . . . . . . . . . 10 (𝑝 = {𝑎, 𝑏} → (𝜑 → (𝑦 = 𝑏 → (𝑥 = 𝑎𝜓))))
1211imp31 421 . . . . . . . . 9 (((𝑝 = {𝑎, 𝑏} ∧ 𝜑) ∧ 𝑦 = 𝑏) → (𝑥 = 𝑎𝜓))
1312alrimiv 1933 . . . . . . . 8 (((𝑝 = {𝑎, 𝑏} ∧ 𝜑) ∧ 𝑦 = 𝑏) → ∀𝑥(𝑥 = 𝑎𝜓))
14 vex 3401 . . . . . . . . 9 𝑎 ∈ V
1514sbc6 3710 . . . . . . . 8 ([𝑎 / 𝑥]𝜓 ↔ ∀𝑥(𝑥 = 𝑎𝜓))
1613, 15sylibr 237 . . . . . . 7 (((𝑝 = {𝑎, 𝑏} ∧ 𝜑) ∧ 𝑦 = 𝑏) → [𝑎 / 𝑥]𝜓)
1716ex 416 . . . . . 6 ((𝑝 = {𝑎, 𝑏} ∧ 𝜑) → (𝑦 = 𝑏[𝑎 / 𝑥]𝜓))
1817alrimiv 1933 . . . . 5 ((𝑝 = {𝑎, 𝑏} ∧ 𝜑) → ∀𝑦(𝑦 = 𝑏[𝑎 / 𝑥]𝜓))
19 vex 3401 . . . . . 6 𝑏 ∈ V
2019sbc6 3710 . . . . 5 ([𝑏 / 𝑦][𝑎 / 𝑥]𝜓 ↔ ∀𝑦(𝑦 = 𝑏[𝑎 / 𝑥]𝜓))
2118, 20sylibr 237 . . . 4 ((𝑝 = {𝑎, 𝑏} ∧ 𝜑) → [𝑏 / 𝑦][𝑎 / 𝑥]𝜓)
2221exlimiv 1936 . . 3 (∃𝑝(𝑝 = {𝑎, 𝑏} ∧ 𝜑) → [𝑏 / 𝑦][𝑎 / 𝑥]𝜓)
231, 22sylbi 220 . 2 ([{𝑎, 𝑏} / 𝑝]𝜑[𝑏 / 𝑦][𝑎 / 𝑥]𝜓)
24 sbc5 3707 . . . . 5 ([𝑏 / 𝑦][𝑎 / 𝑥]𝜓 ↔ ∃𝑦(𝑦 = 𝑏[𝑎 / 𝑥]𝜓))
25 sbc5 3707 . . . . . . . 8 ([𝑎 / 𝑥]𝜓 ↔ ∃𝑥(𝑥 = 𝑎𝜓))
266bicomd 226 . . . . . . . . . . . . . . 15 (𝑝 = {𝑥, 𝑦} → (𝜓𝜑))
275, 26syl 17 . . . . . . . . . . . . . 14 (((𝑥 = 𝑎𝑦 = 𝑏) ∧ 𝑝 = {𝑎, 𝑏}) → (𝜓𝜑))
2827biimpd 232 . . . . . . . . . . . . 13 (((𝑥 = 𝑎𝑦 = 𝑏) ∧ 𝑝 = {𝑎, 𝑏}) → (𝜓𝜑))
2928expcom 417 . . . . . . . . . . . 12 (𝑝 = {𝑎, 𝑏} → ((𝑥 = 𝑎𝑦 = 𝑏) → (𝜓𝜑)))
3029com13 88 . . . . . . . . . . 11 (𝜓 → ((𝑥 = 𝑎𝑦 = 𝑏) → (𝑝 = {𝑎, 𝑏} → 𝜑)))
3130expd 419 . . . . . . . . . 10 (𝜓 → (𝑥 = 𝑎 → (𝑦 = 𝑏 → (𝑝 = {𝑎, 𝑏} → 𝜑))))
3231impcom 411 . . . . . . . . 9 ((𝑥 = 𝑎𝜓) → (𝑦 = 𝑏 → (𝑝 = {𝑎, 𝑏} → 𝜑)))
3332exlimiv 1936 . . . . . . . 8 (∃𝑥(𝑥 = 𝑎𝜓) → (𝑦 = 𝑏 → (𝑝 = {𝑎, 𝑏} → 𝜑)))
3425, 33sylbi 220 . . . . . . 7 ([𝑎 / 𝑥]𝜓 → (𝑦 = 𝑏 → (𝑝 = {𝑎, 𝑏} → 𝜑)))
3534impcom 411 . . . . . 6 ((𝑦 = 𝑏[𝑎 / 𝑥]𝜓) → (𝑝 = {𝑎, 𝑏} → 𝜑))
3635exlimiv 1936 . . . . 5 (∃𝑦(𝑦 = 𝑏[𝑎 / 𝑥]𝜓) → (𝑝 = {𝑎, 𝑏} → 𝜑))
3724, 36sylbi 220 . . . 4 ([𝑏 / 𝑦][𝑎 / 𝑥]𝜓 → (𝑝 = {𝑎, 𝑏} → 𝜑))
3837alrimiv 1933 . . 3 ([𝑏 / 𝑦][𝑎 / 𝑥]𝜓 → ∀𝑝(𝑝 = {𝑎, 𝑏} → 𝜑))
39 prex 5296 . . . 4 {𝑎, 𝑏} ∈ V
4039sbc6 3710 . . 3 ([{𝑎, 𝑏} / 𝑝]𝜑 ↔ ∀𝑝(𝑝 = {𝑎, 𝑏} → 𝜑))
4138, 40sylibr 237 . 2 ([𝑏 / 𝑦][𝑎 / 𝑥]𝜓[{𝑎, 𝑏} / 𝑝]𝜑)
4223, 41impbii 212 1 ([{𝑎, 𝑏} / 𝑝]𝜑[𝑏 / 𝑦][𝑎 / 𝑥]𝜓)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 399  wal 1540   = wceq 1542  wex 1786  [wsbc 3679  {cpr 4515
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1916  ax-6 1974  ax-7 2019  ax-8 2115  ax-9 2123  ax-10 2144  ax-12 2178  ax-ext 2710  ax-sep 5164  ax-nul 5171  ax-pr 5293
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2074  df-clab 2717  df-cleq 2730  df-clel 2811  df-v 3399  df-sbc 3680  df-dif 3844  df-un 3846  df-nul 4210  df-sn 4514  df-pr 4516
This theorem is referenced by:  reupr  44492
  Copyright terms: Public domain W3C validator