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

Theorem vtoclgft 3491
Description: Closed theorem form of vtoclgf 3502. (Contributed by NM, 17-Feb-2013.) (Revised by Mario Carneiro, 12-Oct-2016.) (Proof shortened by JJ, 11-Aug-2021.) Avoid ax-13 2374. (Revised by Gino Giotto, 6-Oct-2023.)
Assertion
Ref Expression
vtoclgft (((𝑥𝐴 ∧ Ⅎ𝑥𝜓) ∧ (∀𝑥(𝑥 = 𝐴 → (𝜑𝜓)) ∧ ∀𝑥𝜑) ∧ 𝐴𝑉) → 𝜓)

Proof of Theorem vtoclgft
Dummy variable 𝑧 is distinct from all other variables.
StepHypRef Expression
1 elisset 2822 . . . . 5 (𝐴𝑉 → ∃𝑧 𝑧 = 𝐴)
2 nfv 1921 . . . . . . . . 9 𝑧𝑥𝐴
3 nfnfc1 2912 . . . . . . . . 9 𝑥𝑥𝐴
4 nfcvd 2910 . . . . . . . . . . 11 (𝑥𝐴𝑥𝑧)
5 id 22 . . . . . . . . . . 11 (𝑥𝐴𝑥𝐴)
64, 5nfeqd 2919 . . . . . . . . . 10 (𝑥𝐴 → Ⅎ𝑥 𝑧 = 𝐴)
76nfnd 1865 . . . . . . . . 9 (𝑥𝐴 → Ⅎ𝑥 ¬ 𝑧 = 𝐴)
8 nfvd 1922 . . . . . . . . 9 (𝑥𝐴 → Ⅎ𝑧 ¬ 𝑥 = 𝐴)
9 eqeq1 2744 . . . . . . . . . . . 12 (𝑧 = 𝑥 → (𝑧 = 𝐴𝑥 = 𝐴))
109a1i 11 . . . . . . . . . . 11 (𝑥𝐴 → (𝑧 = 𝑥 → (𝑧 = 𝐴𝑥 = 𝐴)))
11 notbi 319 . . . . . . . . . . 11 ((𝑧 = 𝐴𝑥 = 𝐴) ↔ (¬ 𝑧 = 𝐴 ↔ ¬ 𝑥 = 𝐴))
1210, 11syl6ib 250 . . . . . . . . . 10 (𝑥𝐴 → (𝑧 = 𝑥 → (¬ 𝑧 = 𝐴 ↔ ¬ 𝑥 = 𝐴)))
13 biimp 214 . . . . . . . . . 10 ((¬ 𝑧 = 𝐴 ↔ ¬ 𝑥 = 𝐴) → (¬ 𝑧 = 𝐴 → ¬ 𝑥 = 𝐴))
1412, 13syl6 35 . . . . . . . . 9 (𝑥𝐴 → (𝑧 = 𝑥 → (¬ 𝑧 = 𝐴 → ¬ 𝑥 = 𝐴)))
152, 3, 7, 8, 14cbv1v 2337 . . . . . . . 8 (𝑥𝐴 → (∀𝑧 ¬ 𝑧 = 𝐴 → ∀𝑥 ¬ 𝑥 = 𝐴))
16 equcomi 2024 . . . . . . . . . 10 (𝑥 = 𝑧𝑧 = 𝑥)
17 biimpr 219 . . . . . . . . . 10 ((¬ 𝑧 = 𝐴 ↔ ¬ 𝑥 = 𝐴) → (¬ 𝑥 = 𝐴 → ¬ 𝑧 = 𝐴))
1816, 12, 17syl56 36 . . . . . . . . 9 (𝑥𝐴 → (𝑥 = 𝑧 → (¬ 𝑥 = 𝐴 → ¬ 𝑧 = 𝐴)))
193, 2, 8, 7, 18cbv1v 2337 . . . . . . . 8 (𝑥𝐴 → (∀𝑥 ¬ 𝑥 = 𝐴 → ∀𝑧 ¬ 𝑧 = 𝐴))
2015, 19impbid 211 . . . . . . 7 (𝑥𝐴 → (∀𝑧 ¬ 𝑧 = 𝐴 ↔ ∀𝑥 ¬ 𝑥 = 𝐴))
21 alnex 1788 . . . . . . 7 (∀𝑧 ¬ 𝑧 = 𝐴 ↔ ¬ ∃𝑧 𝑧 = 𝐴)
22 alnex 1788 . . . . . . 7 (∀𝑥 ¬ 𝑥 = 𝐴 ↔ ¬ ∃𝑥 𝑥 = 𝐴)
2320, 21, 223bitr3g 313 . . . . . 6 (𝑥𝐴 → (¬ ∃𝑧 𝑧 = 𝐴 ↔ ¬ ∃𝑥 𝑥 = 𝐴))
2423con4bid 317 . . . . 5 (𝑥𝐴 → (∃𝑧 𝑧 = 𝐴 ↔ ∃𝑥 𝑥 = 𝐴))
251, 24syl5ib 243 . . . 4 (𝑥𝐴 → (𝐴𝑉 → ∃𝑥 𝑥 = 𝐴))
2625ad2antrr 723 . . 3 (((𝑥𝐴 ∧ Ⅎ𝑥𝜓) ∧ (∀𝑥(𝑥 = 𝐴 → (𝜑𝜓)) ∧ ∀𝑥𝜑)) → (𝐴𝑉 → ∃𝑥 𝑥 = 𝐴))
27263impia 1116 . 2 (((𝑥𝐴 ∧ Ⅎ𝑥𝜓) ∧ (∀𝑥(𝑥 = 𝐴 → (𝜑𝜓)) ∧ ∀𝑥𝜑) ∧ 𝐴𝑉) → ∃𝑥 𝑥 = 𝐴)
28 biimp 214 . . . . . . . . 9 ((𝜑𝜓) → (𝜑𝜓))
2928imim2i 16 . . . . . . . 8 ((𝑥 = 𝐴 → (𝜑𝜓)) → (𝑥 = 𝐴 → (𝜑𝜓)))
3029com23 86 . . . . . . 7 ((𝑥 = 𝐴 → (𝜑𝜓)) → (𝜑 → (𝑥 = 𝐴𝜓)))
3130imp 407 . . . . . 6 (((𝑥 = 𝐴 → (𝜑𝜓)) ∧ 𝜑) → (𝑥 = 𝐴𝜓))
3231alanimi 1823 . . . . 5 ((∀𝑥(𝑥 = 𝐴 → (𝜑𝜓)) ∧ ∀𝑥𝜑) → ∀𝑥(𝑥 = 𝐴𝜓))
33 19.23t 2207 . . . . . 6 (Ⅎ𝑥𝜓 → (∀𝑥(𝑥 = 𝐴𝜓) ↔ (∃𝑥 𝑥 = 𝐴𝜓)))
3433adantl 482 . . . . 5 ((𝑥𝐴 ∧ Ⅎ𝑥𝜓) → (∀𝑥(𝑥 = 𝐴𝜓) ↔ (∃𝑥 𝑥 = 𝐴𝜓)))
3532, 34syl5ib 243 . . . 4 ((𝑥𝐴 ∧ Ⅎ𝑥𝜓) → ((∀𝑥(𝑥 = 𝐴 → (𝜑𝜓)) ∧ ∀𝑥𝜑) → (∃𝑥 𝑥 = 𝐴𝜓)))
3635imp 407 . . 3 (((𝑥𝐴 ∧ Ⅎ𝑥𝜓) ∧ (∀𝑥(𝑥 = 𝐴 → (𝜑𝜓)) ∧ ∀𝑥𝜑)) → (∃𝑥 𝑥 = 𝐴𝜓))
37363adant3 1131 . 2 (((𝑥𝐴 ∧ Ⅎ𝑥𝜓) ∧ (∀𝑥(𝑥 = 𝐴 → (𝜑𝜓)) ∧ ∀𝑥𝜑) ∧ 𝐴𝑉) → (∃𝑥 𝑥 = 𝐴𝜓))
3827, 37mpd 15 1 (((𝑥𝐴 ∧ Ⅎ𝑥𝜓) ∧ (∀𝑥(𝑥 = 𝐴 → (𝜑𝜓)) ∧ ∀𝑥𝜑) ∧ 𝐴𝑉) → 𝜓)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396  w3a 1086  wal 1540   = wceq 1542  wex 1786  wnf 1790  wcel 2110  wnfc 2889
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2015  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2711
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1545  df-ex 1787  df-nf 1791  df-sb 2072  df-clab 2718  df-cleq 2732  df-clel 2818  df-nfc 2891
This theorem is referenced by:  vtocldf  3492  bj-vtoclgfALT  35226
  Copyright terms: Public domain W3C validator