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

Theorem elmptrab 21343
Description: Membership in a one-parameter class of sets. (Contributed by Stefan O'Rear, 28-Jul-2015.)
Hypotheses
Ref Expression
elmptrab.f 𝐹 = (𝑥𝐷 ↦ {𝑦𝐵𝜑})
elmptrab.s1 ((𝑥 = 𝑋𝑦 = 𝑌) → (𝜑𝜓))
elmptrab.s2 (𝑥 = 𝑋𝐵 = 𝐶)
elmptrab.ex (𝑥𝐷𝐵𝑉)
Assertion
Ref Expression
elmptrab (𝑌 ∈ (𝐹𝑋) ↔ (𝑋𝐷𝑌𝐶𝜓))
Distinct variable groups:   𝑥,𝑦,𝑋   𝑦,𝐵   𝑥,𝐶,𝑦   𝑥,𝐷   𝑥,𝑉,𝑦   𝑥,𝑌,𝑦   𝜓,𝑥,𝑦
Allowed substitution hints:   𝜑(𝑥,𝑦)   𝐵(𝑥)   𝐷(𝑦)   𝐹(𝑥,𝑦)

Proof of Theorem elmptrab
Dummy variables 𝑤 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 elmptrab.f . . 3 𝐹 = (𝑥𝐷 ↦ {𝑦𝐵𝜑})
21mptrcl 6082 . 2 (𝑌 ∈ (𝐹𝑋) → 𝑋𝐷)
3 simp1 1053 . 2 ((𝑋𝐷𝑌𝐶𝜓) → 𝑋𝐷)
4 csbeq1 3406 . . . . . 6 (𝑧 = 𝑋𝑧 / 𝑥𝐵 = 𝑋 / 𝑥𝐵)
5 dfsbcq 3308 . . . . . 6 (𝑧 = 𝑋 → ([𝑧 / 𝑥][𝑤 / 𝑦]𝜑[𝑋 / 𝑥][𝑤 / 𝑦]𝜑))
64, 5rabeqbidv 3072 . . . . 5 (𝑧 = 𝑋 → {𝑤𝑧 / 𝑥𝐵[𝑧 / 𝑥][𝑤 / 𝑦]𝜑} = {𝑤𝑋 / 𝑥𝐵[𝑋 / 𝑥][𝑤 / 𝑦]𝜑})
7 nfcv 2655 . . . . . . 7 𝑧{𝑦𝐵𝜑}
8 nfsbc1v 3326 . . . . . . . 8 𝑥[𝑧 / 𝑥][𝑤 / 𝑦]𝜑
9 nfcsb1v 3419 . . . . . . . 8 𝑥𝑧 / 𝑥𝐵
108, 9nfrab 3004 . . . . . . 7 𝑥{𝑤𝑧 / 𝑥𝐵[𝑧 / 𝑥][𝑤 / 𝑦]𝜑}
11 csbeq1a 3412 . . . . . . . . 9 (𝑥 = 𝑧𝐵 = 𝑧 / 𝑥𝐵)
12 sbceq1a 3317 . . . . . . . . 9 (𝑥 = 𝑧 → (𝜑[𝑧 / 𝑥]𝜑))
1311, 12rabeqbidv 3072 . . . . . . . 8 (𝑥 = 𝑧 → {𝑦𝐵𝜑} = {𝑦𝑧 / 𝑥𝐵[𝑧 / 𝑥]𝜑})
14 nfcv 2655 . . . . . . . . 9 𝑤𝑧 / 𝑥𝐵
15 nfcv 2655 . . . . . . . . 9 𝑦𝑧 / 𝑥𝐵
16 nfcv 2655 . . . . . . . . . 10 𝑦𝑧
17 nfsbc1v 3326 . . . . . . . . . 10 𝑦[𝑤 / 𝑦]𝜑
1816, 17nfsbc 3328 . . . . . . . . 9 𝑦[𝑧 / 𝑥][𝑤 / 𝑦]𝜑
19 nfv 1796 . . . . . . . . 9 𝑤[𝑧 / 𝑥]𝜑
20 sbceq1a 3317 . . . . . . . . . . 11 (𝑦 = 𝑤 → ([𝑧 / 𝑥]𝜑[𝑤 / 𝑦][𝑧 / 𝑥]𝜑))
2120equcoms 1897 . . . . . . . . . 10 (𝑤 = 𝑦 → ([𝑧 / 𝑥]𝜑[𝑤 / 𝑦][𝑧 / 𝑥]𝜑))
22 sbccom 3380 . . . . . . . . . 10 ([𝑧 / 𝑥][𝑤 / 𝑦]𝜑[𝑤 / 𝑦][𝑧 / 𝑥]𝜑)
2321, 22syl6rbbr 277 . . . . . . . . 9 (𝑤 = 𝑦 → ([𝑧 / 𝑥][𝑤 / 𝑦]𝜑[𝑧 / 𝑥]𝜑))
2414, 15, 18, 19, 23cbvrab 3075 . . . . . . . 8 {𝑤𝑧 / 𝑥𝐵[𝑧 / 𝑥][𝑤 / 𝑦]𝜑} = {𝑦𝑧 / 𝑥𝐵[𝑧 / 𝑥]𝜑}
2513, 24syl6eqr 2566 . . . . . . 7 (𝑥 = 𝑧 → {𝑦𝐵𝜑} = {𝑤𝑧 / 𝑥𝐵[𝑧 / 𝑥][𝑤 / 𝑦]𝜑})
267, 10, 25cbvmpt 4575 . . . . . 6 (𝑥𝐷 ↦ {𝑦𝐵𝜑}) = (𝑧𝐷 ↦ {𝑤𝑧 / 𝑥𝐵[𝑧 / 𝑥][𝑤 / 𝑦]𝜑})
271, 26eqtri 2536 . . . . 5 𝐹 = (𝑧𝐷 ↦ {𝑤𝑧 / 𝑥𝐵[𝑧 / 𝑥][𝑤 / 𝑦]𝜑})
28 nfv 1796 . . . . . . . 8 𝑥 𝑧𝐷
299nfel1 2669 . . . . . . . 8 𝑥𝑧 / 𝑥𝐵𝑉
3028, 29nfim 2051 . . . . . . 7 𝑥(𝑧𝐷𝑧 / 𝑥𝐵𝑉)
31 eleq1 2580 . . . . . . . 8 (𝑥 = 𝑧 → (𝑥𝐷𝑧𝐷))
3211eleq1d 2576 . . . . . . . 8 (𝑥 = 𝑧 → (𝐵𝑉𝑧 / 𝑥𝐵𝑉))
3331, 32imbi12d 332 . . . . . . 7 (𝑥 = 𝑧 → ((𝑥𝐷𝐵𝑉) ↔ (𝑧𝐷𝑧 / 𝑥𝐵𝑉)))
34 elmptrab.ex . . . . . . 7 (𝑥𝐷𝐵𝑉)
3530, 33, 34chvar 2153 . . . . . 6 (𝑧𝐷𝑧 / 𝑥𝐵𝑉)
36 rabexg 4638 . . . . . 6 (𝑧 / 𝑥𝐵𝑉 → {𝑤𝑧 / 𝑥𝐵[𝑧 / 𝑥][𝑤 / 𝑦]𝜑} ∈ V)
3735, 36syl 17 . . . . 5 (𝑧𝐷 → {𝑤𝑧 / 𝑥𝐵[𝑧 / 𝑥][𝑤 / 𝑦]𝜑} ∈ V)
386, 27, 37fvmpt3 6079 . . . 4 (𝑋𝐷 → (𝐹𝑋) = {𝑤𝑋 / 𝑥𝐵[𝑋 / 𝑥][𝑤 / 𝑦]𝜑})
3938eleq2d 2577 . . 3 (𝑋𝐷 → (𝑌 ∈ (𝐹𝑋) ↔ 𝑌 ∈ {𝑤𝑋 / 𝑥𝐵[𝑋 / 𝑥][𝑤 / 𝑦]𝜑}))
40 dfsbcq 3308 . . . . . . 7 (𝑤 = 𝑌 → ([𝑤 / 𝑦]𝜑[𝑌 / 𝑦]𝜑))
4140sbcbidv 3361 . . . . . 6 (𝑤 = 𝑌 → ([𝑋 / 𝑥][𝑤 / 𝑦]𝜑[𝑋 / 𝑥][𝑌 / 𝑦]𝜑))
4241elrab 3235 . . . . 5 (𝑌 ∈ {𝑤𝑋 / 𝑥𝐵[𝑋 / 𝑥][𝑤 / 𝑦]𝜑} ↔ (𝑌𝑋 / 𝑥𝐵[𝑋 / 𝑥][𝑌 / 𝑦]𝜑))
4342a1i 11 . . . 4 (𝑋𝐷 → (𝑌 ∈ {𝑤𝑋 / 𝑥𝐵[𝑋 / 𝑥][𝑤 / 𝑦]𝜑} ↔ (𝑌𝑋 / 𝑥𝐵[𝑋 / 𝑥][𝑌 / 𝑦]𝜑)))
44 nfcvd 2656 . . . . . . 7 (𝑋𝐷𝑥𝐶)
45 elmptrab.s2 . . . . . . 7 (𝑥 = 𝑋𝐵 = 𝐶)
4644, 45csbiegf 3427 . . . . . 6 (𝑋𝐷𝑋 / 𝑥𝐵 = 𝐶)
4746eleq2d 2577 . . . . 5 (𝑋𝐷 → (𝑌𝑋 / 𝑥𝐵𝑌𝐶))
4847anbi1d 736 . . . 4 (𝑋𝐷 → ((𝑌𝑋 / 𝑥𝐵[𝑋 / 𝑥][𝑌 / 𝑦]𝜑) ↔ (𝑌𝐶[𝑋 / 𝑥][𝑌 / 𝑦]𝜑)))
49 nfv 1796 . . . . . 6 𝑥𝜓
50 nfv 1796 . . . . . 6 𝑦𝜓
51 nfv 1796 . . . . . 6 𝑥 𝑌𝐶
52 elmptrab.s1 . . . . . 6 ((𝑥 = 𝑋𝑦 = 𝑌) → (𝜑𝜓))
5349, 50, 51, 52sbc2iegf 3375 . . . . 5 ((𝑋𝐷𝑌𝐶) → ([𝑋 / 𝑥][𝑌 / 𝑦]𝜑𝜓))
5453pm5.32da 670 . . . 4 (𝑋𝐷 → ((𝑌𝐶[𝑋 / 𝑥][𝑌 / 𝑦]𝜑) ↔ (𝑌𝐶𝜓)))
5543, 48, 543bitrd 292 . . 3 (𝑋𝐷 → (𝑌 ∈ {𝑤𝑋 / 𝑥𝐵[𝑋 / 𝑥][𝑤 / 𝑦]𝜑} ↔ (𝑌𝐶𝜓)))
56 3anass 1034 . . . 4 ((𝑋𝐷𝑌𝐶𝜓) ↔ (𝑋𝐷 ∧ (𝑌𝐶𝜓)))
5756baibr 942 . . 3 (𝑋𝐷 → ((𝑌𝐶𝜓) ↔ (𝑋𝐷𝑌𝐶𝜓)))
5839, 55, 573bitrd 292 . 2 (𝑋𝐷 → (𝑌 ∈ (𝐹𝑋) ↔ (𝑋𝐷𝑌𝐶𝜓)))
592, 3, 58pm5.21nii 366 1 (𝑌 ∈ (𝐹𝑋) ↔ (𝑋𝐷𝑌𝐶𝜓))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 194  wa 382  w3a 1030   = wceq 1474  wcel 1938  {crab 2804  Vcvv 3077  [wsbc 3306  csb 3403  cmpt 4541  cfv 5689
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1700  ax-4 1713  ax-5 1793  ax-6 1838  ax-7 1885  ax-8 1940  ax-9 1947  ax-10 1966  ax-11 1971  ax-12 1983  ax-13 2137  ax-ext 2494  ax-sep 4607  ax-nul 4616  ax-pow 4668  ax-pr 4732
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3an 1032  df-tru 1477  df-ex 1695  df-nf 1699  df-sb 1831  df-eu 2366  df-mo 2367  df-clab 2501  df-cleq 2507  df-clel 2510  df-nfc 2644  df-ral 2805  df-rex 2806  df-rab 2809  df-v 3079  df-sbc 3307  df-csb 3404  df-dif 3447  df-un 3449  df-in 3451  df-ss 3458  df-nul 3778  df-if 3940  df-sn 4029  df-pr 4031  df-op 4035  df-uni 4271  df-br 4482  df-opab 4542  df-mpt 4543  df-id 4847  df-xp 4938  df-rel 4939  df-cnv 4940  df-co 4941  df-dm 4942  df-rn 4943  df-res 4944  df-ima 4945  df-iota 5653  df-fun 5691  df-fv 5697
This theorem is referenced by:  elmptrab2OLD  21344  elmptrab2  21345  isfbas  21346
  Copyright terms: Public domain W3C validator