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

Theorem cgsex4g 3271
Description: An implicit substitution inference for 4 general classes. (Contributed by NM, 5-Aug-1995.)
Hypotheses
Ref Expression
cgsex4g.1 (((𝑥 = 𝐴𝑦 = 𝐵) ∧ (𝑧 = 𝐶𝑤 = 𝐷)) → 𝜒)
cgsex4g.2 (𝜒 → (𝜑𝜓))
Assertion
Ref Expression
cgsex4g (((𝐴𝑅𝐵𝑆) ∧ (𝐶𝑅𝐷𝑆)) → (∃𝑥𝑦𝑧𝑤(𝜒𝜑) ↔ 𝜓))
Distinct variable groups:   𝑥,𝑦,𝑧,𝑤,𝐴   𝑥,𝐵,𝑦,𝑧,𝑤   𝑥,𝐶,𝑦,𝑧,𝑤   𝑥,𝐷,𝑦,𝑧,𝑤   𝜓,𝑥,𝑦,𝑧,𝑤
Allowed substitution hints:   𝜑(𝑥,𝑦,𝑧,𝑤)   𝜒(𝑥,𝑦,𝑧,𝑤)   𝑅(𝑥,𝑦,𝑧,𝑤)   𝑆(𝑥,𝑦,𝑧,𝑤)

Proof of Theorem cgsex4g
StepHypRef Expression
1 cgsex4g.2 . . . . 5 (𝜒 → (𝜑𝜓))
21biimpa 500 . . . 4 ((𝜒𝜑) → 𝜓)
32exlimivv 1900 . . 3 (∃𝑧𝑤(𝜒𝜑) → 𝜓)
43exlimivv 1900 . 2 (∃𝑥𝑦𝑧𝑤(𝜒𝜑) → 𝜓)
5 elisset 3246 . . . . . . . 8 (𝐴𝑅 → ∃𝑥 𝑥 = 𝐴)
6 elisset 3246 . . . . . . . 8 (𝐵𝑆 → ∃𝑦 𝑦 = 𝐵)
75, 6anim12i 589 . . . . . . 7 ((𝐴𝑅𝐵𝑆) → (∃𝑥 𝑥 = 𝐴 ∧ ∃𝑦 𝑦 = 𝐵))
8 eeanv 2218 . . . . . . 7 (∃𝑥𝑦(𝑥 = 𝐴𝑦 = 𝐵) ↔ (∃𝑥 𝑥 = 𝐴 ∧ ∃𝑦 𝑦 = 𝐵))
97, 8sylibr 224 . . . . . 6 ((𝐴𝑅𝐵𝑆) → ∃𝑥𝑦(𝑥 = 𝐴𝑦 = 𝐵))
10 elisset 3246 . . . . . . . 8 (𝐶𝑅 → ∃𝑧 𝑧 = 𝐶)
11 elisset 3246 . . . . . . . 8 (𝐷𝑆 → ∃𝑤 𝑤 = 𝐷)
1210, 11anim12i 589 . . . . . . 7 ((𝐶𝑅𝐷𝑆) → (∃𝑧 𝑧 = 𝐶 ∧ ∃𝑤 𝑤 = 𝐷))
13 eeanv 2218 . . . . . . 7 (∃𝑧𝑤(𝑧 = 𝐶𝑤 = 𝐷) ↔ (∃𝑧 𝑧 = 𝐶 ∧ ∃𝑤 𝑤 = 𝐷))
1412, 13sylibr 224 . . . . . 6 ((𝐶𝑅𝐷𝑆) → ∃𝑧𝑤(𝑧 = 𝐶𝑤 = 𝐷))
159, 14anim12i 589 . . . . 5 (((𝐴𝑅𝐵𝑆) ∧ (𝐶𝑅𝐷𝑆)) → (∃𝑥𝑦(𝑥 = 𝐴𝑦 = 𝐵) ∧ ∃𝑧𝑤(𝑧 = 𝐶𝑤 = 𝐷)))
16 ee4anv 2220 . . . . 5 (∃𝑥𝑦𝑧𝑤((𝑥 = 𝐴𝑦 = 𝐵) ∧ (𝑧 = 𝐶𝑤 = 𝐷)) ↔ (∃𝑥𝑦(𝑥 = 𝐴𝑦 = 𝐵) ∧ ∃𝑧𝑤(𝑧 = 𝐶𝑤 = 𝐷)))
1715, 16sylibr 224 . . . 4 (((𝐴𝑅𝐵𝑆) ∧ (𝐶𝑅𝐷𝑆)) → ∃𝑥𝑦𝑧𝑤((𝑥 = 𝐴𝑦 = 𝐵) ∧ (𝑧 = 𝐶𝑤 = 𝐷)))
18 cgsex4g.1 . . . . . 6 (((𝑥 = 𝐴𝑦 = 𝐵) ∧ (𝑧 = 𝐶𝑤 = 𝐷)) → 𝜒)
19182eximi 1803 . . . . 5 (∃𝑧𝑤((𝑥 = 𝐴𝑦 = 𝐵) ∧ (𝑧 = 𝐶𝑤 = 𝐷)) → ∃𝑧𝑤𝜒)
20192eximi 1803 . . . 4 (∃𝑥𝑦𝑧𝑤((𝑥 = 𝐴𝑦 = 𝐵) ∧ (𝑧 = 𝐶𝑤 = 𝐷)) → ∃𝑥𝑦𝑧𝑤𝜒)
2117, 20syl 17 . . 3 (((𝐴𝑅𝐵𝑆) ∧ (𝐶𝑅𝐷𝑆)) → ∃𝑥𝑦𝑧𝑤𝜒)
221biimprcd 240 . . . . . 6 (𝜓 → (𝜒𝜑))
2322ancld 575 . . . . 5 (𝜓 → (𝜒 → (𝜒𝜑)))
24232eximdv 1888 . . . 4 (𝜓 → (∃𝑧𝑤𝜒 → ∃𝑧𝑤(𝜒𝜑)))
25242eximdv 1888 . . 3 (𝜓 → (∃𝑥𝑦𝑧𝑤𝜒 → ∃𝑥𝑦𝑧𝑤(𝜒𝜑)))
2621, 25syl5com 31 . 2 (((𝐴𝑅𝐵𝑆) ∧ (𝐶𝑅𝐷𝑆)) → (𝜓 → ∃𝑥𝑦𝑧𝑤(𝜒𝜑)))
274, 26impbid2 216 1 (((𝐴𝑅𝐵𝑆) ∧ (𝐶𝑅𝐷𝑆)) → (∃𝑥𝑦𝑧𝑤(𝜒𝜑) ↔ 𝜓))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 383   = wceq 1523  wex 1744  wcel 2030
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1762  ax-4 1777  ax-5 1879  ax-6 1945  ax-7 1981  ax-9 2039  ax-10 2059  ax-11 2074  ax-12 2087  ax-ext 2631
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-tru 1526  df-ex 1745  df-nf 1750  df-sb 1938  df-clab 2638  df-cleq 2644  df-clel 2647  df-v 3233
This theorem is referenced by:  copsex4g  4988  brecop  7883
  Copyright terms: Public domain W3C validator