Theorem mzpcl1 44006

Description: Defining property 1 of a polynomially closed function set 𝑃: it contains all constant functions. (Contributed by Stefan O'Rear, 4-Oct-2014.)

Assertion

Ref	Expression
mzpcl1	⊢ ((𝑃 ∈ (mzPolyCld‘𝑉) ∧ 𝐹 ∈ ℤ) → ((ℤ ↑m 𝑉) × {𝐹}) ∈ 𝑃)

Proof of Theorem mzpcl1

Dummy variables 𝑓 𝑔 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpr 490	. 2 ⊢ ((𝑃 ∈ (mzPolyCld‘𝑉) ∧ 𝐹 ∈ ℤ) → 𝐹 ∈ ℤ)
2		simpl 488	. . . 4 ⊢ ((𝑃 ∈ (mzPolyCld‘𝑉) ∧ 𝐹 ∈ ℤ) → 𝑃 ∈ (mzPolyCld‘𝑉))
3		elfvex 6951	. . . . . 6 ⊢ (𝑃 ∈ (mzPolyCld‘𝑉) → 𝑉 ∈ V)
4	3	adantr 486	. . . . 5 ⊢ ((𝑃 ∈ (mzPolyCld‘𝑉) ∧ 𝐹 ∈ ℤ) → 𝑉 ∈ V)
5		elmzpcl 44003	. . . . 5 ⊢ (𝑉 ∈ V → (𝑃 ∈ (mzPolyCld‘𝑉) ↔ (𝑃 ⊆ (ℤ ↑m (ℤ ↑m 𝑉)) ∧ ((∀𝑓 ∈ ℤ ((ℤ ↑m 𝑉) × {𝑓}) ∈ 𝑃 ∧ ∀𝑓 ∈ 𝑉 (𝑔 ∈ (ℤ ↑m 𝑉) ↦ (𝑔‘𝑓)) ∈ 𝑃) ∧ ∀𝑓 ∈ 𝑃 ∀𝑔 ∈ 𝑃 ((𝑓 ∘f + 𝑔) ∈ 𝑃 ∧ (𝑓 ∘f · 𝑔) ∈ 𝑃)))))
6	4, 5	syl 18	. . . 4 ⊢ ((𝑃 ∈ (mzPolyCld‘𝑉) ∧ 𝐹 ∈ ℤ) → (𝑃 ∈ (mzPolyCld‘𝑉) ↔ (𝑃 ⊆ (ℤ ↑m (ℤ ↑m 𝑉)) ∧ ((∀𝑓 ∈ ℤ ((ℤ ↑m 𝑉) × {𝑓}) ∈ 𝑃 ∧ ∀𝑓 ∈ 𝑉 (𝑔 ∈ (ℤ ↑m 𝑉) ↦ (𝑔‘𝑓)) ∈ 𝑃) ∧ ∀𝑓 ∈ 𝑃 ∀𝑔 ∈ 𝑃 ((𝑓 ∘f + 𝑔) ∈ 𝑃 ∧ (𝑓 ∘f · 𝑔) ∈ 𝑃)))))
7	2, 6	mpbid 235	. . 3 ⊢ ((𝑃 ∈ (mzPolyCld‘𝑉) ∧ 𝐹 ∈ ℤ) → (𝑃 ⊆ (ℤ ↑m (ℤ ↑m 𝑉)) ∧ ((∀𝑓 ∈ ℤ ((ℤ ↑m 𝑉) × {𝑓}) ∈ 𝑃 ∧ ∀𝑓 ∈ 𝑉 (𝑔 ∈ (ℤ ↑m 𝑉) ↦ (𝑔‘𝑓)) ∈ 𝑃) ∧ ∀𝑓 ∈ 𝑃 ∀𝑔 ∈ 𝑃 ((𝑓 ∘f + 𝑔) ∈ 𝑃 ∧ (𝑓 ∘f · 𝑔) ∈ 𝑃))))
8		simprll 791	. . 3 ⊢ ((𝑃 ⊆ (ℤ ↑m (ℤ ↑m 𝑉)) ∧ ((∀𝑓 ∈ ℤ ((ℤ ↑m 𝑉) × {𝑓}) ∈ 𝑃 ∧ ∀𝑓 ∈ 𝑉 (𝑔 ∈ (ℤ ↑m 𝑉) ↦ (𝑔‘𝑓)) ∈ 𝑃) ∧ ∀𝑓 ∈ 𝑃 ∀𝑔 ∈ 𝑃 ((𝑓 ∘f + 𝑔) ∈ 𝑃 ∧ (𝑓 ∘f · 𝑔) ∈ 𝑃))) → ∀𝑓 ∈ ℤ ((ℤ ↑m 𝑉) × {𝑓}) ∈ 𝑃)
9	7, 8	syl 18	. 2 ⊢ ((𝑃 ∈ (mzPolyCld‘𝑉) ∧ 𝐹 ∈ ℤ) → ∀𝑓 ∈ ℤ ((ℤ ↑m 𝑉) × {𝑓}) ∈ 𝑃)
10		sneq 4594	. . . . 5 ⊢ (𝑓 = 𝐹 → {𝑓} = {𝐹})
11	10	xpeq2d 5688	. . . 4 ⊢ (𝑓 = 𝐹 → ((ℤ ↑m 𝑉) × {𝑓}) = ((ℤ ↑m 𝑉) × {𝐹}))
12	11	eleq1d 2849	. . 3 ⊢ (𝑓 = 𝐹 → (((ℤ ↑m 𝑉) × {𝑓}) ∈ 𝑃 ↔ ((ℤ ↑m 𝑉) × {𝐹}) ∈ 𝑃))
13	12	rspcva 3578	. 2 ⊢ ((𝐹 ∈ ℤ ∧ ∀𝑓 ∈ ℤ ((ℤ ↑m 𝑉) × {𝑓}) ∈ 𝑃) → ((ℤ ↑m 𝑉) × {𝐹}) ∈ 𝑃)
14	1, 9, 13	syl2anc 596	1 ⊢ ((𝑃 ∈ (mzPolyCld‘𝑉) ∧ 𝐹 ∈ ℤ) → ((ℤ ↑m 𝑉) × {𝐹}) ∈ 𝑃)

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2147  ∀wral 3080  Vcvv 3454   ⊆ wss 3900  {csn 4588   ↦ cmpt 5192   × cxp 5656  ‘cfv 6566  (class class class)co 7451   ∘_f cof 7723   ↑_m cmap 8885   + caddc 11242   · cmul 11244  ℤcz 12733  mzPolyCldcmzpcl 43998

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-sep 5255  ax-nul 5266  ax-pow 5334  ax-pr 5398

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3081  df-rex 3091  df-rab 3417  df-v 3456  df-ss 3901  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4841  df-uni 4873  df-br 5109  df-opab 5174  df-mpt 5193  df-id 5553  df-xp 5664  df-rel 5665  df-cnv 5666  df-co 5667  df-dm 5668  df-iota 6520  df-fun 6568  df-fv 6574  df-ov 7454  df-mzpcl 44000

This theorem is used by:  mzpincl  44011  mzpconst  44012