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

Theorem opelopabsb 5540
Description: The law of concretion in terms of substitutions. (Contributed by NM, 30-Sep-2002.) (Revised by Mario Carneiro, 18-Nov-2016.)
Assertion
Ref Expression
opelopabsb (⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝐴 / 𝑥][𝐵 / 𝑦]𝜑)
Distinct variable groups:   𝑥,𝑦   𝑥,𝐵
Allowed substitution hints:   𝜑(𝑥,𝑦)   𝐴(𝑥,𝑦)   𝐵(𝑦)

Proof of Theorem opelopabsb
Dummy variables 𝑧 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 vex 3482 . . . . . . . . . 10 𝑥 ∈ V
2 vex 3482 . . . . . . . . . 10 𝑦 ∈ V
31, 2opnzi 5485 . . . . . . . . 9 𝑥, 𝑦⟩ ≠ ∅
4 simpl 482 . . . . . . . . . . 11 ((∅ = ⟨𝑥, 𝑦⟩ ∧ 𝜑) → ∅ = ⟨𝑥, 𝑦⟩)
54eqcomd 2741 . . . . . . . . . 10 ((∅ = ⟨𝑥, 𝑦⟩ ∧ 𝜑) → ⟨𝑥, 𝑦⟩ = ∅)
65necon3ai 2963 . . . . . . . . 9 (⟨𝑥, 𝑦⟩ ≠ ∅ → ¬ (∅ = ⟨𝑥, 𝑦⟩ ∧ 𝜑))
73, 6ax-mp 5 . . . . . . . 8 ¬ (∅ = ⟨𝑥, 𝑦⟩ ∧ 𝜑)
87nex 1797 . . . . . . 7 ¬ ∃𝑦(∅ = ⟨𝑥, 𝑦⟩ ∧ 𝜑)
98nex 1797 . . . . . 6 ¬ ∃𝑥𝑦(∅ = ⟨𝑥, 𝑦⟩ ∧ 𝜑)
10 elopab 5537 . . . . . 6 (∅ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ ∃𝑥𝑦(∅ = ⟨𝑥, 𝑦⟩ ∧ 𝜑))
119, 10mtbir 323 . . . . 5 ¬ ∅ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑}
12 eleq1 2827 . . . . 5 (⟨𝐴, 𝐵⟩ = ∅ → (⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ ∅ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑}))
1311, 12mtbiri 327 . . . 4 (⟨𝐴, 𝐵⟩ = ∅ → ¬ ⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑})
1413necon2ai 2968 . . 3 (⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} → ⟨𝐴, 𝐵⟩ ≠ ∅)
15 opnz 5484 . . 3 (⟨𝐴, 𝐵⟩ ≠ ∅ ↔ (𝐴 ∈ V ∧ 𝐵 ∈ V))
1614, 15sylib 218 . 2 (⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} → (𝐴 ∈ V ∧ 𝐵 ∈ V))
17 sbcex 3801 . . 3 ([𝐴 / 𝑥][𝐵 / 𝑦]𝜑𝐴 ∈ V)
18 spesbc 3891 . . . 4 ([𝐴 / 𝑥][𝐵 / 𝑦]𝜑 → ∃𝑥[𝐵 / 𝑦]𝜑)
19 sbcex 3801 . . . . 5 ([𝐵 / 𝑦]𝜑𝐵 ∈ V)
2019exlimiv 1928 . . . 4 (∃𝑥[𝐵 / 𝑦]𝜑𝐵 ∈ V)
2118, 20syl 17 . . 3 ([𝐴 / 𝑥][𝐵 / 𝑦]𝜑𝐵 ∈ V)
2217, 21jca 511 . 2 ([𝐴 / 𝑥][𝐵 / 𝑦]𝜑 → (𝐴 ∈ V ∧ 𝐵 ∈ V))
23 opeq1 4878 . . . . 5 (𝑧 = 𝐴 → ⟨𝑧, 𝑤⟩ = ⟨𝐴, 𝑤⟩)
2423eleq1d 2824 . . . 4 (𝑧 = 𝐴 → (⟨𝑧, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ ⟨𝐴, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑}))
25 dfsbcq2 3794 . . . 4 (𝑧 = 𝐴 → ([𝑧 / 𝑥][𝑤 / 𝑦]𝜑[𝐴 / 𝑥][𝑤 / 𝑦]𝜑))
2624, 25bibi12d 345 . . 3 (𝑧 = 𝐴 → ((⟨𝑧, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑧 / 𝑥][𝑤 / 𝑦]𝜑) ↔ (⟨𝐴, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝐴 / 𝑥][𝑤 / 𝑦]𝜑)))
27 opeq2 4879 . . . . 5 (𝑤 = 𝐵 → ⟨𝐴, 𝑤⟩ = ⟨𝐴, 𝐵⟩)
2827eleq1d 2824 . . . 4 (𝑤 = 𝐵 → (⟨𝐴, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ ⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑}))
29 dfsbcq2 3794 . . . . 5 (𝑤 = 𝐵 → ([𝑤 / 𝑦]𝜑[𝐵 / 𝑦]𝜑))
3029sbcbidv 3851 . . . 4 (𝑤 = 𝐵 → ([𝐴 / 𝑥][𝑤 / 𝑦]𝜑[𝐴 / 𝑥][𝐵 / 𝑦]𝜑))
3128, 30bibi12d 345 . . 3 (𝑤 = 𝐵 → ((⟨𝐴, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝐴 / 𝑥][𝑤 / 𝑦]𝜑) ↔ (⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝐴 / 𝑥][𝐵 / 𝑦]𝜑)))
32 vopelopabsb 5539 . . 3 (⟨𝑧, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑧 / 𝑥][𝑤 / 𝑦]𝜑)
3326, 31, 32vtocl2g 3574 . 2 ((𝐴 ∈ V ∧ 𝐵 ∈ V) → (⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝐴 / 𝑥][𝐵 / 𝑦]𝜑))
3416, 22, 33pm5.21nii 378 1 (⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝐴 / 𝑥][𝐵 / 𝑦]𝜑)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wb 206  wa 395   = wceq 1537  wex 1776  [wsb 2062  wcel 2106  wne 2938  Vcvv 3478  [wsbc 3791  c0 4339  cop 4637  {copab 5210
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1908  ax-6 1965  ax-7 2005  ax-8 2108  ax-9 2116  ax-10 2139  ax-11 2155  ax-12 2175  ax-ext 2706  ax-sep 5302  ax-nul 5312  ax-pr 5438
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1540  df-fal 1550  df-ex 1777  df-nf 1781  df-sb 2063  df-clab 2713  df-cleq 2727  df-clel 2814  df-nfc 2890  df-ne 2939  df-ral 3060  df-rex 3069  df-rab 3434  df-v 3480  df-sbc 3792  df-dif 3966  df-un 3968  df-ss 3980  df-nul 4340  df-if 4532  df-sn 4632  df-pr 4634  df-op 4638  df-opab 5211
This theorem is referenced by:  brabsb  5541  opelopabgf  5550  opelopabaf  5554  opelopabf  5555  difopabOLD  5844  isarep1OLD  6658  fmptsnd  7189
  Copyright terms: Public domain W3C validator