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

Theorem bj-abbi 31963
Description: Remove dependency on ax-13 2234 from abbi 2724. (Contributed by BJ, 23-Jun-2019.) (Proof modification is discouraged.)
Assertion
Ref Expression
bj-abbi (∀𝑥(𝜑𝜓) ↔ {𝑥𝜑} = {𝑥𝜓})

Proof of Theorem bj-abbi
Dummy variable 𝑦 is distinct from all other variables.
StepHypRef Expression
1 dfcleq 2604 . 2 ({𝑥𝜑} = {𝑥𝜓} ↔ ∀𝑦(𝑦 ∈ {𝑥𝜑} ↔ 𝑦 ∈ {𝑥𝜓}))
2 bj-nfsab1 31960 . . . 4 𝑥 𝑦 ∈ {𝑥𝜑}
3 bj-nfsab1 31960 . . . 4 𝑥 𝑦 ∈ {𝑥𝜓}
42, 3nfbi 1821 . . 3 𝑥(𝑦 ∈ {𝑥𝜑} ↔ 𝑦 ∈ {𝑥𝜓})
5 nfv 1830 . . 3 𝑦(𝜑𝜓)
6 df-clab 2597 . . . . 5 (𝑦 ∈ {𝑥𝜑} ↔ [𝑦 / 𝑥]𝜑)
7 sbequ12r 2098 . . . . 5 (𝑦 = 𝑥 → ([𝑦 / 𝑥]𝜑𝜑))
86, 7syl5bb 271 . . . 4 (𝑦 = 𝑥 → (𝑦 ∈ {𝑥𝜑} ↔ 𝜑))
9 df-clab 2597 . . . . 5 (𝑦 ∈ {𝑥𝜓} ↔ [𝑦 / 𝑥]𝜓)
10 sbequ12r 2098 . . . . 5 (𝑦 = 𝑥 → ([𝑦 / 𝑥]𝜓𝜓))
119, 10syl5bb 271 . . . 4 (𝑦 = 𝑥 → (𝑦 ∈ {𝑥𝜓} ↔ 𝜓))
128, 11bibi12d 334 . . 3 (𝑦 = 𝑥 → ((𝑦 ∈ {𝑥𝜑} ↔ 𝑦 ∈ {𝑥𝜓}) ↔ (𝜑𝜓)))
134, 5, 12cbvalv1 2163 . 2 (∀𝑦(𝑦 ∈ {𝑥𝜑} ↔ 𝑦 ∈ {𝑥𝜓}) ↔ ∀𝑥(𝜑𝜓))
141, 13bitr2i 264 1 (∀𝑥(𝜑𝜓) ↔ {𝑥𝜑} = {𝑥𝜓})
Colors of variables: wff setvar class
Syntax hints:  wb 195  wal 1473   = wceq 1475  [wsb 1867  wcel 1977  {cab 2596
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-10 2006  ax-11 2021  ax-12 2034  ax-ext 2590
This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-clab 2597  df-cleq 2603
This theorem is referenced by:  bj-abbii  31965  bj-abbid  31966
  Copyright terms: Public domain W3C validator