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

Theorem fimax2gtrilemstep 6895
Description: Lemma for fimax2gtri 6896. 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 6894 . . 3 (𝜑DECID 𝑍𝑅𝑉)
61, 2, 5ifcldcd 3570 . 2 (𝜑 → if(𝑍𝑅𝑉, 𝑉, 𝑍) ∈ 𝐴)
7 simplr 528 . . . . . . . 8 ((((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) ∧ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤) → 𝑍𝑅𝑉)
8 simpr 110 . . . . . . . . . . . 12 ((𝜑𝑍𝑅𝑉) → 𝑍𝑅𝑉)
98iftrued 3541 . . . . . . . . . . 11 ((𝜑𝑍𝑅𝑉) → if(𝑍𝑅𝑉, 𝑉, 𝑍) = 𝑉)
109breq1d 4011 . . . . . . . . . 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 3156 . . . . . . . . . 10 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → 𝑤𝐴)
20 potr 4306 . . . . . . . . . 10 ((𝑅 Po 𝐴 ∧ (𝑍𝐴𝑉𝐴𝑤𝐴)) → ((𝑍𝑅𝑉𝑉𝑅𝑤) → 𝑍𝑅𝑤))
2113, 14, 15, 19, 20syl13anc 1240 . . . . . . . . 9 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → ((𝑍𝑅𝑉𝑉𝑅𝑤) → 𝑍𝑅𝑤))
2221adantr 276 . . . . . . . 8 ((((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) ∧ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤) → ((𝑍𝑅𝑉𝑉𝑅𝑤) → 𝑍𝑅𝑤))
237, 12, 22mp2and 433 . . . . . . 7 ((((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) ∧ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤) → 𝑍𝑅𝑤)
24 fimax2gtri.zb . . . . . . . . . 10 (𝜑 → ∀𝑦𝑈 ¬ 𝑍𝑅𝑦)
25 breq2 4005 . . . . . . . . . . . 12 (𝑦 = 𝑤 → (𝑍𝑅𝑦𝑍𝑅𝑤))
2625notbid 667 . . . . . . . . . . 11 (𝑦 = 𝑤 → (¬ 𝑍𝑅𝑦 ↔ ¬ 𝑍𝑅𝑤))
2726cbvralv 2703 . . . . . . . . . 10 (∀𝑦𝑈 ¬ 𝑍𝑅𝑦 ↔ ∀𝑤𝑈 ¬ 𝑍𝑅𝑤)
2824, 27sylib 122 . . . . . . . . 9 (𝜑 → ∀𝑤𝑈 ¬ 𝑍𝑅𝑤)
2928r19.21bi 2565 . . . . . . . 8 ((𝜑𝑤𝑈) → ¬ 𝑍𝑅𝑤)
3029ad2antrr 488 . . . . . . 7 ((((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) ∧ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤) → ¬ 𝑍𝑅𝑤)
3123, 30pm2.65da 661 . . . . . 6 (((𝜑𝑤𝑈) ∧ 𝑍𝑅𝑉) → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤)
3229adantr 276 . . . . . . 7 (((𝜑𝑤𝑈) ∧ ¬ 𝑍𝑅𝑉) → ¬ 𝑍𝑅𝑤)
33 simpr 110 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝑍𝑅𝑉) → ¬ 𝑍𝑅𝑉)
3433iffalsed 3544 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝑍𝑅𝑉) → if(𝑍𝑅𝑉, 𝑉, 𝑍) = 𝑍)
3534breq1d 4011 . . . . . . . 8 ((𝜑 ∧ ¬ 𝑍𝑅𝑉) → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤𝑍𝑅𝑤))
3635adantlr 477 . . . . . . 7 (((𝜑𝑤𝑈) ∧ ¬ 𝑍𝑅𝑉) → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤𝑍𝑅𝑤))
3732, 36mtbird 673 . . . . . 6 (((𝜑𝑤𝑈) ∧ ¬ 𝑍𝑅𝑉) → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤)
38 exmiddc 836 . . . . . . . 8 (DECID 𝑍𝑅𝑉 → (𝑍𝑅𝑉 ∨ ¬ 𝑍𝑅𝑉))
395, 38syl 14 . . . . . . 7 (𝜑 → (𝑍𝑅𝑉 ∨ ¬ 𝑍𝑅𝑉))
4039adantr 276 . . . . . 6 ((𝜑𝑤𝑈) → (𝑍𝑅𝑉 ∨ ¬ 𝑍𝑅𝑉))
4131, 37, 40mpjaodan 798 . . . . 5 ((𝜑𝑤𝑈) → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤)
4241ralrimiva 2550 . . . 4 (𝜑 → ∀𝑤𝑈 ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤)
43 breq2 4005 . . . . . 6 (𝑤 = 𝑦 → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤 ↔ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦))
4443notbid 667 . . . . 5 (𝑤 = 𝑦 → (¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤 ↔ ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦))
4544cbvralv 2703 . . . 4 (∀𝑤𝑈 ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑤 ↔ ∀𝑦𝑈 ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦)
4642, 45sylib 122 . . 3 (𝜑 → ∀𝑦𝑈 ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦)
473adantr 276 . . . . . . 7 ((𝜑𝑍𝑅𝑉) → 𝑅 Po 𝐴)
481adantr 276 . . . . . . 7 ((𝜑𝑍𝑅𝑉) → 𝑉𝐴)
49 poirr 4305 . . . . . . 7 ((𝑅 Po 𝐴𝑉𝐴) → ¬ 𝑉𝑅𝑉)
5047, 48, 49syl2anc 411 . . . . . 6 ((𝜑𝑍𝑅𝑉) → ¬ 𝑉𝑅𝑉)
519breq1d 4011 . . . . . 6 ((𝜑𝑍𝑅𝑉) → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉𝑉𝑅𝑉))
5250, 51mtbird 673 . . . . 5 ((𝜑𝑍𝑅𝑉) → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉)
5334breq1d 4011 . . . . . 6 ((𝜑 ∧ ¬ 𝑍𝑅𝑉) → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉𝑍𝑅𝑉))
5433, 53mtbird 673 . . . . 5 ((𝜑 ∧ ¬ 𝑍𝑅𝑉) → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉)
5552, 54, 39mpjaodan 798 . . . 4 (𝜑 → ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉)
56 breq2 4005 . . . . . . 7 (𝑦 = 𝑉 → (if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦 ↔ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉))
5756notbid 667 . . . . . 6 (𝑦 = 𝑉 → (¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦 ↔ ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉))
5857ralsng 3632 . . . . 5 (𝑉𝐴 → (∀𝑦 ∈ {𝑉} ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦 ↔ ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉))
591, 58syl 14 . . . 4 (𝜑 → (∀𝑦 ∈ {𝑉} ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦 ↔ ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑉))
6055, 59mpbird 167 . . 3 (𝜑 → ∀𝑦 ∈ {𝑉} ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦)
61 ralun 3317 . . 3 ((∀𝑦𝑈 ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦 ∧ ∀𝑦 ∈ {𝑉} ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦) → ∀𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦)
6246, 60, 61syl2anc 411 . 2 (𝜑 → ∀𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦)
63 breq1 4004 . . . . 5 (𝑥 = if(𝑍𝑅𝑉, 𝑉, 𝑍) → (𝑥𝑅𝑦 ↔ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦))
6463notbid 667 . . . 4 (𝑥 = if(𝑍𝑅𝑉, 𝑉, 𝑍) → (¬ 𝑥𝑅𝑦 ↔ ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦))
6564ralbidv 2477 . . 3 (𝑥 = if(𝑍𝑅𝑉, 𝑉, 𝑍) → (∀𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ 𝑥𝑅𝑦 ↔ ∀𝑦 ∈ (𝑈 ∪ {𝑉}) ¬ if(𝑍𝑅𝑉, 𝑉, 𝑍)𝑅𝑦))
6665rspcev 2841 . 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 708  DECID wdc 834  w3o 977   = wceq 1353  wcel 2148  wne 2347  wral 2455  wrex 2456  cun 3127  wss 3129  c0 3422  ifcif 3534  {csn 3592   class class class wbr 4001   Po wpo 4292  Fincfn 6735
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 614  ax-in2 615  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-ext 2159
This theorem depends on definitions:  df-bi 117  df-dc 835  df-3or 979  df-3an 980  df-tru 1356  df-nf 1461  df-sb 1763  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ral 2460  df-rex 2461  df-v 2739  df-sbc 2963  df-un 3133  df-in 3135  df-ss 3142  df-if 3535  df-sn 3598  df-pr 3599  df-op 3601  df-br 4002  df-po 4294
This theorem is referenced by:  fimax2gtri  6896
  Copyright terms: Public domain W3C validator