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

Theorem fimax2gtrilemstep 6596
Description: Lemma for fimax2gtri 6597. The induction step. (Contributed by Jim Kingdon, 5-Sep-2022.)
Hypotheses
Ref Expression
fimax2gtri.po (𝜑𝑅 Po 𝐴)
fimax2gtri.tri (𝜑 → ∀𝑥𝐴𝑦𝐴 (𝑥𝑅𝑦𝑥 = 𝑦𝑦𝑅𝑥))
fimax2gtri.fin (𝜑𝐴 ∈ Fin)
fimax2gtri.n0 (𝜑𝐴 ≠ ∅)
fimax2gtri.ufin (𝜑𝑈 ∈ Fin)
fimax2gtri.uss (𝜑𝑈𝐴)
fimax2gtri.za (𝜑𝑍𝐴)
fimax2gtri.va (𝜑𝑉𝐴)
fimax2gtri.vu (𝜑 → ¬ 𝑉𝑈)
fimax2gtri.zb (𝜑 → ∀𝑦𝑈 ¬ 𝑍𝑅𝑦)
Assertion
Ref Expression
fimax2gtrilemstep (𝜑 → ∃𝑥𝐴𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ 𝑥𝑅𝑦)
Distinct variable groups:   𝑥,𝑅,𝑦   𝑥,𝐴,𝑦   𝑥,𝑈,𝑦   𝑥,𝑉,𝑦   𝑥,𝑍,𝑦
Allowed substitution hints:   𝜑(𝑥,𝑦)

