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

Theorem noinfbnd1lem6 27710
Description: Lemma for noinfbnd1 27711. Establish a hard lower bound when there is no minimum. (Contributed by Scott Fenton, 9-Aug-2024.)
Hypothesis
Ref Expression
noinfbnd1.1 𝑇 = if(∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥, ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}), (𝑔 ∈ {𝑦 ∣ ∃𝑢𝐵 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐵𝑢 <s 𝑣 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐵 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐵𝑢 <s 𝑣 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥))))
Assertion
Ref Expression
noinfbnd1lem6 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) → 𝑇 <s (𝑈 ↾ dom 𝑇))
Distinct variable groups:   𝐵,𝑔,𝑢,𝑣,𝑥,𝑦   𝑣,𝑈   𝑔,𝑉   𝑥,𝑈,𝑦
Allowed substitution hints:   𝑇(𝑥,𝑦,𝑣,𝑢,𝑔)   𝑈(𝑢,𝑔)   𝑉(𝑥,𝑦,𝑣,𝑢)

Proof of Theorem noinfbnd1lem6
StepHypRef Expression
1 simp2l 1201 . . . . . 6 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) → 𝐵 No )
2 simp3 1139 . . . . . 6 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) → 𝑈𝐵)
31, 2sseldd 3923 . . . . 5 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) → 𝑈 No )
4 nofv 27639 . . . . 5 (𝑈 No → ((𝑈‘dom 𝑇) = ∅ ∨ (𝑈‘dom 𝑇) = 1o ∨ (𝑈‘dom 𝑇) = 2o))
53, 4syl 17 . . . 4 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) → ((𝑈‘dom 𝑇) = ∅ ∨ (𝑈‘dom 𝑇) = 1o ∨ (𝑈‘dom 𝑇) = 2o))
6 3oran 1109 . . . 4 (((𝑈‘dom 𝑇) = ∅ ∨ (𝑈‘dom 𝑇) = 1o ∨ (𝑈‘dom 𝑇) = 2o) ↔ ¬ (¬ (𝑈‘dom 𝑇) = ∅ ∧ ¬ (𝑈‘dom 𝑇) = 1o ∧ ¬ (𝑈‘dom 𝑇) = 2o))
75, 6sylib 218 . . 3 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) → ¬ (¬ (𝑈‘dom 𝑇) = ∅ ∧ ¬ (𝑈‘dom 𝑇) = 1o ∧ ¬ (𝑈‘dom 𝑇) = 2o))
8 simpl1 1193 . . . . . 6 (((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) ∧ 𝑇 = (𝑈 ↾ dom 𝑇)) → ¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥)
9 simpl2 1194 . . . . . 6 (((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) ∧ 𝑇 = (𝑈 ↾ dom 𝑇)) → (𝐵 No 𝐵𝑉))
10 simpl3 1195 . . . . . 6 (((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) ∧ 𝑇 = (𝑈 ↾ dom 𝑇)) → 𝑈𝐵)
11 simpr 484 . . . . . . 7 (((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) ∧ 𝑇 = (𝑈 ↾ dom 𝑇)) → 𝑇 = (𝑈 ↾ dom 𝑇))
1211eqcomd 2743 . . . . . 6 (((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) ∧ 𝑇 = (𝑈 ↾ dom 𝑇)) → (𝑈 ↾ dom 𝑇) = 𝑇)
13 noinfbnd1.1 . . . . . . 7 𝑇 = if(∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥, ((𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥) ∪ {⟨dom (𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥), 1o⟩}), (𝑔 ∈ {𝑦 ∣ ∃𝑢𝐵 (𝑦 ∈ dom 𝑢 ∧ ∀𝑣𝐵𝑢 <s 𝑣 → (𝑢 ↾ suc 𝑦) = (𝑣 ↾ suc 𝑦)))} ↦ (℩𝑥𝑢𝐵 (𝑔 ∈ dom 𝑢 ∧ ∀𝑣𝐵𝑢 <s 𝑣 → (𝑢 ↾ suc 𝑔) = (𝑣 ↾ suc 𝑔)) ∧ (𝑢𝑔) = 𝑥))))
1413noinfbnd1lem4 27708 . . . . . 6 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ (𝑈𝐵 ∧ (𝑈 ↾ dom 𝑇) = 𝑇)) → (𝑈‘dom 𝑇) ≠ ∅)
158, 9, 10, 12, 14syl112anc 1377 . . . . 5 (((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) ∧ 𝑇 = (𝑈 ↾ dom 𝑇)) → (𝑈‘dom 𝑇) ≠ ∅)
1615neneqd 2938 . . . 4 (((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) ∧ 𝑇 = (𝑈 ↾ dom 𝑇)) → ¬ (𝑈‘dom 𝑇) = ∅)
1713noinfbnd1lem3 27707 . . . . . 6 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ (𝑈𝐵 ∧ (𝑈 ↾ dom 𝑇) = 𝑇)) → (𝑈‘dom 𝑇) ≠ 1o)
188, 9, 10, 12, 17syl112anc 1377 . . . . 5 (((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) ∧ 𝑇 = (𝑈 ↾ dom 𝑇)) → (𝑈‘dom 𝑇) ≠ 1o)
1918neneqd 2938 . . . 4 (((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) ∧ 𝑇 = (𝑈 ↾ dom 𝑇)) → ¬ (𝑈‘dom 𝑇) = 1o)
2013noinfbnd1lem5 27709 . . . . . 6 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ (𝑈𝐵 ∧ (𝑈 ↾ dom 𝑇) = 𝑇)) → (𝑈‘dom 𝑇) ≠ 2o)
218, 9, 10, 12, 20syl112anc 1377 . . . . 5 (((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) ∧ 𝑇 = (𝑈 ↾ dom 𝑇)) → (𝑈‘dom 𝑇) ≠ 2o)
2221neneqd 2938 . . . 4 (((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) ∧ 𝑇 = (𝑈 ↾ dom 𝑇)) → ¬ (𝑈‘dom 𝑇) = 2o)
2316, 19, 223jca 1129 . . 3 (((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) ∧ 𝑇 = (𝑈 ↾ dom 𝑇)) → (¬ (𝑈‘dom 𝑇) = ∅ ∧ ¬ (𝑈‘dom 𝑇) = 1o ∧ ¬ (𝑈‘dom 𝑇) = 2o))
247, 23mtand 816 . 2 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) → ¬ 𝑇 = (𝑈 ↾ dom 𝑇))
2513noinfbnd1lem1 27705 . 2 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) → ¬ (𝑈 ↾ dom 𝑇) <s 𝑇)
2613noinfno 27700 . . . 4 ((𝐵 No 𝐵𝑉) → 𝑇 No )
27263ad2ant2 1135 . . 3 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) → 𝑇 No )
28 nodmon 27632 . . . . 5 (𝑇 No → dom 𝑇 ∈ On)
2927, 28syl 17 . . . 4 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) → dom 𝑇 ∈ On)
30 noreson 27642 . . . 4 ((𝑈 No ∧ dom 𝑇 ∈ On) → (𝑈 ↾ dom 𝑇) ∈ No )
313, 29, 30syl2anc 585 . . 3 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) → (𝑈 ↾ dom 𝑇) ∈ No )
32 ltsso 27658 . . . 4 <s Or No
33 solin 5561 . . . 4 (( <s Or No ∧ (𝑇 No ∧ (𝑈 ↾ dom 𝑇) ∈ No )) → (𝑇 <s (𝑈 ↾ dom 𝑇) ∨ 𝑇 = (𝑈 ↾ dom 𝑇) ∨ (𝑈 ↾ dom 𝑇) <s 𝑇))
3432, 33mpan 691 . . 3 ((𝑇 No ∧ (𝑈 ↾ dom 𝑇) ∈ No ) → (𝑇 <s (𝑈 ↾ dom 𝑇) ∨ 𝑇 = (𝑈 ↾ dom 𝑇) ∨ (𝑈 ↾ dom 𝑇) <s 𝑇))
3527, 31, 34syl2anc 585 . 2 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) → (𝑇 <s (𝑈 ↾ dom 𝑇) ∨ 𝑇 = (𝑈 ↾ dom 𝑇) ∨ (𝑈 ↾ dom 𝑇) <s 𝑇))
3624, 25, 35ecase23d 1476 1 ((¬ ∃𝑥𝐵𝑦𝐵 ¬ 𝑦 <s 𝑥 ∧ (𝐵 No 𝐵𝑉) ∧ 𝑈𝐵) → 𝑇 <s (𝑈 ↾ dom 𝑇))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395  w3o 1086  w3a 1087   = wceq 1542  wcel 2114  {cab 2715  wne 2933  wral 3052  wrex 3062  cun 3888  wss 3890  c0 4274  ifcif 4467  {csn 4568  cop 4574   class class class wbr 5086  cmpt 5167   Or wor 5533  dom cdm 5626  cres 5628  Oncon0 6319  suc csuc 6321  cio 6448  cfv 6494  crio 7318  1oc1o 8393  2oc2o 8394   No csur 27621   <s clts 27622
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5213  ax-sep 5232  ax-nul 5242  ax-pow 5304  ax-pr 5372  ax-un 7684
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-tp 4573  df-op 4575  df-uni 4852  df-int 4891  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5521  df-eprel 5526  df-po 5534  df-so 5535  df-fr 5579  df-we 5581  df-xp 5632  df-rel 5633  df-cnv 5634  df-co 5635  df-dm 5636  df-rn 5637  df-res 5638  df-ima 5639  df-ord 6322  df-on 6323  df-suc 6325  df-iota 6450  df-fun 6496  df-fn 6497  df-f 6498  df-fo 6500  df-fv 6502  df-riota 7319  df-1o 8400  df-2o 8401  df-no 27624  df-lts 27625  df-bday 27626
This theorem is referenced by:  noinfbnd1  27711
  Copyright terms: Public domain W3C validator