Users' Mathboxes Mathbox for BJ < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  bj-sbceqgALT Structured version   Visualization version   GIF version

Theorem bj-sbceqgALT 37991
Description: Distribute proper substitution through an equality relation. Alternate proof of sbceqg 4373. (Contributed by BJ, 6-Oct-2018.) Proof modification is discouraged to avoid using sbceqg 4373, but the Metamath program "MM-PA> MINIMIZE_WITH * / EXCEPT sbceqg" command is ok. (Proof modification is discouraged.) (New usage is discouraged.)
Assertion
Ref Expression
bj-sbceqgALT (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝐵 = 𝐶 ↔ ⦋𝐴 / 𝑥⦌𝐵 = ⦋𝐴 / 𝑥⦌𝐶))

Proof of Theorem bj-sbceqgALT
Dummy variable 𝑦 is distinct from all other variables.
StepHypRef Expression
1 dfcleq 2756 . . . . . 6 (𝐵 = 𝐶 ↔ ∀𝑦(𝑦 ∈ 𝐵 ↔ 𝑦 ∈ 𝐶))
21sbcth 3757 . . . . 5 (𝐴 ∈ 𝑉 → [𝐴 / 𝑥](𝐵 = 𝐶 ↔ ∀𝑦(𝑦 ∈ 𝐵 ↔ 𝑦 ∈ 𝐶)))
3 sbcbig 3793 . . . . 5 (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥](𝐵 = 𝐶 ↔ ∀𝑦(𝑦 ∈ 𝐵 ↔ 𝑦 ∈ 𝐶)) ↔ ([𝐴 / 𝑥]𝐵 = 𝐶 ↔ [𝐴 / 𝑥]∀𝑦(𝑦 ∈ 𝐵 ↔ 𝑦 ∈ 𝐶))))
42, 3mpbid 235 . . . 4 (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝐵 = 𝐶 ↔ [𝐴 / 𝑥]∀𝑦(𝑦 ∈ 𝐵 ↔ 𝑦 ∈ 𝐶)))
5 sbcal 3801 . . . 4 ([𝐴 / 𝑥]∀𝑦(𝑦 ∈ 𝐵 ↔ 𝑦 ∈ 𝐶) ↔ ∀𝑦[𝐴 / 𝑥](𝑦 ∈ 𝐵 ↔ 𝑦 ∈ 𝐶))
64, 5bitrdi 290 . . 3 (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝐵 = 𝐶 ↔ ∀𝑦[𝐴 / 𝑥](𝑦 ∈ 𝐵 ↔ 𝑦 ∈ 𝐶)))
7 sbcbig 3793 . . . 4 (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥](𝑦 ∈ 𝐵 ↔ 𝑦 ∈ 𝐶) ↔ ([𝐴 / 𝑥]𝑦 ∈ 𝐵 ↔ [𝐴 / 𝑥]𝑦 ∈ 𝐶)))
87albidv 1955 . . 3 (𝐴 ∈ 𝑉 → (∀𝑦[𝐴 / 𝑥](𝑦 ∈ 𝐵 ↔ 𝑦 ∈ 𝐶) ↔ ∀𝑦([𝐴 / 𝑥]𝑦 ∈ 𝐵 ↔ [𝐴 / 𝑥]𝑦 ∈ 𝐶)))
9 sbcel2 4379 . . . . . 6 ([𝐴 / 𝑥]𝑦 ∈ 𝐵 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝐵)
109a1i 11 . . . . 5 (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑦 ∈ 𝐵 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝐵))
11 sbcel2 4379 . . . . . 6 ([𝐴 / 𝑥]𝑦 ∈ 𝐶 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝐶)
1211a1i 11 . . . . 5 (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝑦 ∈ 𝐶 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝐶))
1310, 12bibi12d 348 . . . 4 (𝐴 ∈ 𝑉 → (([𝐴 / 𝑥]𝑦 ∈ 𝐵 ↔ [𝐴 / 𝑥]𝑦 ∈ 𝐶) ↔ (𝑦 ∈ ⦋𝐴 / 𝑥⦌𝐵 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝐶)))
1413albidv 1955 . . 3 (𝐴 ∈ 𝑉 → (∀𝑦([𝐴 / 𝑥]𝑦 ∈ 𝐵 ↔ [𝐴 / 𝑥]𝑦 ∈ 𝐶) ↔ ∀𝑦(𝑦 ∈ ⦋𝐴 / 𝑥⦌𝐵 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝐶)))
156, 8, 143bitrd 308 . 2 (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝐵 = 𝐶 ↔ ∀𝑦(𝑦 ∈ ⦋𝐴 / 𝑥⦌𝐵 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝐶)))
16 dfcleq 2756 . 2 (⦋𝐴 / 𝑥⦌𝐵 = ⦋𝐴 / 𝑥⦌𝐶 ↔ ∀𝑦(𝑦 ∈ ⦋𝐴 / 𝑥⦌𝐵 ↔ 𝑦 ∈ ⦋𝐴 / 𝑥⦌𝐶))
1715, 16bitr4di 292 1 (𝐴 ∈ 𝑉 → ([𝐴 / 𝑥]𝐵 = 𝐶 ↔ ⦋𝐴 / 𝑥⦌𝐵 = ⦋𝐴 / 𝑥⦌𝐶))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:   → wi 4   ↔ wb 209  ∀wal 1568   = wceq 1570   ∈ wcel 2147  [wsbc 3742  ⦋csb 3851
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-v 3456  df-sbc 3743  df-csb 3852  df-dif 4050  df-nul 4282
This theorem is used by: (None)
  Copyright terms: Public domain W3C validator