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

Theorem bdayfinbndcbv 28852
Description: Lemma for bdayfinbnd 28855. Change some bound variables. (Contributed by Scott Fenton, 25-Feb-2026.)
Hypotheses
Ref Expression
bdayfinbndlem.1 (𝜑 → 𝑁 ∈ ℕ0s)
bdayfinbndlem.2 (𝜑 → ∀𝑧 ∈ No (((bday‘𝑧) ⊆ (bday‘𝑁) ∧ 0s ≤s 𝑧) → (𝑧 = 𝑁 ∨ ∃𝑥 ∈ ℕ0s ∃𝑦 ∈ ℕ0s ∃𝑝 ∈ ℕ0s (𝑧 = (𝑥 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁))))
Assertion
Ref Expression
bdayfinbndcbv (𝜑 → ∀𝑤 ∈ No (((bday‘𝑤) ⊆ (bday‘𝑁) ∧ 0s ≤s 𝑤) → (𝑤 = 𝑁 ∨ ∃𝑎 ∈ ℕ0s ∃𝑏 ∈ ℕ0s ∃𝑞 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑏 /su (2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁))))
Distinct variable group:   𝑥,𝑦,𝑝,𝑎,𝑏,𝑞,𝑧,𝑤,𝑁
Allowed substitution hints:   𝜑(𝑥, 𝑦, 𝑧, 𝑤, 𝑞, 𝑝, 𝑎, 𝑏)

Proof of Theorem bdayfinbndcbv
StepHypRef Expression
1 bdayfinbndlem.2 . 2 (𝜑 → ∀𝑧 ∈ No (((bday‘𝑧) ⊆ (bday‘𝑁) ∧ 0s ≤s 𝑧) → (𝑧 = 𝑁 ∨ ∃𝑥 ∈ ℕ0s ∃𝑦 ∈ ℕ0s ∃𝑝 ∈ ℕ0s (𝑧 = (𝑥 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁))))
2 fveq2 6885 . . . . . 6 (𝑧 = 𝑤 → (bday‘𝑧) = (bday‘𝑤))
32sseq1d 3939 . . . . 5 (𝑧 = 𝑤 → ((bday‘𝑧) ⊆ (bday‘𝑁) ↔ (bday‘𝑤) ⊆ (bday‘𝑁)))
4 breq2 5106 . . . . 5 (𝑧 = 𝑤 → ( 0s ≤s 𝑧 ↔ 0s ≤s 𝑤))
53, 4anbi12d 644 . . . 4 (𝑧 = 𝑤 → (((bday‘𝑧) ⊆ (bday‘𝑁) ∧ 0s ≤s 𝑧) ↔ ((bday‘𝑤) ⊆ (bday‘𝑁) ∧ 0s ≤s 𝑤)))
6 eqeq1 2764 . . . . 5 (𝑧 = 𝑤 → (𝑧 = 𝑁 ↔ 𝑤 = 𝑁))
7 eqeq1 2764 . . . . . . . . 9 (𝑧 = 𝑤 → (𝑧 = (𝑥 +s (𝑦 /su (2s↑s𝑝))) ↔ 𝑤 = (𝑥 +s (𝑦 /su (2s↑s𝑝)))))
873anbi1d 1468 . . . . . . . 8 (𝑧 = 𝑤 → ((𝑧 = (𝑥 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁) ↔ (𝑤 = (𝑥 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁)))
98rexbidv 3186 . . . . . . 7 (𝑧 = 𝑤 → (∃𝑝 ∈ ℕ0s (𝑧 = (𝑥 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁) ↔ ∃𝑝 ∈ ℕ0s (𝑤 = (𝑥 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁)))
1092rexbidv 3227 . . . . . 6 (𝑧 = 𝑤 → (∃𝑥 ∈ ℕ0s ∃𝑦 ∈ ℕ0s ∃𝑝 ∈ ℕ0s (𝑧 = (𝑥 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁) ↔ ∃𝑥 ∈ ℕ0s ∃𝑦 ∈ ℕ0s ∃𝑝 ∈ ℕ0s (𝑤 = (𝑥 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁)))
11 oveq1 7427 . . . . . . . . . 10 (𝑥 = 𝑎 → (𝑥 +s (𝑦 /su (2s↑s𝑝))) = (𝑎 +s (𝑦 /su (2s↑s𝑝))))
1211eqeq2d 2771 . . . . . . . . 9 (𝑥 = 𝑎 → (𝑤 = (𝑥 +s (𝑦 /su (2s↑s𝑝))) ↔ 𝑤 = (𝑎 +s (𝑦 /su (2s↑s𝑝)))))
13 oveq1 7427 . . . . . . . . . 10 (𝑥 = 𝑎 → (𝑥 +s 𝑝) = (𝑎 +s 𝑝))
1413breq1d 5112 . . . . . . . . 9 (𝑥 = 𝑎 → ((𝑥 +s 𝑝) <s 𝑁 ↔ (𝑎 +s 𝑝) <s 𝑁))
1512, 143anbi13d 1466 . . . . . . . 8 (𝑥 = 𝑎 → ((𝑤 = (𝑥 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁) ↔ (𝑤 = (𝑎 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁)))
1615rexbidv 3186 . . . . . . 7 (𝑥 = 𝑎 → (∃𝑝 ∈ ℕ0s (𝑤 = (𝑥 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁) ↔ ∃𝑝 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁)))
17 oveq1 7427 . . . . . . . . . . . 12 (𝑦 = 𝑏 → (𝑦 /su (2s↑s𝑝)) = (𝑏 /su (2s↑s𝑝)))
1817oveq2d 7436 . . . . . . . . . . 11 (𝑦 = 𝑏 → (𝑎 +s (𝑦 /su (2s↑s𝑝))) = (𝑎 +s (𝑏 /su (2s↑s𝑝))))
1918eqeq2d 2771 . . . . . . . . . 10 (𝑦 = 𝑏 → (𝑤 = (𝑎 +s (𝑦 /su (2s↑s𝑝))) ↔ 𝑤 = (𝑎 +s (𝑏 /su (2s↑s𝑝)))))
20 breq1 5105 . . . . . . . . . 10 (𝑦 = 𝑏 → (𝑦 <s (2s↑s𝑝) ↔ 𝑏 <s (2s↑s𝑝)))
2119, 203anbi12d 1465 . . . . . . . . 9 (𝑦 = 𝑏 → ((𝑤 = (𝑎 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁) ↔ (𝑤 = (𝑎 +s (𝑏 /su (2s↑s𝑝))) ∧ 𝑏 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁)))
2221rexbidv 3186 . . . . . . . 8 (𝑦 = 𝑏 → (∃𝑝 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁) ↔ ∃𝑝 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑏 /su (2s↑s𝑝))) ∧ 𝑏 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁)))
23 oveq2 7428 . . . . . . . . . . . . 13 (𝑝 = 𝑞 → (2s↑s𝑝) = (2s↑s𝑞))
24 oveq2 7428 . . . . . . . . . . . . 13 ((2s↑s𝑝) = (2s↑s𝑞) → (𝑏 /su (2s↑s𝑝)) = (𝑏 /su (2s↑s𝑞)))
2523, 24syl 18 . . . . . . . . . . . 12 (𝑝 = 𝑞 → (𝑏 /su (2s↑s𝑝)) = (𝑏 /su (2s↑s𝑞)))
2625oveq2d 7436 . . . . . . . . . . 11 (𝑝 = 𝑞 → (𝑎 +s (𝑏 /su (2s↑s𝑝))) = (𝑎 +s (𝑏 /su (2s↑s𝑞))))
2726eqeq2d 2771 . . . . . . . . . 10 (𝑝 = 𝑞 → (𝑤 = (𝑎 +s (𝑏 /su (2s↑s𝑝))) ↔ 𝑤 = (𝑎 +s (𝑏 /su (2s↑s𝑞)))))
2823breq2d 5114 . . . . . . . . . 10 (𝑝 = 𝑞 → (𝑏 <s (2s↑s𝑝) ↔ 𝑏 <s (2s↑s𝑞)))
29 oveq2 7428 . . . . . . . . . . 11 (𝑝 = 𝑞 → (𝑎 +s 𝑝) = (𝑎 +s 𝑞))
3029breq1d 5112 . . . . . . . . . 10 (𝑝 = 𝑞 → ((𝑎 +s 𝑝) <s 𝑁 ↔ (𝑎 +s 𝑞) <s 𝑁))
3127, 28, 303anbi123d 1464 . . . . . . . . 9 (𝑝 = 𝑞 → ((𝑤 = (𝑎 +s (𝑏 /su (2s↑s𝑝))) ∧ 𝑏 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁) ↔ (𝑤 = (𝑎 +s (𝑏 /su (2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁)))
3231cbvrexvw 3241 . . . . . . . 8 (∃𝑝 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑏 /su (2s↑s𝑝))) ∧ 𝑏 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁) ↔ ∃𝑞 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑏 /su (2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁))
3322, 32bitrdi 290 . . . . . . 7 (𝑦 = 𝑏 → (∃𝑝 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁) ↔ ∃𝑞 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑏 /su (2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁)))
3416, 33cbvrex2vw 3245 . . . . . 6 (∃𝑥 ∈ ℕ0s ∃𝑦 ∈ ℕ0s ∃𝑝 ∈ ℕ0s (𝑤 = (𝑥 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁) ↔ ∃𝑎 ∈ ℕ0s ∃𝑏 ∈ ℕ0s ∃𝑞 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑏 /su (2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁))
3510, 34bitrdi 290 . . . . 5 (𝑧 = 𝑤 → (∃𝑥 ∈ ℕ0s ∃𝑦 ∈ ℕ0s ∃𝑝 ∈ ℕ0s (𝑧 = (𝑥 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁) ↔ ∃𝑎 ∈ ℕ0s ∃𝑏 ∈ ℕ0s ∃𝑞 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑏 /su (2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁)))
366, 35orbi12d 932 . . . 4 (𝑧 = 𝑤 → ((𝑧 = 𝑁 ∨ ∃𝑥 ∈ ℕ0s ∃𝑦 ∈ ℕ0s ∃𝑝 ∈ ℕ0s (𝑧 = (𝑥 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁)) ↔ (𝑤 = 𝑁 ∨ ∃𝑎 ∈ ℕ0s ∃𝑏 ∈ ℕ0s ∃𝑞 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑏 /su (2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁))))
375, 36imbi12d 347 . . 3 (𝑧 = 𝑤 → ((((bday‘𝑧) ⊆ (bday‘𝑁) ∧ 0s ≤s 𝑧) → (𝑧 = 𝑁 ∨ ∃𝑥 ∈ ℕ0s ∃𝑦 ∈ ℕ0s ∃𝑝 ∈ ℕ0s (𝑧 = (𝑥 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁))) ↔ (((bday‘𝑤) ⊆ (bday‘𝑁) ∧ 0s ≤s 𝑤) → (𝑤 = 𝑁 ∨ ∃𝑎 ∈ ℕ0s ∃𝑏 ∈ ℕ0s ∃𝑞 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑏 /su (2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁)))))
3837cbvralvw 3240 . 2 (∀𝑧 ∈ No (((bday‘𝑧) ⊆ (bday‘𝑁) ∧ 0s ≤s 𝑧) → (𝑧 = 𝑁 ∨ ∃𝑥 ∈ ℕ0s ∃𝑦 ∈ ℕ0s ∃𝑝 ∈ ℕ0s (𝑧 = (𝑥 +s (𝑦 /su (2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁))) ↔ ∀𝑤 ∈ No (((bday‘𝑤) ⊆ (bday‘𝑁) ∧ 0s ≤s 𝑤) → (𝑤 = 𝑁 ∨ ∃𝑎 ∈ ℕ0s ∃𝑏 ∈ ℕ0s ∃𝑞 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑏 /su (2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁))))
391, 38sylib 221 1 (𝜑 → ∀𝑤 ∈ No (((bday‘𝑤) ⊆ (bday‘𝑁) ∧ 0s ≤s 𝑤) → (𝑤 = 𝑁 ∨ ∃𝑎 ∈ ℕ0s ∃𝑏 ∈ ℕ0s ∃𝑞 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑏 /su (2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁))))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:   → wi 4   ∧ wa 401   ∨ wo 861   ∧ w3a 1103   = wceq 1569   ∈ wcel 2144  ∀wral 3076  ∃wrex 3086   ⊆ wss 3895   class class class wbr 5102  ‘cfv 6538  (class class class)co 7420  Nocsur 27997   <s clts 27998  bdaycbday 27999   ≤s cles 28101   0s c0s 28191   +s cadds 28345   /su cdivs 28573  ℕ0scn0s 28698  2sc2s 28796  ↑scexps 28798
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-ext 2732
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-sb 2099  df-clab 2739  df-cleq 2752  df-clel 2835  df-ral 3077  df-rex 3087  df-rab 3413  df-v 3452  df-ss 3896  df-dif 4047  df-un 4151  df-nul 4279  df-if 4482  df-sn 4584  df-pr 4586  df-op 4590  df-uni 4867  df-br 5103  df-iota 6494  df-fv 6546  df-ov 7423
This theorem is used by:  bdayfinbndlem2  28854
  Copyright terms: Public domain W3C validator