HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
GIF version

Theorem sbcel12g 2007
Description: Distribute proper substitution through a membership relation.
Assertion
Ref Expression
sbcel12g (AD → ([A / x]BC[A / x]B[A / x]C))

Proof of Theorem sbcel12g
StepHypRef Expression
1 elisset 1813 . . 3 (ADAV)
2 sbcexg 1971 . . . . 5 (AV → ([A / x]∃z(z = BzC) ↔ ∃z[A / x](z = BzC)))
3 df-clel 1470 . . . . . 6 (BC ↔ ∃z(z = BzC))
43sbcbii 1974 . . . . 5 (AV → ([A / x]BC ↔ [A / x]∃z(z = BzC)))
5 dfcleq 1468 . . . . . . . . . . 11 (z = B ↔ ∀y(yzyB))
65sbcbii 1974 . . . . . . . . . 10 (AV → ([A / x]z = B ↔ [A / x]∀y(yzyB)))
7 sbcalg 1970 . . . . . . . . . 10 (AV → ([A / x]∀y(yzyB) ↔ ∀y[A / x](yzyB)))
8 sbcbidig 1969 . . . . . . . . . . . 12 (AV → ([A / x](yzyB) ↔ ([A / x]yz ↔ [A / x]yB)))
9 ax-17 969 . . . . . . . . . . . . . 14 (yz → ∀x yz)
109sbcgf 1982 . . . . . . . . . . . . 13 (AV → ([A / x]yzyz))
1110bibi1d 618 . . . . . . . . . . . 12 (AV → (([A / x]yz ↔ [A / x]yB) ↔ (yz ↔ [A / x]yB)))
128, 11bitrd 527 . . . . . . . . . . 11 (AV → ([A / x](yzyB) ↔ (yz ↔ [A / x]yB)))
1312albidv 1276 . . . . . . . . . 10 (AV → (∀y[A / x](yzyB) ↔ ∀y(yz ↔ [A / x]yB)))
146, 7, 133bitrd 543 . . . . . . . . 9 (AV → ([A / x]z = B ↔ ∀y(yz ↔ [A / x]yB)))
15 abeq2 1565 . . . . . . . . 9 (z = {y∣[A / x]yB} ↔ ∀y(yz ↔ [A / x]yB))
1614, 15syl6rbbr 538 . . . . . . . 8 (AV → (z = {y∣[A / x]yB} ↔ [A / x]z = B))
17 eleq1 1531 . . . . . . . . . . . 12 (y = z → (yCzC))
1817sbcbidv 1973 . . . . . . . . . . 11 ((y = zAV) → ([A / x]yC ↔ [A / x]zC))
1918expcom 374 . . . . . . . . . 10 (AV → (y = z → ([A / x]yC ↔ [A / x]zC)))
201919.21aiv 1284 . . . . . . . . 9 (AV → ∀y(y = z → ([A / x]yC ↔ [A / x]zC)))
21 visset 1809 . . . . . . . . . 10 zV
22 elabgt 1891 . . . . . . . . . 10 ((zV ⋀ ∀y(y = z → ([A / x]yC ↔ [A / x]zC))) → (z ∈ {y∣[A / x]yC} ↔ [A / x]zC))
2321, 22mpan 694 . . . . . . . . 9 (∀y(y = z → ([A / x]yC ↔ [A / x]zC)) → (z ∈ {y∣[A / x]yC} ↔ [A / x]zC))
2420, 23syl 10 . . . . . . . 8 (AV → (z ∈ {y∣[A / x]yC} ↔ [A / x]zC))
2516, 24anbi12d 627 . . . . . . 7 (AV → ((z = {y∣[A / x]yB} ⋀ z ∈ {y∣[A / x]yC}) ↔ ([A / x]z = B ⋀ [A / x]zC)))
26 sbcang 1967 . . . . . . 7 (AV → ([A / x](z = BzC) ↔ ([A / x]z = B ⋀ [A / x]zC)))
2725, 26bitr4d 530 . . . . . 6 (AV → ((z = {y∣[A / x]yB} ⋀ z ∈ {y∣[A / x]yC}) ↔ [A / x](z = BzC)))
2827exbidv 1277 . . . . 5 (AV → (∃z(z = {y∣[A / x]yB} ⋀ z ∈ {y∣[A / x]yC}) ↔ ∃z[A / x](z = BzC)))
292, 4, 283bitr4d 549 . . . 4 (AV → ([A / x]BC ↔ ∃z(z = {y∣[A / x]yB} ⋀ z ∈ {y∣[A / x]yC})))
30 df-clel 1470 . . . 4 ({y∣[A / x]yB} ∈ {y∣[A / x]yC} ↔ ∃z(z = {y∣[A / x]yB} ⋀ z ∈ {y∣[A / x]yC}))
3129, 30syl6bbr 537 . . 3 (AV → ([A / x]BC ↔ {y∣[A / x]yB} ∈ {y∣[A / x]yC}))
321, 31syl 10 . 2 (AD → ([A / x]BC ↔ {y∣[A / x]yB} ∈ {y∣[A / x]yC}))
33 df-csb 1998 . . 3 [A / x]B = {y∣[A / x]yB}
34 df-csb 1998 . . 3 [A / x]C = {y∣[A / x]yC}
3533, 34eleq12i 1536 . 2 ([A / x]B[A / x]C ↔ {y∣[A / x]yB} ∈ {y∣[A / x]yC})
3632, 35syl6bbr 537 1 (AD → ([A / x]BC[A / x]B[A / x]C))
Colors of variables: wff set class
Syntax hints:   → wi 3   ↔ wb 146   ⋀ wa 223  ∀wal 952   = wceq 954   ∈ wcel 956  ∃wex 978  [wsbc 1168  {cab 1461  Vcvv 1807  [csb 1997
This theorem is referenced by:  sbcel1g 2009  sbcel2g 2011  sbccsb2g 2019  sbcnestg 2034
This theorem was proved from axioms:  ax-1 4  ax-2 5  ax-3 6  ax-mp 7  ax-7 960  ax-gen 961  ax-8 962  ax-9 963  ax-10 964  ax-11 965  ax-12 966  ax-17 969  ax-4 971  ax-5o 973  ax-6o 976  ax-9o 1121  ax-10o 1138  ax-16 1208  ax-11o 1216  ax-ext 1457
This theorem depends on definitions:  df-bi 147  df-or 224  df-an 225  df-3an 776  df-ex 979  df-sb 1170  df-clab 1462  df-cleq 1467  df-clel 1470  df-v 1808  df-sbc 1938  df-csb 1998
Copyright terms: Public domain