ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  opelopabsb GIF version

Theorem opelopabsb 4024
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 elopab 4022 . . . 4 (⟨𝐴, 𝐵⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑} ↔ ∃𝑢𝑣(⟨𝐴, 𝐵⟩ = ⟨𝑢, 𝑣⟩ ∧ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑))
2 simpl 106 . . . . . . . 8 ((⟨𝐴, 𝐵⟩ = ⟨𝑢, 𝑣⟩ ∧ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑) → ⟨𝐴, 𝐵⟩ = ⟨𝑢, 𝑣⟩)
32eqcomd 2061 . . . . . . 7 ((⟨𝐴, 𝐵⟩ = ⟨𝑢, 𝑣⟩ ∧ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑) → ⟨𝑢, 𝑣⟩ = ⟨𝐴, 𝐵⟩)
4 vex 2577 . . . . . . . 8 𝑢 ∈ V
5 vex 2577 . . . . . . . 8 𝑣 ∈ V
64, 5opth 4001 . . . . . . 7 (⟨𝑢, 𝑣⟩ = ⟨𝐴, 𝐵⟩ ↔ (𝑢 = 𝐴𝑣 = 𝐵))
73, 6sylib 131 . . . . . 6 ((⟨𝐴, 𝐵⟩ = ⟨𝑢, 𝑣⟩ ∧ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑) → (𝑢 = 𝐴𝑣 = 𝐵))
872eximi 1508 . . . . 5 (∃𝑢𝑣(⟨𝐴, 𝐵⟩ = ⟨𝑢, 𝑣⟩ ∧ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑) → ∃𝑢𝑣(𝑢 = 𝐴𝑣 = 𝐵))
9 eeanv 1823 . . . . . 6 (∃𝑢𝑣(𝑢 = 𝐴𝑣 = 𝐵) ↔ (∃𝑢 𝑢 = 𝐴 ∧ ∃𝑣 𝑣 = 𝐵))
10 isset 2578 . . . . . . 7 (𝐴 ∈ V ↔ ∃𝑢 𝑢 = 𝐴)
11 isset 2578 . . . . . . 7 (𝐵 ∈ V ↔ ∃𝑣 𝑣 = 𝐵)
1210, 11anbi12i 441 . . . . . 6 ((𝐴 ∈ V ∧ 𝐵 ∈ V) ↔ (∃𝑢 𝑢 = 𝐴 ∧ ∃𝑣 𝑣 = 𝐵))
139, 12bitr4i 180 . . . . 5 (∃𝑢𝑣(𝑢 = 𝐴𝑣 = 𝐵) ↔ (𝐴 ∈ V ∧ 𝐵 ∈ V))
148, 13sylib 131 . . . 4 (∃𝑢𝑣(⟨𝐴, 𝐵⟩ = ⟨𝑢, 𝑣⟩ ∧ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑) → (𝐴 ∈ V ∧ 𝐵 ∈ V))
151, 14sylbi 118 . . 3 (⟨𝐴, 𝐵⟩ ∈ {⟨𝑢, 𝑣⟩ ∣ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑} → (𝐴 ∈ V ∧ 𝐵 ∈ V))
16 nfv 1437 . . . 4 𝑢𝜑
17 nfv 1437 . . . 4 𝑣𝜑
18 nfs1v 1831 . . . 4 𝑥[𝑢 / 𝑥][𝑣 / 𝑦]𝜑
19 nfs1v 1831 . . . . 5 𝑦[𝑣 / 𝑦]𝜑
2019nfsbxy 1834 . . . 4 𝑦[𝑢 / 𝑥][𝑣 / 𝑦]𝜑
21 sbequ12 1670 . . . . 5 (𝑦 = 𝑣 → (𝜑 ↔ [𝑣 / 𝑦]𝜑))
22 sbequ12 1670 . . . . 5 (𝑥 = 𝑢 → ([𝑣 / 𝑦]𝜑 ↔ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑))
2321, 22sylan9bbr 444 . . . 4 ((𝑥 = 𝑢𝑦 = 𝑣) → (𝜑 ↔ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑))
2416, 17, 18, 20, 23cbvopab 3855 . . 3 {⟨𝑥, 𝑦⟩ ∣ 𝜑} = {⟨𝑢, 𝑣⟩ ∣ [𝑢 / 𝑥][𝑣 / 𝑦]𝜑}
2515, 24eleq2s 2148 . 2 (⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} → (𝐴 ∈ V ∧ 𝐵 ∈ V))
26 sbcex 2794 . . 3 ([𝐴 / 𝑥][𝐵 / 𝑦]𝜑𝐴 ∈ V)
27 spesbc 2870 . . . 4 ([𝐴 / 𝑥][𝐵 / 𝑦]𝜑 → ∃𝑥[𝐵 / 𝑦]𝜑)
28 sbcex 2794 . . . . 5 ([𝐵 / 𝑦]𝜑𝐵 ∈ V)
2928exlimiv 1505 . . . 4 (∃𝑥[𝐵 / 𝑦]𝜑𝐵 ∈ V)
3027, 29syl 14 . . 3 ([𝐴 / 𝑥][𝐵 / 𝑦]𝜑𝐵 ∈ V)
3126, 30jca 294 . 2 ([𝐴 / 𝑥][𝐵 / 𝑦]𝜑 → (𝐴 ∈ V ∧ 𝐵 ∈ V))
32 opeq1 3576 . . . . 5 (𝑧 = 𝐴 → ⟨𝑧, 𝑤⟩ = ⟨𝐴, 𝑤⟩)
3332eleq1d 2122 . . . 4 (𝑧 = 𝐴 → (⟨𝑧, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ ⟨𝐴, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑}))
34 dfsbcq2 2789 . . . 4 (𝑧 = 𝐴 → ([𝑧 / 𝑥][𝑤 / 𝑦]𝜑[𝐴 / 𝑥][𝑤 / 𝑦]𝜑))
3533, 34bibi12d 228 . . 3 (𝑧 = 𝐴 → ((⟨𝑧, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑧 / 𝑥][𝑤 / 𝑦]𝜑) ↔ (⟨𝐴, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝐴 / 𝑥][𝑤 / 𝑦]𝜑)))
36 opeq2 3577 . . . . 5 (𝑤 = 𝐵 → ⟨𝐴, 𝑤⟩ = ⟨𝐴, 𝐵⟩)
3736eleq1d 2122 . . . 4 (𝑤 = 𝐵 → (⟨𝐴, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ ⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑}))
38 dfsbcq2 2789 . . . . 5 (𝑤 = 𝐵 → ([𝑤 / 𝑦]𝜑[𝐵 / 𝑦]𝜑))
3938sbcbidv 2843 . . . 4 (𝑤 = 𝐵 → ([𝐴 / 𝑥][𝑤 / 𝑦]𝜑[𝐴 / 𝑥][𝐵 / 𝑦]𝜑))
4037, 39bibi12d 228 . . 3 (𝑤 = 𝐵 → ((⟨𝐴, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝐴 / 𝑥][𝑤 / 𝑦]𝜑) ↔ (⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝐴 / 𝑥][𝐵 / 𝑦]𝜑)))
41 nfopab1 3853 . . . . . 6 𝑥{⟨𝑥, 𝑦⟩ ∣ 𝜑}
4241nfel2 2206 . . . . 5 𝑥𝑧, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑}
43 nfs1v 1831 . . . . 5 𝑥[𝑧 / 𝑥][𝑤 / 𝑦]𝜑
4442, 43nfbi 1497 . . . 4 𝑥(⟨𝑧, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑧 / 𝑥][𝑤 / 𝑦]𝜑)
45 opeq1 3576 . . . . . 6 (𝑥 = 𝑧 → ⟨𝑥, 𝑤⟩ = ⟨𝑧, 𝑤⟩)
4645eleq1d 2122 . . . . 5 (𝑥 = 𝑧 → (⟨𝑥, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ ⟨𝑧, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑}))
47 sbequ12 1670 . . . . 5 (𝑥 = 𝑧 → ([𝑤 / 𝑦]𝜑 ↔ [𝑧 / 𝑥][𝑤 / 𝑦]𝜑))
4846, 47bibi12d 228 . . . 4 (𝑥 = 𝑧 → ((⟨𝑥, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑤 / 𝑦]𝜑) ↔ (⟨𝑧, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑧 / 𝑥][𝑤 / 𝑦]𝜑)))
49 nfopab2 3854 . . . . . . 7 𝑦{⟨𝑥, 𝑦⟩ ∣ 𝜑}
5049nfel2 2206 . . . . . 6 𝑦𝑥, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑}
51 nfs1v 1831 . . . . . 6 𝑦[𝑤 / 𝑦]𝜑
5250, 51nfbi 1497 . . . . 5 𝑦(⟨𝑥, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑤 / 𝑦]𝜑)
53 opeq2 3577 . . . . . . 7 (𝑦 = 𝑤 → ⟨𝑥, 𝑦⟩ = ⟨𝑥, 𝑤⟩)
5453eleq1d 2122 . . . . . 6 (𝑦 = 𝑤 → (⟨𝑥, 𝑦⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ ⟨𝑥, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑}))
55 sbequ12 1670 . . . . . 6 (𝑦 = 𝑤 → (𝜑 ↔ [𝑤 / 𝑦]𝜑))
5654, 55bibi12d 228 . . . . 5 (𝑦 = 𝑤 → ((⟨𝑥, 𝑦⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ 𝜑) ↔ (⟨𝑥, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑤 / 𝑦]𝜑)))
57 opabid 4021 . . . . 5 (⟨𝑥, 𝑦⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ 𝜑)
5852, 56, 57chvar 1656 . . . 4 (⟨𝑥, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑤 / 𝑦]𝜑)
5944, 48, 58chvar 1656 . . 3 (⟨𝑧, 𝑤⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝑧 / 𝑥][𝑤 / 𝑦]𝜑)
6035, 40, 59vtocl2g 2634 . 2 ((𝐴 ∈ V ∧ 𝐵 ∈ V) → (⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝐴 / 𝑥][𝐵 / 𝑦]𝜑))
6125, 31, 60pm5.21nii 630 1 (⟨𝐴, 𝐵⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ 𝜑} ↔ [𝐴 / 𝑥][𝐵 / 𝑦]𝜑)
Colors of variables: wff set class
Syntax hints:  wa 101  wb 102   = wceq 1259  wex 1397  wcel 1409  [wsb 1661  Vcvv 2574  [wsbc 2786  cop 3405  {copab 3844
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 103  ax-ia2 104  ax-ia3 105  ax-io 640  ax-5 1352  ax-7 1353  ax-gen 1354  ax-ie1 1398  ax-ie2 1399  ax-8 1411  ax-10 1412  ax-11 1413  ax-i12 1414  ax-bndl 1415  ax-4 1416  ax-14 1421  ax-17 1435  ax-i9 1439  ax-ial 1443  ax-i5r 1444  ax-ext 2038  ax-sep 3902  ax-pow 3954  ax-pr 3971
This theorem depends on definitions:  df-bi 114  df-3an 898  df-tru 1262  df-nf 1366  df-sb 1662  df-eu 1919  df-mo 1920  df-clab 2043  df-cleq 2049  df-clel 2052  df-nfc 2183  df-rex 2329  df-v 2576  df-sbc 2787  df-un 2949  df-in 2951  df-ss 2958  df-pw 3388  df-sn 3408  df-pr 3409  df-op 3411  df-opab 3846
This theorem is referenced by:  brabsb  4025  opelopabaf  4037  opelopabf  4038  difopab  4496  isarep1  5012
  Copyright terms: Public domain W3C validator