Intuitionistic Logic Explorer < Previous   Next > Nearby theorems Mirrors  >  Home  >  ILE Home  >  Th. List  >  cgsex4g GIF version

Theorem cgsex4g 2591
 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 280 . . . 4 ((𝜒𝜑) → 𝜓)
32exlimivv 1776 . . 3 (∃𝑧𝑤(𝜒𝜑) → 𝜓)
43exlimivv 1776 . 2 (∃𝑥𝑦𝑧𝑤(𝜒𝜑) → 𝜓)
5 elisset 2568 . . . . . . . 8 (𝐴𝑅 → ∃𝑥 𝑥 = 𝐴)
6 elisset 2568 . . . . . . . 8 (𝐵𝑆 → ∃𝑦 𝑦 = 𝐵)
75, 6anim12i 321 . . . . . . 7 ((𝐴𝑅𝐵𝑆) → (∃𝑥 𝑥 = 𝐴 ∧ ∃𝑦 𝑦 = 𝐵))
8 eeanv 1807 . . . . . . 7 (∃𝑥𝑦(𝑥 = 𝐴𝑦 = 𝐵) ↔ (∃𝑥 𝑥 = 𝐴 ∧ ∃𝑦 𝑦 = 𝐵))
97, 8sylibr 137 . . . . . 6 ((𝐴𝑅𝐵𝑆) → ∃𝑥𝑦(𝑥 = 𝐴𝑦 = 𝐵))
10 elisset 2568 . . . . . . . 8 (𝐶𝑅 → ∃𝑧 𝑧 = 𝐶)
11 elisset 2568 . . . . . . . 8 (𝐷𝑆 → ∃𝑤 𝑤 = 𝐷)
1210, 11anim12i 321 . . . . . . 7 ((𝐶𝑅𝐷𝑆) → (∃𝑧 𝑧 = 𝐶 ∧ ∃𝑤 𝑤 = 𝐷))
13 eeanv 1807 . . . . . . 7 (∃𝑧𝑤(𝑧 = 𝐶𝑤 = 𝐷) ↔ (∃𝑧 𝑧 = 𝐶 ∧ ∃𝑤 𝑤 = 𝐷))
1412, 13sylibr 137 . . . . . 6 ((𝐶𝑅𝐷𝑆) → ∃𝑧𝑤(𝑧 = 𝐶𝑤 = 𝐷))
159, 14anim12i 321 . . . . 5 (((𝐴𝑅𝐵𝑆) ∧ (𝐶𝑅𝐷𝑆)) → (∃𝑥𝑦(𝑥 = 𝐴𝑦 = 𝐵) ∧ ∃𝑧𝑤(𝑧 = 𝐶𝑤 = 𝐷)))
16 ee4anv 1809 . . . . 5 (∃𝑥𝑦𝑧𝑤((𝑥 = 𝐴𝑦 = 𝐵) ∧ (𝑧 = 𝐶𝑤 = 𝐷)) ↔ (∃𝑥𝑦(𝑥 = 𝐴𝑦 = 𝐵) ∧ ∃𝑧𝑤(𝑧 = 𝐶𝑤 = 𝐷)))
1715, 16sylibr 137 . . . 4 (((𝐴𝑅𝐵𝑆) ∧ (𝐶𝑅𝐷𝑆)) → ∃𝑥𝑦𝑧𝑤((𝑥 = 𝐴𝑦 = 𝐵) ∧ (𝑧 = 𝐶𝑤 = 𝐷)))
18 cgsex4g.1 . . . . . 6 (((𝑥 = 𝐴𝑦 = 𝐵) ∧ (𝑧 = 𝐶𝑤 = 𝐷)) → 𝜒)
19182eximi 1492 . . . . 5 (∃𝑧𝑤((𝑥 = 𝐴𝑦 = 𝐵) ∧ (𝑧 = 𝐶𝑤 = 𝐷)) → ∃𝑧𝑤𝜒)
20192eximi 1492 . . . 4 (∃𝑥𝑦𝑧𝑤((𝑥 = 𝐴𝑦 = 𝐵) ∧ (𝑧 = 𝐶𝑤 = 𝐷)) → ∃𝑥𝑦𝑧𝑤𝜒)
2117, 20syl 14 . . 3 (((𝐴𝑅𝐵𝑆) ∧ (𝐶𝑅𝐷𝑆)) → ∃𝑥𝑦𝑧𝑤𝜒)
221biimprcd 149 . . . . . 6 (𝜓 → (𝜒𝜑))
2322ancld 308 . . . . 5 (𝜓 → (𝜒 → (𝜒𝜑)))
24232eximdv 1762 . . . 4 (𝜓 → (∃𝑧𝑤𝜒 → ∃𝑧𝑤(𝜒𝜑)))
25242eximdv 1762 . . 3 (𝜓 → (∃𝑥𝑦𝑧𝑤𝜒 → ∃𝑥𝑦𝑧𝑤(𝜒𝜑)))
2621, 25syl5com 26 . 2 (((𝐴𝑅𝐵𝑆) ∧ (𝐶𝑅𝐷𝑆)) → (𝜓 → ∃𝑥𝑦𝑧𝑤(𝜒𝜑)))
274, 26impbid2 131 1 (((𝐴𝑅𝐵𝑆) ∧ (𝐶𝑅𝐷𝑆)) → (∃𝑥𝑦𝑧𝑤(𝜒𝜑) ↔ 𝜓))
 Colors of variables: wff set class Syntax hints:   → wi 4   ∧ wa 97   ↔ wb 98   = wceq 1243  ∃wex 1381   ∈ wcel 1393 This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 99  ax-ia2 100  ax-ia3 101  ax-5 1336  ax-7 1337  ax-gen 1338  ax-ie1 1382  ax-ie2 1383  ax-8 1395  ax-4 1400  ax-17 1419  ax-i9 1423  ax-ial 1427  ax-ext 2022 This theorem depends on definitions:  df-bi 110  df-nf 1350  df-sb 1646  df-clab 2027  df-cleq 2033  df-clel 2036  df-v 2559 This theorem is referenced by:  copsex4g  3984  brecop  6196
 Copyright terms: Public domain W3C validator