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

Theorem kmlem16 9579
Description: Lemma for 5-quantifier AC of Kurt Maes, Th. 4 5 <=> 4. (Contributed by NM, 4-Apr-2004.)
Hypotheses
Ref Expression
kmlem14.1 (𝜑 ↔ (𝑧𝑦 → ((𝑣𝑥𝑦𝑣) ∧ 𝑧𝑣)))
kmlem14.2 (𝜓 ↔ (𝑧𝑥 → ((𝑣𝑧𝑣𝑦) ∧ ((𝑢𝑧𝑢𝑦) → 𝑢 = 𝑣))))
kmlem14.3 (𝜒 ↔ ∀𝑧𝑥 ∃!𝑣 𝑣 ∈ (𝑧𝑦))
Assertion
Ref Expression
kmlem16 ((∃𝑧𝑥𝑣𝑧𝑤𝑥 (𝑧𝑤𝑣 ∈ (𝑧𝑤)) ∨ ∃𝑦𝑦𝑥𝜒)) ↔ ∃𝑦𝑧𝑣𝑢((𝑦𝑥𝜑) ∨ (¬ 𝑦𝑥𝜓)))
Distinct variable groups:   𝑥,𝑦,𝑧,𝑤,𝑣,𝑢   𝜑,𝑢
Allowed substitution hints:   𝜑(𝑥,𝑦,𝑧,𝑤,𝑣)   𝜓(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)   𝜒(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)

