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

Theorem fimax2gtrilemstep 6997
Description: Lemma for fimax2gtri 6998. 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 6996 . . 3 (𝜑DECID 𝑍𝑅𝑉)
61, 2, 5ifcldcd 3608 . 2 (𝜑 → if(𝑍𝑅𝑉, 𝑉, 𝑍) ∈ 𝐴)
7 simplr 528 . . . . . . . 8 ((((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) ∧ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤) → 𝑍𝑅𝑉)
8 simpr 110 . . . . . . . . . . . 12 ((𝜑𝑍𝑅𝑉) → 𝑍𝑅𝑉)
98iftrued 3578 . . . . . . . . . . 11 ((𝜑𝑍𝑅𝑉) → if(𝑍𝑅𝑉, 𝑉, 𝑍) = 𝑉)
109breq1d 4054 . . . . . . . . . 10 ((𝜑𝑍𝑅𝑉) → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤𝑉𝑅𝑤))
1110biimpa 296 . . . . . . . . 9 (((𝜑𝑍𝑅𝑉) ∧ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤) → 𝑉𝑅𝑤)
1211adantllr 481 . . . . . . . 8 ((((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) ∧ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤) → 𝑉𝑅𝑤)
133ad2antrr 488 . . . . . . . . . 10 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → 𝑅 Po 𝐴)
142ad2antrr 488 . . . . . . . . . 10 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → 𝑍𝐴)
151ad2antrr 488 . . . . . . . . . 10 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → 𝑉𝐴)
16 fimax2gtri.uss . . . . . . . . . . . 12 (𝜑𝑈𝐴)
1716ad2antrr 488 . . . . . . . . . . 11 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → 𝑈𝐴)
18 simplr 528 . . . . . . . . . . 11 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → 𝑤𝑈)
1917, 18sseldd 3194 . . . . . . . . . 10 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → 𝑤𝐴)
20 potr 4355 . . . . . . . . . 10 ((𝑅 Po 𝐴 ∧ (𝑍𝐴𝑉𝐴𝑤𝐴)) → ((𝑍𝑅𝑉𝑉𝑅𝑤) → 𝑍𝑅𝑤))
2113, 14, 15, 19, 20syl13anc 1252 . . . . . . . . 9 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → ((𝑍𝑅𝑉𝑉𝑅𝑤) → 𝑍𝑅𝑤))
2221adantr 276 . . . . . . . 8 ((((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) ∧ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤) → ((𝑍𝑅𝑉𝑉𝑅𝑤) → 𝑍𝑅𝑤))
237, 12, 22mp2and 433 . . . . . . 7 ((((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) ∧ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤) → 𝑍𝑅𝑤)
24 fimax2gtri.zb . . . . . . . . . 10 (𝜑 → ∀𝑦𝑈 ¬ 𝑍𝑅𝑦)
25 breq2 4048 . . . . . . . . . . . 12 (𝑦 = 𝑤 → (𝑍𝑅𝑦𝑍𝑅𝑤))
2625notbid 669 . . . . . . . . . . 11 (𝑦 = 𝑤 → (¬ 𝑍𝑅𝑦 ↔ ¬ 𝑍𝑅𝑤))
2726cbvralv 2738 . . . . . . . . . 10 (∀𝑦𝑈 ¬ 𝑍𝑅𝑦 ↔ ∀𝑤𝑈 ¬ 𝑍𝑅𝑤)
2824, 27sylib 122 . . . . . . . . 9 (𝜑 → ∀𝑤𝑈 ¬ 𝑍𝑅𝑤)
2928r19.21bi 2594 . . . . . . . 8 ((𝜑𝑤𝑈) → ¬ 𝑍𝑅𝑤)
3029ad2antrr 488 . . . . . . 7 ((((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) ∧ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤) → ¬ 𝑍𝑅𝑤)
3123, 30pm2.65da 663 . . . . . 6 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤)
3229adantr 276 . . . . . . 7 (((𝜑𝑤𝑈) ∧ ¬ 𝑍𝑅𝑉) → ¬ 𝑍𝑅𝑤)
33 simpr 110 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝑍𝑅𝑉) → ¬ 𝑍𝑅𝑉)
3433iffalsed 3581 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝑍𝑅𝑉) → if(𝑍𝑅𝑉, 𝑉, 𝑍) = 𝑍)
3534breq1d 4054 . . . . . . . 8 ((𝜑 ∧ ¬ 𝑍𝑅𝑉) → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤𝑍𝑅𝑤))
3635adantlr 477 . . . . . . 7 (((𝜑𝑤𝑈) ∧ ¬ 𝑍𝑅𝑉) → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤𝑍𝑅𝑤))
3732, 36mtbird 675 . . . . . 6 (((𝜑𝑤𝑈) ∧ ¬ 𝑍𝑅𝑉) → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤)
38 exmiddc 838 . . . . . . . 8 (DECID 𝑍𝑅𝑉 → (𝑍𝑅𝑉 ∨ ¬ 𝑍𝑅𝑉))
395, 38syl 14 . . . . . . 7 (𝜑 → (𝑍𝑅𝑉 ∨ ¬ 𝑍𝑅𝑉))
4039adantr 276 . . . . . 6 ((𝜑𝑤𝑈) → (𝑍𝑅𝑉 ∨ ¬ 𝑍𝑅𝑉))
4131, 37, 40mpjaodan 800 . . . . 5 ((𝜑𝑤𝑈) → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤)
4241ralrimiva 2579 . . . 4 (𝜑 → ∀𝑤𝑈 ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤)
43 breq2 4048 . . . . . 6 (𝑤 = 𝑦 → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤 ↔ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦))
4443notbid 669 . . . . 5 (𝑤 = 𝑦 → (¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤 ↔ ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦))
4544cbvralv 2738 . . . 4 (∀𝑤𝑈 ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤 ↔ ∀𝑦𝑈 ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦)
4642, 45sylib 122 . . 3 (𝜑 → ∀𝑦𝑈 ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦)
473adantr 276 . . . . . . 7 ((𝜑𝑍𝑅𝑉) → 𝑅 Po 𝐴)
481adantr 276 . . . . . . 7 ((𝜑𝑍𝑅𝑉) → 𝑉𝐴)
49 poirr 4354 . . . . . . 7 ((𝑅 Po 𝐴𝑉𝐴) → ¬ 𝑉𝑅𝑉)
5047, 48, 49syl2anc 411 . . . . . 6 ((𝜑𝑍𝑅𝑉) → ¬ 𝑉𝑅𝑉)
519breq1d 4054 . . . . . 6 ((𝜑𝑍𝑅𝑉) → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉𝑉𝑅𝑉))
5250, 51mtbird 675 . . . . 5 ((𝜑𝑍𝑅𝑉) → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉)
5334breq1d 4054 . . . . . 6 ((𝜑 ∧ ¬ 𝑍𝑅𝑉) → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉𝑍𝑅𝑉))
5433, 53mtbird 675 . . . . 5 ((𝜑 ∧ ¬ 𝑍𝑅𝑉) → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉)
5552, 54, 39mpjaodan 800 . . . 4 (𝜑 → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉)
56 breq2 4048 . . . . . . 7 (𝑦 = 𝑉 → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦 ↔ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉))
5756notbid 669 . . . . . 6 (𝑦 = 𝑉 → (¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦 ↔ ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉))
5857ralsng 3673 . . . . 5 (𝑉𝐴 → (∀𝑦 ∈ {𝑉} ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦 ↔ ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉))
591, 58syl 14 . . . 4 (𝜑 → (∀𝑦 ∈ {𝑉} ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦 ↔ ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉))
6055, 59mpbird 167 . . 3 (𝜑 → ∀𝑦 ∈ {𝑉} ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦)
61 ralun 3355 . . 3 ((∀𝑦𝑈 ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦 ∧ ∀𝑦 ∈ {𝑉} ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦) → ∀𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦)
6246, 60, 61syl2anc 411 . 2 (𝜑 → ∀𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦)
63 breq1 4047 . . . . 5 (𝑥 = if(𝑍𝑅𝑉, 𝑉, 𝑍) → (𝑥𝑅𝑦 ↔ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦))
6463notbid 669 . . . 4 (𝑥 = if(𝑍𝑅𝑉, 𝑉, 𝑍) → (¬ 𝑥𝑅𝑦 ↔ ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦))
6564ralbidv 2506 . . 3 (𝑥 = if(𝑍𝑅𝑉, 𝑉, 𝑍) → (∀𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ 𝑥𝑅𝑦 ↔ ∀𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦))
6665rspcev 2877 . 2 ((if(𝑍𝑅𝑉, 𝑉, 𝑍) ∈ 𝐴 ∧ ∀𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦) → ∃𝑥𝐴𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ 𝑥𝑅𝑦)
676, 62, 66syl2anc 411 1 (𝜑 → ∃𝑥𝐴𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ 𝑥𝑅𝑦)
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 104  wb 105  wo 710  DECID wdc 836  w3o 980   = wceq 1373  wcel 2176  wne 2376  wral 2484  wrex 2485  cun 3164  wss 3166  c0 3460  ifcif 3571  {csn 3633   class class class wbr 4044   Po wpo 4341  Fincfn 6827
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 711  ax-5 1470  ax-7 1471  ax-gen 1472  ax-ie1 1516  ax-ie2 1517  ax-8 1527  ax-10 1528  ax-11 1529  ax-i12 1530  ax-bndl 1532  ax-4 1533  ax-17 1549  ax-i9 1553  ax-ial 1557  ax-i5r 1558  ax-ext 2187
This theorem depends on definitions:  df-bi 117  df-dc 837  df-3or 982  df-3an 983  df-tru 1376  df-nf 1484  df-sb 1786  df-clab 2192  df-cleq 2198  df-clel 2201  df-nfc 2337  df-ral 2489  df-rex 2490  df-v 2774  df-sbc 2999  df-un 3170  df-in 3172  df-ss 3179  df-if 3572  df-sn 3639  df-pr 3640  df-op 3642  df-br 4045  df-po 4343
This theorem is referenced by:  fimax2gtri  6998
  Copyright terms: Public domain W3C validator