Theorem mzpcl1 41038

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 485	. 2 ⊢ ((𝑃 ∈ (mzPolyCld‘𝑉) ∧ 𝐹 ∈ ℤ) → 𝐹 ∈ ℤ)
2		simpl 483	. . . 4 ⊢ ((𝑃 ∈ (mzPolyCld‘𝑉) ∧ 𝐹 ∈ ℤ) → 𝑃 ∈ (mzPolyCld‘𝑉))
3		elfvex 6880	. . . . . 6 ⊢ (𝑃 ∈ (mzPolyCld‘𝑉) → 𝑉 ∈ V)
4	3	adantr 481	. . . . 5 ⊢ ((𝑃 ∈ (mzPolyCld‘𝑉) ∧ 𝐹 ∈ ℤ) → 𝑉 ∈ V)
5		elmzpcl 41035	. . . . 5 ⊢ (𝑉 ∈ V → (𝑃 ∈ (mzPolyCld‘𝑉) ↔ (𝑃 ⊆ (ℤ ↑m (ℤ ↑m 𝑉)) ∧ ((∀𝑓 ∈ ℤ ((ℤ ↑m 𝑉) × {𝑓}) ∈ 𝑃 ∧ ∀𝑓 ∈ 𝑉 (𝑔 ∈ (ℤ ↑m 𝑉) ↦ (𝑔‘𝑓)) ∈ 𝑃) ∧ ∀𝑓 ∈ 𝑃 ∀𝑔 ∈ 𝑃 ((𝑓 ∘f + 𝑔) ∈ 𝑃 ∧ (𝑓 ∘f · 𝑔) ∈ 𝑃)))))
6	4, 5	syl 17	. . . 4 ⊢ ((𝑃 ∈ (mzPolyCld‘𝑉) ∧ 𝐹 ∈ ℤ) → (𝑃 ∈ (mzPolyCld‘𝑉) ↔ (𝑃 ⊆ (ℤ ↑m (ℤ ↑m 𝑉)) ∧ ((∀𝑓 ∈ ℤ ((ℤ ↑m 𝑉) × {𝑓}) ∈ 𝑃 ∧ ∀𝑓 ∈ 𝑉 (𝑔 ∈ (ℤ ↑m 𝑉) ↦ (𝑔‘𝑓)) ∈ 𝑃) ∧ ∀𝑓 ∈ 𝑃 ∀𝑔 ∈ 𝑃 ((𝑓 ∘f + 𝑔) ∈ 𝑃 ∧ (𝑓 ∘f · 𝑔) ∈ 𝑃)))))
7	2, 6	mpbid 231	. . 3 ⊢ ((𝑃 ∈ (mzPolyCld‘𝑉) ∧ 𝐹 ∈ ℤ) → (𝑃 ⊆ (ℤ ↑m (ℤ ↑m 𝑉)) ∧ ((∀𝑓 ∈ ℤ ((ℤ ↑m 𝑉) × {𝑓}) ∈ 𝑃 ∧ ∀𝑓 ∈ 𝑉 (𝑔 ∈ (ℤ ↑m 𝑉) ↦ (𝑔‘𝑓)) ∈ 𝑃) ∧ ∀𝑓 ∈ 𝑃 ∀𝑔 ∈ 𝑃 ((𝑓 ∘f + 𝑔) ∈ 𝑃 ∧ (𝑓 ∘f · 𝑔) ∈ 𝑃))))
8		simprll 777	. . 3 ⊢ ((𝑃 ⊆ (ℤ ↑m (ℤ ↑m 𝑉)) ∧ ((∀𝑓 ∈ ℤ ((ℤ ↑m 𝑉) × {𝑓}) ∈ 𝑃 ∧ ∀𝑓 ∈ 𝑉 (𝑔 ∈ (ℤ ↑m 𝑉) ↦ (𝑔‘𝑓)) ∈ 𝑃) ∧ ∀𝑓 ∈ 𝑃 ∀𝑔 ∈ 𝑃 ((𝑓 ∘f + 𝑔) ∈ 𝑃 ∧ (𝑓 ∘f · 𝑔) ∈ 𝑃))) → ∀𝑓 ∈ ℤ ((ℤ ↑m 𝑉) × {𝑓}) ∈ 𝑃)
9	7, 8	syl 17	. 2 ⊢ ((𝑃 ∈ (mzPolyCld‘𝑉) ∧ 𝐹 ∈ ℤ) → ∀𝑓 ∈ ℤ ((ℤ ↑m 𝑉) × {𝑓}) ∈ 𝑃)
10		sneq 4596	. . . . 5 ⊢ (𝑓 = 𝐹 → {𝑓} = {𝐹})
11	10	xpeq2d 5663	. . . 4 ⊢ (𝑓 = 𝐹 → ((ℤ ↑m 𝑉) × {𝑓}) = ((ℤ ↑m 𝑉) × {𝐹}))
12	11	eleq1d 2822	. . 3 ⊢ (𝑓 = 𝐹 → (((ℤ ↑m 𝑉) × {𝑓}) ∈ 𝑃 ↔ ((ℤ ↑m 𝑉) × {𝐹}) ∈ 𝑃))
13	12	rspcva 3579	. 2 ⊢ ((𝐹 ∈ ℤ ∧ ∀𝑓 ∈ ℤ ((ℤ ↑m 𝑉) × {𝑓}) ∈ 𝑃) → ((ℤ ↑m 𝑉) × {𝐹}) ∈ 𝑃)
14	1, 9, 13	syl2anc 584	1 ⊢ ((𝑃 ∈ (mzPolyCld‘𝑉) ∧ 𝐹 ∈ ℤ) → ((ℤ ↑m 𝑉) × {𝐹}) ∈ 𝑃)

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   = wceq 1541   ∈ wcel 2106  ∀wral 3064  Vcvv 3445   ⊆ wss 3910  {csn 4586   ↦ cmpt 5188   × cxp 5631  ‘cfv 6496  (class class class)co 7357   ∘_f cof 7615   ↑_m cmap 8765   + caddc 11054   · cmul 11056  ℤcz 12499  mzPolyCldcmzpcl 41030

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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-ral 3065  df-rex 3074  df-rab 3408  df-v 3447  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-op 4593  df-uni 4866  df-br 5106  df-opab 5168  df-mpt 5189  df-id 5531  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-iota 6448  df-fun 6498  df-fv 6504  df-ov 7360  df-mzpcl 41032

This theorem is referenced by:  mzpincl  41043  mzpconst  41044