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

Theorem vdwlem9 15974
Description: Lemma for vdw 15979. (Contributed by Mario Carneiro, 12-Sep-2014.)
Hypotheses
Ref Expression
vdw.r (𝜑𝑅 ∈ Fin)
vdwlem9.k (𝜑𝐾 ∈ (ℤ‘2))
vdwlem9.s (𝜑 → ∀𝑠 ∈ Fin ∃𝑛 ∈ ℕ ∀𝑓 ∈ (𝑠𝑚 (1...𝑛))𝐾 MonoAP 𝑓)
vdwlem9.m (𝜑𝑀 ∈ ℕ)
vdwlem9.w (𝜑𝑊 ∈ ℕ)
vdwlem9.g (𝜑 → ∀𝑔 ∈ (𝑅𝑚 (1...𝑊))(⟨𝑀, 𝐾⟩ PolyAP 𝑔 ∨ (𝐾 + 1) MonoAP 𝑔))
vdwlem9.v (𝜑𝑉 ∈ ℕ)
vdwlem9.a (𝜑 → ∀𝑓 ∈ ((𝑅𝑚 (1...𝑊)) ↑𝑚 (1...𝑉))𝐾 MonoAP 𝑓)
vdwlem9.h (𝜑𝐻:(1...(𝑊 · (2 · 𝑉)))⟶𝑅)
vdwlem9.f 𝐹 = (𝑥 ∈ (1...𝑉) ↦ (𝑦 ∈ (1...𝑊) ↦ (𝐻‘(𝑦 + (𝑊 · ((𝑥 − 1) + 𝑉))))))
Assertion
Ref Expression
vdwlem9 (𝜑 → (⟨(𝑀 + 1), 𝐾⟩ PolyAP 𝐻 ∨ (𝐾 + 1) MonoAP 𝐻))
Distinct variable groups:   𝑔,𝑛,𝑥,𝑦,𝜑   𝑥,𝑓,𝑦,𝑉   𝑓,𝑊,𝑥,𝑦   𝑓,𝑔,𝐹,𝑥,𝑦   𝑓,𝑛,𝑠,𝐾,𝑔,𝑥,𝑦   𝑓,𝑀,𝑔,𝑛,𝑥,𝑦   𝑅,𝑓,𝑔,𝑛,𝑠,𝑥,𝑦   𝑔,𝐻,𝑥,𝑦
Allowed substitution hints:   𝜑(𝑓,𝑠)   𝐹(𝑛,𝑠)   𝐻(𝑓,𝑛,𝑠)   𝑀(𝑠)   𝑉(𝑔,𝑛,𝑠)   𝑊(𝑔,𝑛,𝑠)