Proof of Theorem kmlem16
StepHypRef Expression
1 kmlem14.1 . . . 4 (𝜑 ↔ (𝑧𝑦 → ((𝑣𝑥𝑦𝑣) ∧ 𝑧𝑣)))
2 kmlem14.2 . . . 4 (𝜓 ↔ (𝑧𝑥 → ((𝑣𝑧𝑣𝑦) ∧ ((𝑢𝑧𝑢𝑦) → 𝑢 = 𝑣))))
3 kmlem14.3 . . . 4 (𝜒 ↔ ∀𝑧𝑥 ∃!𝑣 𝑣 ∈ (𝑧𝑦))
41, 2, 3kmlem14 9577 . . 3 (∃𝑧𝑥𝑣𝑧𝑤𝑥 (𝑧𝑤𝑣 ∈ (𝑧𝑤)) ↔ ∃𝑦𝑧𝑣𝑢(𝑦𝑥𝜑))
51, 2, 3kmlem15 9578 . . . 4 ((¬ 𝑦𝑥𝜒) ↔ ∀𝑧𝑣𝑢𝑦𝑥𝜓))
65exbii 1839 . . 3 (∃𝑦𝑦𝑥𝜒) ↔ ∃𝑦𝑧𝑣𝑢𝑦𝑥𝜓))
74, 6orbi12i 908 . 2 ((∃𝑧𝑥𝑣𝑧𝑤𝑥 (𝑧𝑤𝑣 ∈ (𝑧𝑤)) ∨ ∃𝑦𝑦𝑥𝜒)) ↔ (∃𝑦𝑧𝑣𝑢(𝑦𝑥𝜑) ∨ ∃𝑦𝑧𝑣𝑢𝑦𝑥𝜓)))
8 19.43 1874 . 2 (∃𝑦(∀𝑧𝑣𝑢(𝑦𝑥𝜑) ∨ ∀𝑧𝑣𝑢𝑦𝑥𝜓)) ↔ (∃𝑦𝑧𝑣𝑢(𝑦𝑥𝜑) ∨ ∃𝑦𝑧𝑣𝑢𝑦𝑥𝜓)))
9 pm3.24 403 . . . . . 6 ¬ (𝑦𝑥 ∧ ¬ 𝑦𝑥)
10 simpl 483 . . . . . . . . 9 ((𝑦𝑥𝜑) → 𝑦𝑥)
1110sps 2174 . . . . . . . 8 (∀𝑢(𝑦𝑥𝜑) → 𝑦𝑥)
1211exlimivv 1924 . . . . . . 7 (∃𝑧𝑣𝑢(𝑦𝑥𝜑) → 𝑦𝑥)
13 simpl 483 . . . . . . . . 9 ((¬ 𝑦𝑥𝜓) → ¬ 𝑦𝑥)
1413sps 2174 . . . . . . . 8 (∀𝑢𝑦𝑥𝜓) → ¬ 𝑦𝑥)
1514exlimivv 1924 . . . . . . 7 (∃𝑧𝑣𝑢𝑦𝑥𝜓) → ¬ 𝑦𝑥)
1612, 15anim12i 612 . . . . . 6 ((∃𝑧𝑣𝑢(𝑦𝑥𝜑) ∧ ∃𝑧𝑣𝑢𝑦𝑥𝜓)) → (𝑦𝑥 ∧ ¬ 𝑦𝑥))
179, 16mto 198 . . . . 5 ¬ (∃𝑧𝑣𝑢(𝑦𝑥𝜑) ∧ ∃𝑧𝑣𝑢𝑦𝑥𝜓))
18 19.33b 1877 . . . . 5 (¬ (∃𝑧𝑣𝑢(𝑦𝑥𝜑) ∧ ∃𝑧𝑣𝑢𝑦𝑥𝜓)) → (∀𝑧(∃𝑣𝑢(𝑦𝑥𝜑) ∨ ∃𝑣𝑢𝑦𝑥𝜓)) ↔ (∀𝑧𝑣𝑢(𝑦𝑥𝜑) ∨ ∀𝑧𝑣𝑢𝑦𝑥𝜓))))
1917, 18ax-mp 5 . . . 4 (∀𝑧(∃𝑣𝑢(𝑦𝑥𝜑) ∨ ∃𝑣𝑢𝑦𝑥𝜓)) ↔ (∀𝑧𝑣𝑢(𝑦𝑥𝜑) ∨ ∀𝑧𝑣𝑢𝑦𝑥𝜓)))
2010exlimiv 1922 . . . . . . . . . 10 (∃𝑢(𝑦𝑥𝜑) → 𝑦𝑥)
2113exlimiv 1922 . . . . . . . . . 10 (∃𝑢𝑦𝑥𝜓) → ¬ 𝑦𝑥)
2220, 21anim12i 612 . . . . . . . . 9 ((∃𝑢(𝑦𝑥𝜑) ∧ ∃𝑢𝑦𝑥𝜓)) → (𝑦𝑥 ∧ ¬ 𝑦𝑥))
239, 22mto 198 . . . . . . . 8 ¬ (∃𝑢(𝑦𝑥𝜑) ∧ ∃𝑢𝑦𝑥𝜓))
24 19.33b 1877 . . . . . . . 8 (¬ (∃𝑢(𝑦𝑥𝜑) ∧ ∃𝑢𝑦𝑥𝜓)) → (∀𝑢((𝑦𝑥𝜑) ∨ (¬ 𝑦𝑥𝜓)) ↔ (∀𝑢(𝑦𝑥𝜑) ∨ ∀𝑢𝑦𝑥𝜓))))
2523, 24ax-mp 5 . . . . . . 7 (∀𝑢((𝑦𝑥𝜑) ∨ (¬ 𝑦𝑥𝜓)) ↔ (∀𝑢(𝑦𝑥𝜑) ∨ ∀𝑢𝑦𝑥𝜓)))
2625exbii 1839 . . . . . 6 (∃𝑣𝑢((𝑦𝑥𝜑) ∨ (¬ 𝑦𝑥𝜓)) ↔ ∃𝑣(∀𝑢(𝑦𝑥𝜑) ∨ ∀𝑢𝑦𝑥𝜓)))
27 19.43 1874 . . . . . 6 (∃𝑣(∀𝑢(𝑦𝑥𝜑) ∨ ∀𝑢𝑦𝑥𝜓)) ↔ (∃𝑣𝑢(𝑦𝑥𝜑) ∨ ∃𝑣𝑢𝑦𝑥𝜓)))
2826, 27bitr2i 277 . . . . 5 ((∃𝑣𝑢(𝑦𝑥𝜑) ∨ ∃𝑣𝑢𝑦𝑥𝜓)) ↔ ∃𝑣𝑢((𝑦𝑥𝜑) ∨ (¬ 𝑦𝑥𝜓)))
2928albii 1811 . . . 4 (∀𝑧(∃𝑣𝑢(𝑦𝑥𝜑) ∨ ∃𝑣𝑢𝑦𝑥𝜓)) ↔ ∀𝑧𝑣𝑢((𝑦𝑥𝜑) ∨ (¬ 𝑦𝑥𝜓)))
3019, 29bitr3i 278 . . 3 ((∀𝑧𝑣𝑢(𝑦𝑥𝜑) ∨ ∀𝑧𝑣𝑢𝑦𝑥𝜓)) ↔ ∀𝑧𝑣𝑢((𝑦𝑥𝜑) ∨ (¬ 𝑦𝑥𝜓)))
3130exbii 1839 . 2 (∃𝑦(∀𝑧𝑣𝑢(𝑦𝑥𝜑) ∨ ∀𝑧𝑣𝑢𝑦𝑥𝜓)) ↔ ∃𝑦𝑧𝑣𝑢((𝑦𝑥𝜑) ∨ (¬ 𝑦𝑥𝜓)))
327, 8, 313bitr2i 300 1 ((∃𝑧𝑥𝑣𝑧𝑤𝑥 (𝑧𝑤𝑣 ∈ (𝑧𝑤)) ∨ ∃𝑦𝑦𝑥𝜒)) ↔ ∃𝑦𝑧𝑣𝑢((𝑦𝑥𝜑) ∨ (¬ 𝑦𝑥𝜓)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 207  wa 396  wo 841  wal 1526  wex 1771  wcel 2105  ∃!weu 2646  wne 3013  wral 3135  wrex 3136  cin 3932
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1787  ax-4 1801  ax-5 1902  ax-6 1961  ax-7 2006  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2151  ax-12 2167  ax-ext 2790
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 842  df-tru 1531  df-ex 1772  df-nf 1776  df-sb 2061  df-mo 2615  df-eu 2647  df-clab 2797  df-cleq 2811  df-clel 2890  df-nfc 2960  df-ne 3014  df-ral 3140  df-rex 3141  df-rab 3144  df-v 3494  df-in 3940
This theorem is referenced by:  dfackm  9580
  Copyright terms: Public domain W3C validator