Proof of Theorem fimax2gtrilemstep
Dummy variable 𝑤 is distinct from all other variables.
StepHypRef Expression
1 fimax2gtri.va . . 3 (𝜑𝑉𝐴)
2 fimax2gtri.za . . 3 (𝜑𝑍𝐴)
3 fimax2gtri.po . . . 4 (𝜑𝑅 Po 𝐴)
4 fimax2gtri.tri . . . 4 (𝜑 → ∀𝑥𝐴𝑦𝐴 (𝑥𝑅𝑦𝑥 = 𝑦𝑦𝑅𝑥))
53, 4, 2, 1tridc 6595 . . 3 (𝜑DECID 𝑍𝑅𝑉)
61, 2, 5ifcldcd 3422 . 2 (𝜑 → if(𝑍𝑅𝑉, 𝑉, 𝑍) ∈ 𝐴)
7 simplr 497 . . . . . . . 8 ((((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) ∧ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤) → 𝑍𝑅𝑉)
8 simpr 108 . . . . . . . . . . . 12 ((𝜑𝑍𝑅𝑉) → 𝑍𝑅𝑉)
98iftrued 3396 . . . . . . . . . . 11 ((𝜑𝑍𝑅𝑉) → if(𝑍𝑅𝑉, 𝑉, 𝑍) = 𝑉)
109breq1d 3847 . . . . . . . . . 10 ((𝜑𝑍𝑅𝑉) → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤𝑉𝑅𝑤))
1110biimpa 290 . . . . . . . . 9 (((𝜑𝑍𝑅𝑉) ∧ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤) → 𝑉𝑅𝑤)
1211adantllr 465 . . . . . . . 8 ((((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) ∧ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤) → 𝑉𝑅𝑤)
133ad2antrr 472 . . . . . . . . . 10 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → 𝑅 Po 𝐴)
142ad2antrr 472 . . . . . . . . . 10 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → 𝑍𝐴)
151ad2antrr 472 . . . . . . . . . 10 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → 𝑉𝐴)
16 fimax2gtri.uss . . . . . . . . . . . 12 (𝜑𝑈𝐴)
1716ad2antrr 472 . . . . . . . . . . 11 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → 𝑈𝐴)
18 simplr 497 . . . . . . . . . . 11 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → 𝑤𝑈)
1917, 18sseldd 3024 . . . . . . . . . 10 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → 𝑤𝐴)
20 potr 4126 . . . . . . . . . 10 ((𝑅 Po 𝐴 ∧ (𝑍𝐴𝑉𝐴𝑤𝐴)) → ((𝑍𝑅𝑉𝑉𝑅𝑤) → 𝑍𝑅𝑤))
2113, 14, 15, 19, 20syl13anc 1176 . . . . . . . . 9 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → ((𝑍𝑅𝑉𝑉𝑅𝑤) → 𝑍𝑅𝑤))
2221adantr 270 . . . . . . . 8 ((((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) ∧ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤) → ((𝑍𝑅𝑉𝑉𝑅𝑤) → 𝑍𝑅𝑤))
237, 12, 22mp2and 424 . . . . . . 7 ((((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) ∧ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤) → 𝑍𝑅𝑤)
24 fimax2gtri.zb . . . . . . . . . 10 (𝜑 → ∀𝑦𝑈 ¬ 𝑍𝑅𝑦)
25 breq2 3841 . . . . . . . . . . . 12 (𝑦 = 𝑤 → (𝑍𝑅𝑦𝑍𝑅𝑤))
2625notbid 627 . . . . . . . . . . 11 (𝑦 = 𝑤 → (¬ 𝑍𝑅𝑦 ↔ ¬ 𝑍𝑅𝑤))
2726cbvralv 2590 . . . . . . . . . 10 (∀𝑦𝑈 ¬ 𝑍𝑅𝑦 ↔ ∀𝑤𝑈 ¬ 𝑍𝑅𝑤)
2824, 27sylib 120 . . . . . . . . 9 (𝜑 → ∀𝑤𝑈 ¬ 𝑍𝑅𝑤)
2928r19.21bi 2461 . . . . . . . 8 ((𝜑𝑤𝑈) → ¬ 𝑍𝑅𝑤)
3029ad2antrr 472 . . . . . . 7 ((((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) ∧ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤) → ¬ 𝑍𝑅𝑤)
3123, 30pm2.65da 622 . . . . . 6 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤)
3229adantr 270 . . . . . . 7 (((𝜑𝑤𝑈) ∧ ¬ 𝑍𝑅𝑉) → ¬ 𝑍𝑅𝑤)
33 simpr 108 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝑍𝑅𝑉) → ¬ 𝑍𝑅𝑉)
3433iffalsed 3399 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝑍𝑅𝑉) → if(𝑍𝑅𝑉, 𝑉, 𝑍) = 𝑍)
3534breq1d 3847 . . . . . . . 8 ((𝜑 ∧ ¬ 𝑍𝑅𝑉) → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤𝑍𝑅𝑤))
3635adantlr 461 . . . . . . 7 (((𝜑𝑤𝑈) ∧ ¬ 𝑍𝑅𝑉) → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤𝑍𝑅𝑤))
3732, 36mtbird 633 . . . . . 6 (((𝜑𝑤𝑈) ∧ ¬ 𝑍𝑅𝑉) → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤)
38 exmiddc 782 . . . . . . . 8 (DECID 𝑍𝑅𝑉 → (𝑍𝑅𝑉 ∨ ¬ 𝑍𝑅𝑉))
395, 38syl 14 . . . . . . 7 (𝜑 → (𝑍𝑅𝑉 ∨ ¬ 𝑍𝑅𝑉))
4039adantr 270 . . . . . 6 ((𝜑𝑤𝑈) → (𝑍𝑅𝑉 ∨ ¬ 𝑍𝑅𝑉))
4131, 37, 40mpjaodan 747 . . . . 5 ((𝜑𝑤𝑈) → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤)
4241ralrimiva 2446 . . . 4 (𝜑 → ∀𝑤𝑈 ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤)
43 breq2 3841 . . . . . 6 (𝑤 = 𝑦 → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤 ↔ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦))
4443notbid 627 . . . . 5 (𝑤 = 𝑦 → (¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤 ↔ ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦))
4544cbvralv 2590 . . . 4 (∀𝑤𝑈 ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤 ↔ ∀𝑦𝑈 ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦)
4642, 45sylib 120 . . 3 (𝜑 → ∀𝑦𝑈 ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦)
473adantr 270 . . . . . . 7 ((𝜑𝑍𝑅𝑉) → 𝑅 Po 𝐴)
481adantr 270 . . . . . . 7 ((𝜑𝑍𝑅𝑉) → 𝑉𝐴)
49 poirr 4125 . . . . . . 7 ((𝑅 Po 𝐴𝑉𝐴) → ¬ 𝑉𝑅𝑉)
5047, 48, 49syl2anc 403 . . . . . 6 ((𝜑𝑍𝑅𝑉) → ¬ 𝑉𝑅𝑉)
519breq1d 3847 . . . . . 6 ((𝜑𝑍𝑅𝑉) → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉𝑉𝑅𝑉))
5250, 51mtbird 633 . . . . 5 ((𝜑𝑍𝑅𝑉) → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉)
5334breq1d 3847 . . . . . 6 ((𝜑 ∧ ¬ 𝑍𝑅𝑉) → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉𝑍𝑅𝑉))
5433, 53mtbird 633 . . . . 5 ((𝜑 ∧ ¬ 𝑍𝑅𝑉) → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉)
5552, 54, 39mpjaodan 747 . . . 4 (𝜑 → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉)
56 breq2 3841 . . . . . . 7 (𝑦 = 𝑉 → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦 ↔ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉))
5756notbid 627 . . . . . 6 (𝑦 = 𝑉 → (¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦 ↔ ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉))
5857ralsng 3478 . . . . 5 (𝑉𝐴 → (∀𝑦 ∈ {𝑉} ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦 ↔ ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉))
591, 58syl 14 . . . 4 (𝜑 → (∀𝑦 ∈ {𝑉} ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦 ↔ ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉))
6055, 59mpbird 165 . . 3 (𝜑 → ∀𝑦 ∈ {𝑉} ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦)
61 ralun 3180 . . 3 ((∀𝑦𝑈 ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦 ∧ ∀𝑦 ∈ {𝑉} ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦) → ∀𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦)
6246, 60, 61syl2anc 403 . 2 (𝜑 → ∀𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦)
63 breq1 3840 . . . . 5 (𝑥 = if(𝑍𝑅𝑉, 𝑉, 𝑍) → (𝑥𝑅𝑦 ↔ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦))
6463notbid 627 . . . 4 (𝑥 = if(𝑍𝑅𝑉, 𝑉, 𝑍) → (¬ 𝑥𝑅𝑦 ↔ ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦))
6564ralbidv 2380 . . 3 (𝑥 = if(𝑍𝑅𝑉, 𝑉, 𝑍) → (∀𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ 𝑥𝑅𝑦 ↔ ∀𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦))
6665rspcev 2722 . 2 ((if(𝑍𝑅𝑉, 𝑉, 𝑍) ∈ 𝐴 ∧ ∀𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦) → ∃𝑥𝐴𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ 𝑥𝑅𝑦)
676, 62, 66syl2anc 403 1 (𝜑 → ∃𝑥𝐴𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ 𝑥𝑅𝑦)
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 102  wb 103  wo 664  DECID wdc 780  w3o 923   = wceq 1289  wcel 1438  wne 2255  wral 2359  wrex 2360  cun 2995  wss 2997  c0 3284  ifcif 3389  {csn 3441   class class class wbr 3837   Po wpo 4112  Fincfn 6437
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-in1 579  ax-in2 580  ax-io 665  ax-5 1381  ax-7 1382  ax-gen 1383  ax-ie1 1427  ax-ie2 1428  ax-8 1440  ax-10 1441  ax-11 1442  ax-i12 1443  ax-bndl 1444  ax-4 1445  ax-17 1464  ax-i9 1468  ax-ial 1472  ax-i5r 1473  ax-ext 2070
This theorem depends on definitions:  df-bi 115  df-dc 781  df-3or 925  df-3an 926  df-tru 1292  df-nf 1395  df-sb 1693  df-clab 2075  df-cleq 2081  df-clel 2084  df-nfc 2217  df-ral 2364  df-rex 2365  df-v 2621  df-sbc 2839  df-un 3001  df-in 3003  df-ss 3010  df-if 3390  df-sn 3447  df-pr 3448  df-op 3450  df-br 3838  df-po 4114
This theorem is referenced by:  fimax2gtri  6597
  Copyright terms: Public domain W3C validator