Proof of Theorem vdwlem9
Dummy variables 𝑎 𝑑 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 breq2 4813 . . 3 (𝑓 = 𝐹 → (𝐾 MonoAP 𝑓𝐾 MonoAP 𝐹))
2 vdwlem9.a . . 3 (𝜑 → ∀𝑓 ∈ ((𝑅𝑚 (1...𝑊)) ↑𝑚 (1...𝑉))𝐾 MonoAP 𝑓)
3 vdwlem9.v . . . . 5 (𝜑𝑉 ∈ ℕ)
4 vdwlem9.w . . . . 5 (𝜑𝑊 ∈ ℕ)
5 vdw.r . . . . 5 (𝜑𝑅 ∈ Fin)
6 vdwlem9.h . . . . 5 (𝜑𝐻:(1...(𝑊 · (2 · 𝑉)))⟶𝑅)
7 vdwlem9.f . . . . 5 𝐹 = (𝑥 ∈ (1...𝑉) ↦ (𝑦 ∈ (1...𝑊) ↦ (𝐻‘(𝑦 + (𝑊 · ((𝑥 − 1) + 𝑉))))))
83, 4, 5, 6, 7vdwlem4 15969 . . . 4 (𝜑𝐹:(1...𝑉)⟶(𝑅𝑚 (1...𝑊)))
9 ovex 6874 . . . . 5 (𝑅𝑚 (1...𝑊)) ∈ V
10 ovex 6874 . . . . 5 (1...𝑉) ∈ V
119, 10elmap 8089 . . . 4 (𝐹 ∈ ((𝑅𝑚 (1...𝑊)) ↑𝑚 (1...𝑉)) ↔ 𝐹:(1...𝑉)⟶(𝑅𝑚 (1...𝑊)))
128, 11sylibr 225 . . 3 (𝜑𝐹 ∈ ((𝑅𝑚 (1...𝑊)) ↑𝑚 (1...𝑉)))
131, 2, 12rspcdva 3467 . 2 (𝜑𝐾 MonoAP 𝐹)
14 vdwlem9.k . . . . . 6 (𝜑𝐾 ∈ (ℤ‘2))
15 eluz2nn 11926 . . . . . 6 (𝐾 ∈ (ℤ‘2) → 𝐾 ∈ ℕ)
1614, 15syl 17 . . . . 5 (𝜑𝐾 ∈ ℕ)
1716nnnn0d 11598 . . . 4 (𝜑𝐾 ∈ ℕ0)
1810, 17, 8vdwmc 15963 . . 3 (𝜑 → (𝐾 MonoAP 𝐹 ↔ ∃𝑔𝑎 ∈ ℕ ∃𝑑 ∈ ℕ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔})))
19 vdwlem9.g . . . . . . . . 9 (𝜑 → ∀𝑔 ∈ (𝑅𝑚 (1...𝑊))(⟨𝑀, 𝐾⟩ PolyAP 𝑔 ∨ (𝐾 + 1) MonoAP 𝑔))
2019adantr 472 . . . . . . . 8 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → ∀𝑔 ∈ (𝑅𝑚 (1...𝑊))(⟨𝑀, 𝐾⟩ PolyAP 𝑔 ∨ (𝐾 + 1) MonoAP 𝑔))
21 simprr 789 . . . . . . . . . . . 12 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))
2216adantr 472 . . . . . . . . . . . . 13 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝐾 ∈ ℕ)
23 simprll 797 . . . . . . . . . . . . 13 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑎 ∈ ℕ)
24 simprlr 798 . . . . . . . . . . . . 13 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑑 ∈ ℕ)
25 vdwapid1 15960 . . . . . . . . . . . . 13 ((𝐾 ∈ ℕ ∧ 𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) → 𝑎 ∈ (𝑎(AP‘𝐾)𝑑))
2622, 23, 24, 25syl3anc 1490 . . . . . . . . . . . 12 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑎 ∈ (𝑎(AP‘𝐾)𝑑))
2721, 26sseldd 3762 . . . . . . . . . . 11 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑎 ∈ (𝐹 “ {𝑔}))
288ffnd 6224 . . . . . . . . . . . . 13 (𝜑𝐹 Fn (1...𝑉))
2928adantr 472 . . . . . . . . . . . 12 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝐹 Fn (1...𝑉))
30 fniniseg 6528 . . . . . . . . . . . 12 (𝐹 Fn (1...𝑉) → (𝑎 ∈ (𝐹 “ {𝑔}) ↔ (𝑎 ∈ (1...𝑉) ∧ (𝐹𝑎) = 𝑔)))
3129, 30syl 17 . . . . . . . . . . 11 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑎 ∈ (𝐹 “ {𝑔}) ↔ (𝑎 ∈ (1...𝑉) ∧ (𝐹𝑎) = 𝑔)))
3227, 31mpbid 223 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑎 ∈ (1...𝑉) ∧ (𝐹𝑎) = 𝑔))
3332simprd 489 . . . . . . . . 9 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝐹𝑎) = 𝑔)
348adantr 472 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝐹:(1...𝑉)⟶(𝑅𝑚 (1...𝑊)))
3532simpld 488 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑎 ∈ (1...𝑉))
3634, 35ffvelrnd 6550 . . . . . . . . 9 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝐹𝑎) ∈ (𝑅𝑚 (1...𝑊)))
3733, 36eqeltrrd 2845 . . . . . . . 8 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑔 ∈ (𝑅𝑚 (1...𝑊)))
38 rsp 3076 . . . . . . . 8 (∀𝑔 ∈ (𝑅𝑚 (1...𝑊))(⟨𝑀, 𝐾⟩ PolyAP 𝑔 ∨ (𝐾 + 1) MonoAP 𝑔) → (𝑔 ∈ (𝑅𝑚 (1...𝑊)) → (⟨𝑀, 𝐾⟩ PolyAP 𝑔 ∨ (𝐾 + 1) MonoAP 𝑔)))
3920, 37, 38sylc 65 . . . . . . 7 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (⟨𝑀, 𝐾⟩ PolyAP 𝑔 ∨ (𝐾 + 1) MonoAP 𝑔))
403adantr 472 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑉 ∈ ℕ)
414adantr 472 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑊 ∈ ℕ)
425adantr 472 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑅 ∈ Fin)
436adantr 472 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝐻:(1...(𝑊 · (2 · 𝑉)))⟶𝑅)
44 vdwlem9.m . . . . . . . . . . 11 (𝜑𝑀 ∈ ℕ)
4544adantr 472 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑀 ∈ ℕ)
46 ovex 6874 . . . . . . . . . . . 12 (1...𝑊) ∈ V
47 elmapg 8073 . . . . . . . . . . . 12 ((𝑅 ∈ Fin ∧ (1...𝑊) ∈ V) → (𝑔 ∈ (𝑅𝑚 (1...𝑊)) ↔ 𝑔:(1...𝑊)⟶𝑅))
4842, 46, 47sylancl 580 . . . . . . . . . . 11 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑔 ∈ (𝑅𝑚 (1...𝑊)) ↔ 𝑔:(1...𝑊)⟶𝑅))
4937, 48mpbid 223 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑔:(1...𝑊)⟶𝑅)
5014adantr 472 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝐾 ∈ (ℤ‘2))
5140, 41, 42, 43, 7, 45, 49, 50, 23, 24, 21vdwlem7 15972 . . . . . . . . 9 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (⟨𝑀, 𝐾⟩ PolyAP 𝑔 → (⟨(𝑀 + 1), 𝐾⟩ PolyAP 𝐻 ∨ (𝐾 + 1) MonoAP 𝑔)))
52 olc 894 . . . . . . . . . 10 ((𝐾 + 1) MonoAP 𝑔 → (⟨(𝑀 + 1), 𝐾⟩ PolyAP 𝐻 ∨ (𝐾 + 1) MonoAP 𝑔))
5352a1i 11 . . . . . . . . 9 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → ((𝐾 + 1) MonoAP 𝑔 → (⟨(𝑀 + 1), 𝐾⟩ PolyAP 𝐻 ∨ (𝐾 + 1) MonoAP 𝑔)))
5451, 53jaod 885 . . . . . . . 8 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → ((⟨𝑀, 𝐾⟩ PolyAP 𝑔 ∨ (𝐾 + 1) MonoAP 𝑔) → (⟨(𝑀 + 1), 𝐾⟩ PolyAP 𝐻 ∨ (𝐾 + 1) MonoAP 𝑔)))
55 oveq1 6849 . . . . . . . . . . . . . . . . . . 19 (𝑥 = 𝑎 → (𝑥 − 1) = (𝑎 − 1))
5655oveq1d 6857 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑎 → ((𝑥 − 1) + 𝑉) = ((𝑎 − 1) + 𝑉))
5756oveq2d 6858 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝑎 → (𝑊 · ((𝑥 − 1) + 𝑉)) = (𝑊 · ((𝑎 − 1) + 𝑉)))
5857oveq2d 6858 . . . . . . . . . . . . . . . 16 (𝑥 = 𝑎 → (𝑦 + (𝑊 · ((𝑥 − 1) + 𝑉))) = (𝑦 + (𝑊 · ((𝑎 − 1) + 𝑉))))
5958fveq2d 6379 . . . . . . . . . . . . . . 15 (𝑥 = 𝑎 → (𝐻‘(𝑦 + (𝑊 · ((𝑥 − 1) + 𝑉)))) = (𝐻‘(𝑦 + (𝑊 · ((𝑎 − 1) + 𝑉)))))
6059mpteq2dv 4904 . . . . . . . . . . . . . 14 (𝑥 = 𝑎 → (𝑦 ∈ (1...𝑊) ↦ (𝐻‘(𝑦 + (𝑊 · ((𝑥 − 1) + 𝑉))))) = (𝑦 ∈ (1...𝑊) ↦ (𝐻‘(𝑦 + (𝑊 · ((𝑎 − 1) + 𝑉))))))
6146mptex 6679 . . . . . . . . . . . . . 14 (𝑦 ∈ (1...𝑊) ↦ (𝐻‘(𝑦 + (𝑊 · ((𝑎 − 1) + 𝑉))))) ∈ V
6260, 7, 61fvmpt 6471 . . . . . . . . . . . . 13 (𝑎 ∈ (1...𝑉) → (𝐹𝑎) = (𝑦 ∈ (1...𝑊) ↦ (𝐻‘(𝑦 + (𝑊 · ((𝑎 − 1) + 𝑉))))))
6335, 62syl 17 . . . . . . . . . . . 12 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝐹𝑎) = (𝑦 ∈ (1...𝑊) ↦ (𝐻‘(𝑦 + (𝑊 · ((𝑎 − 1) + 𝑉))))))
6463, 33eqtr3d 2801 . . . . . . . . . . 11 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑦 ∈ (1...𝑊) ↦ (𝐻‘(𝑦 + (𝑊 · ((𝑎 − 1) + 𝑉))))) = 𝑔)
6564breq2d 4821 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → ((𝐾 + 1) MonoAP (𝑦 ∈ (1...𝑊) ↦ (𝐻‘(𝑦 + (𝑊 · ((𝑎 − 1) + 𝑉))))) ↔ (𝐾 + 1) MonoAP 𝑔))
6617adantr 472 . . . . . . . . . . . 12 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝐾 ∈ ℕ0)
67 peano2nn0 11580 . . . . . . . . . . . 12 (𝐾 ∈ ℕ0 → (𝐾 + 1) ∈ ℕ0)
6866, 67syl 17 . . . . . . . . . . 11 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝐾 + 1) ∈ ℕ0)
69 nnm1nn0 11581 . . . . . . . . . . . . . 14 (𝑎 ∈ ℕ → (𝑎 − 1) ∈ ℕ0)
7023, 69syl 17 . . . . . . . . . . . . 13 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑎 − 1) ∈ ℕ0)
71 nn0nnaddcl 11571 . . . . . . . . . . . . 13 (((𝑎 − 1) ∈ ℕ0𝑉 ∈ ℕ) → ((𝑎 − 1) + 𝑉) ∈ ℕ)
7270, 40, 71syl2anc 579 . . . . . . . . . . . 12 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → ((𝑎 − 1) + 𝑉) ∈ ℕ)
7341, 72nnmulcld 11325 . . . . . . . . . . 11 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑊 · ((𝑎 − 1) + 𝑉)) ∈ ℕ)
7423, 40nnaddcld 11324 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑎 + 𝑉) ∈ ℕ)
7541, 74nnmulcld 11325 . . . . . . . . . . . . . 14 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑊 · (𝑎 + 𝑉)) ∈ ℕ)
7675nnzd 11728 . . . . . . . . . . . . 13 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑊 · (𝑎 + 𝑉)) ∈ ℤ)
77 2nn 11345 . . . . . . . . . . . . . . . . 17 2 ∈ ℕ
78 nnmulcl 11299 . . . . . . . . . . . . . . . . 17 ((2 ∈ ℕ ∧ 𝑉 ∈ ℕ) → (2 · 𝑉) ∈ ℕ)
7977, 3, 78sylancr 581 . . . . . . . . . . . . . . . 16 (𝜑 → (2 · 𝑉) ∈ ℕ)
804, 79nnmulcld 11325 . . . . . . . . . . . . . . 15 (𝜑 → (𝑊 · (2 · 𝑉)) ∈ ℕ)
8180nnzd 11728 . . . . . . . . . . . . . 14 (𝜑 → (𝑊 · (2 · 𝑉)) ∈ ℤ)
8281adantr 472 . . . . . . . . . . . . 13 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑊 · (2 · 𝑉)) ∈ ℤ)
8323nnred 11291 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑎 ∈ ℝ)
8440nnred 11291 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑉 ∈ ℝ)
85 elfzle2 12552 . . . . . . . . . . . . . . . . 17 (𝑎 ∈ (1...𝑉) → 𝑎𝑉)
8635, 85syl 17 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑎𝑉)
8783, 84, 84, 86leadd1dd 10895 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑎 + 𝑉) ≤ (𝑉 + 𝑉))
8840nncnd 11292 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑉 ∈ ℂ)
89882timesd 11521 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (2 · 𝑉) = (𝑉 + 𝑉))
9087, 89breqtrrd 4837 . . . . . . . . . . . . . 14 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑎 + 𝑉) ≤ (2 · 𝑉))
9174nnred 11291 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑎 + 𝑉) ∈ ℝ)
9279nnred 11291 . . . . . . . . . . . . . . . 16 (𝜑 → (2 · 𝑉) ∈ ℝ)
9392adantr 472 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (2 · 𝑉) ∈ ℝ)
9441nnred 11291 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑊 ∈ ℝ)
9541nngt0d 11321 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 0 < 𝑊)
96 lemul2 11130 . . . . . . . . . . . . . . 15 (((𝑎 + 𝑉) ∈ ℝ ∧ (2 · 𝑉) ∈ ℝ ∧ (𝑊 ∈ ℝ ∧ 0 < 𝑊)) → ((𝑎 + 𝑉) ≤ (2 · 𝑉) ↔ (𝑊 · (𝑎 + 𝑉)) ≤ (𝑊 · (2 · 𝑉))))
9791, 93, 94, 95, 96syl112anc 1493 . . . . . . . . . . . . . 14 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → ((𝑎 + 𝑉) ≤ (2 · 𝑉) ↔ (𝑊 · (𝑎 + 𝑉)) ≤ (𝑊 · (2 · 𝑉))))
9890, 97mpbid 223 . . . . . . . . . . . . 13 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑊 · (𝑎 + 𝑉)) ≤ (𝑊 · (2 · 𝑉)))
99 eluz2 11892 . . . . . . . . . . . . 13 ((𝑊 · (2 · 𝑉)) ∈ (ℤ‘(𝑊 · (𝑎 + 𝑉))) ↔ ((𝑊 · (𝑎 + 𝑉)) ∈ ℤ ∧ (𝑊 · (2 · 𝑉)) ∈ ℤ ∧ (𝑊 · (𝑎 + 𝑉)) ≤ (𝑊 · (2 · 𝑉))))
10076, 82, 98, 99syl3anbrc 1443 . . . . . . . . . . . 12 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑊 · (2 · 𝑉)) ∈ (ℤ‘(𝑊 · (𝑎 + 𝑉))))
10141nncnd 11292 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑊 ∈ ℂ)
102 1cnd 10288 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 1 ∈ ℂ)
10370nn0cnd 11600 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑎 − 1) ∈ ℂ)
104103, 88addcld 10313 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → ((𝑎 − 1) + 𝑉) ∈ ℂ)
105101, 102, 104adddid 10318 . . . . . . . . . . . . . 14 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑊 · (1 + ((𝑎 − 1) + 𝑉))) = ((𝑊 · 1) + (𝑊 · ((𝑎 − 1) + 𝑉))))
106102, 103, 88addassd 10316 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → ((1 + (𝑎 − 1)) + 𝑉) = (1 + ((𝑎 − 1) + 𝑉)))
107 ax-1cn 10247 . . . . . . . . . . . . . . . . . 18 1 ∈ ℂ
10823nncnd 11292 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → 𝑎 ∈ ℂ)
109 pncan3 10543 . . . . . . . . . . . . . . . . . 18 ((1 ∈ ℂ ∧ 𝑎 ∈ ℂ) → (1 + (𝑎 − 1)) = 𝑎)
110107, 108, 109sylancr 581 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (1 + (𝑎 − 1)) = 𝑎)
111110oveq1d 6857 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → ((1 + (𝑎 − 1)) + 𝑉) = (𝑎 + 𝑉))
112106, 111eqtr3d 2801 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (1 + ((𝑎 − 1) + 𝑉)) = (𝑎 + 𝑉))
113112oveq2d 6858 . . . . . . . . . . . . . 14 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑊 · (1 + ((𝑎 − 1) + 𝑉))) = (𝑊 · (𝑎 + 𝑉)))
114101mulid1d 10311 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑊 · 1) = 𝑊)
115114oveq1d 6857 . . . . . . . . . . . . . 14 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → ((𝑊 · 1) + (𝑊 · ((𝑎 − 1) + 𝑉))) = (𝑊 + (𝑊 · ((𝑎 − 1) + 𝑉))))
116105, 113, 1153eqtr3d 2807 . . . . . . . . . . . . 13 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑊 · (𝑎 + 𝑉)) = (𝑊 + (𝑊 · ((𝑎 − 1) + 𝑉))))
117116fveq2d 6379 . . . . . . . . . . . 12 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (ℤ‘(𝑊 · (𝑎 + 𝑉))) = (ℤ‘(𝑊 + (𝑊 · ((𝑎 − 1) + 𝑉)))))
118100, 117eleqtrd 2846 . . . . . . . . . . 11 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (𝑊 · (2 · 𝑉)) ∈ (ℤ‘(𝑊 + (𝑊 · ((𝑎 − 1) + 𝑉)))))
119 fvoveq1 6865 . . . . . . . . . . . 12 (𝑦 = 𝑧 → (𝐻‘(𝑦 + (𝑊 · ((𝑎 − 1) + 𝑉)))) = (𝐻‘(𝑧 + (𝑊 · ((𝑎 − 1) + 𝑉)))))
120119cbvmptv 4909 . . . . . . . . . . 11 (𝑦 ∈ (1...𝑊) ↦ (𝐻‘(𝑦 + (𝑊 · ((𝑎 − 1) + 𝑉))))) = (𝑧 ∈ (1...𝑊) ↦ (𝐻‘(𝑧 + (𝑊 · ((𝑎 − 1) + 𝑉)))))
12142, 68, 41, 73, 43, 118, 120vdwlem2 15967 . . . . . . . . . 10 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → ((𝐾 + 1) MonoAP (𝑦 ∈ (1...𝑊) ↦ (𝐻‘(𝑦 + (𝑊 · ((𝑎 − 1) + 𝑉))))) → (𝐾 + 1) MonoAP 𝐻))
12265, 121sylbird 251 . . . . . . . . 9 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → ((𝐾 + 1) MonoAP 𝑔 → (𝐾 + 1) MonoAP 𝐻))
123122orim2d 989 . . . . . . . 8 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → ((⟨(𝑀 + 1), 𝐾⟩ PolyAP 𝐻 ∨ (𝐾 + 1) MonoAP 𝑔) → (⟨(𝑀 + 1), 𝐾⟩ PolyAP 𝐻 ∨ (𝐾 + 1) MonoAP 𝐻)))
12454, 123syld 47 . . . . . . 7 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → ((⟨𝑀, 𝐾⟩ PolyAP 𝑔 ∨ (𝐾 + 1) MonoAP 𝑔) → (⟨(𝑀 + 1), 𝐾⟩ PolyAP 𝐻 ∨ (𝐾 + 1) MonoAP 𝐻)))
12539, 124mpd 15 . . . . . 6 ((𝜑 ∧ ((𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ) ∧ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}))) → (⟨(𝑀 + 1), 𝐾⟩ PolyAP 𝐻 ∨ (𝐾 + 1) MonoAP 𝐻))
126125expr 448 . . . . 5 ((𝜑 ∧ (𝑎 ∈ ℕ ∧ 𝑑 ∈ ℕ)) → ((𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}) → (⟨(𝑀 + 1), 𝐾⟩ PolyAP 𝐻 ∨ (𝐾 + 1) MonoAP 𝐻)))
127126rexlimdvva 3185 . . . 4 (𝜑 → (∃𝑎 ∈ ℕ ∃𝑑 ∈ ℕ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}) → (⟨(𝑀 + 1), 𝐾⟩ PolyAP 𝐻 ∨ (𝐾 + 1) MonoAP 𝐻)))
128127exlimdv 2028 . . 3 (𝜑 → (∃𝑔𝑎 ∈ ℕ ∃𝑑 ∈ ℕ (𝑎(AP‘𝐾)𝑑) ⊆ (𝐹 “ {𝑔}) → (⟨(𝑀 + 1), 𝐾⟩ PolyAP 𝐻 ∨ (𝐾 + 1) MonoAP 𝐻)))
12918, 128sylbid 231 . 2 (𝜑 → (𝐾 MonoAP 𝐹 → (⟨(𝑀 + 1), 𝐾⟩ PolyAP 𝐻 ∨ (𝐾 + 1) MonoAP 𝐻)))
13013, 129mpd 15 1 (𝜑 → (⟨(𝑀 + 1), 𝐾⟩ PolyAP 𝐻 ∨ (𝐾 + 1) MonoAP 𝐻))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 197  wa 384  wo 873   = wceq 1652  wex 1874  wcel 2155  wral 3055  wrex 3056  Vcvv 3350  wss 3732  {csn 4334  cop 4340   class class class wbr 4809  cmpt 4888  ccnv 5276  cima 5280   Fn wfn 6063  wf 6064  cfv 6068  (class class class)co 6842  𝑚 cmap 8060  Fincfn 8160  cc 10187  cr 10188  0cc0 10189  1c1 10190   + caddc 10192   · cmul 10194   < clt 10328  cle 10329  cmin 10520  cn 11274  2c2 11327  0cn0 11538  cz 11624  cuz 11886  ...cfz 12533  APcvdwa 15950   MonoAP cvdwm 15951   PolyAP cvdwp 15952
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2069  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2352  ax-ext 2743  ax-rep 4930  ax-sep 4941  ax-nul 4949  ax-pow 5001  ax-pr 5062  ax-un 7147  ax-cnex 10245  ax-resscn 10246  ax-1cn 10247  ax-icn 10248  ax-addcl 10249  ax-addrcl 10250  ax-mulcl 10251  ax-mulrcl 10252  ax-mulcom 10253  ax-addass 10254  ax-mulass 10255  ax-distr 10256  ax-i2m1 10257  ax-1ne0 10258  ax-1rid 10259  ax-rnegex 10260  ax-rrecex 10261  ax-cnre 10262  ax-pre-lttri 10263  ax-pre-lttrn 10264  ax-pre-ltadd 10265  ax-pre-mulgt0 10266
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3or 1108  df-3an 1109  df-tru 1656  df-ex 1875  df-nf 1879  df-sb 2062  df-mo 2565  df-eu 2582  df-clab 2752  df-cleq 2758  df-clel 2761  df-nfc 2896  df-ne 2938  df-nel 3041  df-ral 3060  df-rex 3061  df-reu 3062  df-rmo 3063  df-rab 3064  df-v 3352  df-sbc 3597  df-csb 3692  df-dif 3735  df-un 3737  df-in 3739  df-ss 3746  df-pss 3748  df-nul 4080  df-if 4244  df-pw 4317  df-sn 4335  df-pr 4337  df-tp 4339  df-op 4341  df-uni 4595  df-int 4634  df-iun 4678  df-br 4810  df-opab 4872  df-mpt 4889  df-tr 4912  df-id 5185  df-eprel 5190  df-po 5198  df-so 5199  df-fr 5236  df-we 5238  df-xp 5283  df-rel 5284  df-cnv 5285  df-co 5286  df-dm 5287  df-rn 5288  df-res 5289  df-ima 5290  df-pred 5865  df-ord 5911  df-on 5912  df-lim 5913  df-suc 5914  df-iota 6031  df-fun 6070  df-fn 6071  df-f 6072  df-f1 6073  df-fo 6074  df-f1o 6075  df-fv 6076  df-riota 6803  df-ov 6845  df-oprab 6846  df-mpt2 6847  df-om 7264  df-1st 7366  df-2nd 7367  df-wrecs 7610  df-recs 7672  df-rdg 7710  df-1o 7764  df-oadd 7768  df-er 7947  df-map 8062  df-en 8161  df-dom 8162  df-sdom 8163  df-fin 8164  df-card 9016  df-cda 9243  df-pnf 10330  df-mnf 10331  df-xr 10332  df-ltxr 10333  df-le 10334  df-sub 10522  df-neg 10523  df-nn 11275  df-2 11335  df-n0 11539  df-z 11625  df-uz 11887  df-rp 12029  df-fz 12534  df-hash 13322  df-vdwap 15953  df-vdwmc 15954  df-vdwpc 15955
This theorem is referenced by:  vdwlem10  15975
  Copyright terms: Public domain W3C validator