Theorem psrbas 22065

Description: The base set of the multivariate power series structure. (Contributed by Mario Carneiro, 28-Dec-2014.) (Revised by Mario Carneiro, 2-Oct-2015.) (Proof shortened by AV, 8-Jul-2019.)

Hypotheses

Ref	Expression
psrbas.s	⊢ 𝑆 = (𝐼 mPwSer 𝑅)
psrbas.k	⊢ 𝐾 = (Base‘𝑅)
psrbas.d	⊢ 𝐷 = {𝑓 ∈ (ℕ0 ↑m 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin}
psrbas.b	⊢ 𝐵 = (Base‘𝑆)
psrbas.i	⊢ (𝜑 → 𝐼 ∈ 𝑉)

Assertion

Ref	Expression
psrbas	⊢ (𝜑 → 𝐵 = (𝐾 ↑m 𝐷))

Distinct variable group:   𝑓,𝐼

Allowed substitution hints:   𝜑(𝑓)   𝐵(𝑓)   𝐷(𝑓)   𝑅(𝑓)   𝑆(𝑓)   𝐾(𝑓)   𝑉(𝑓)

Proof of Theorem psrbas

Dummy variables 𝑔 ℎ 𝑘 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		psrbas.s	. . . . 5 ⊢ 𝑆 = (𝐼 mPwSer 𝑅)
2		psrbas.k	. . . . 5 ⊢ 𝐾 = (Base‘𝑅)
3		eqid 2763	. . . . 5 ⊢ (+g‘𝑅) = (+g‘𝑅)
4		eqid 2763	. . . . 5 ⊢ (.r‘𝑅) = (.r‘𝑅)
5		eqid 2763	. . . . 5 ⊢ (TopOpen‘𝑅) = (TopOpen‘𝑅)
6		psrbas.d	. . . . 5 ⊢ 𝐷 = {𝑓 ∈ (ℕ0 ↑m 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin}
7		eqidd 2764	. . . . 5 ⊢ ((𝜑 ∧ 𝑅 ∈ V) → (𝐾 ↑m 𝐷) = (𝐾 ↑m 𝐷))
8		eqid 2763	. . . . 5 ⊢ ( ∘f (+g‘𝑅) ↾ ((𝐾 ↑m 𝐷) × (𝐾 ↑m 𝐷))) = ( ∘f (+g‘𝑅) ↾ ((𝐾 ↑m 𝐷) × (𝐾 ↑m 𝐷)))
9		eqid 2763	. . . . 5 ⊢ (𝑔 ∈ (𝐾 ↑m 𝐷), ℎ ∈ (𝐾 ↑m 𝐷) ↦ (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑔‘𝑥)(.r‘𝑅)(ℎ‘(𝑘 ∘f − 𝑥))))))) = (𝑔 ∈ (𝐾 ↑m 𝐷), ℎ ∈ (𝐾 ↑m 𝐷) ↦ (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑔‘𝑥)(.r‘𝑅)(ℎ‘(𝑘 ∘f − 𝑥)))))))
10		eqid 2763	. . . . 5 ⊢ (𝑥 ∈ 𝐾, 𝑔 ∈ (𝐾 ↑m 𝐷) ↦ ((𝐷 × {𝑥}) ∘f (.r‘𝑅)𝑔)) = (𝑥 ∈ 𝐾, 𝑔 ∈ (𝐾 ↑m 𝐷) ↦ ((𝐷 × {𝑥}) ∘f (.r‘𝑅)𝑔))
11		eqidd 2764	. . . . 5 ⊢ ((𝜑 ∧ 𝑅 ∈ V) → (∏t‘(𝐷 × {(TopOpen‘𝑅)})) = (∏t‘(𝐷 × {(TopOpen‘𝑅)})))
12		psrbas.i	. . . . . 6 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
13	12	adantr 485	. . . . 5 ⊢ ((𝜑 ∧ 𝑅 ∈ V) → 𝐼 ∈ 𝑉)
14		simpr 489	. . . . 5 ⊢ ((𝜑 ∧ 𝑅 ∈ V) → 𝑅 ∈ V)
15	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14	psrval 22046	. . . 4 ⊢ ((𝜑 ∧ 𝑅 ∈ V) → 𝑆 = ({⟨(Base‘ndx), (𝐾 ↑m 𝐷)⟩, ⟨(+g‘ndx), ( ∘f (+g‘𝑅) ↾ ((𝐾 ↑m 𝐷) × (𝐾 ↑m 𝐷)))⟩, ⟨(.r‘ndx), (𝑔 ∈ (𝐾 ↑m 𝐷), ℎ ∈ (𝐾 ↑m 𝐷) ↦ (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑔‘𝑥)(.r‘𝑅)(ℎ‘(𝑘 ∘f − 𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ 𝐾, 𝑔 ∈ (𝐾 ↑m 𝐷) ↦ ((𝐷 × {𝑥}) ∘f (.r‘𝑅)𝑔))⟩, ⟨(TopSet‘ndx), (∏t‘(𝐷 × {(TopOpen‘𝑅)}))⟩}))
16	15	fveq2d 6887	. . 3 ⊢ ((𝜑 ∧ 𝑅 ∈ V) → (Base‘𝑆) = (Base‘({⟨(Base‘ndx), (𝐾 ↑m 𝐷)⟩, ⟨(+g‘ndx), ( ∘f (+g‘𝑅) ↾ ((𝐾 ↑m 𝐷) × (𝐾 ↑m 𝐷)))⟩, ⟨(.r‘ndx), (𝑔 ∈ (𝐾 ↑m 𝐷), ℎ ∈ (𝐾 ↑m 𝐷) ↦ (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑔‘𝑥)(.r‘𝑅)(ℎ‘(𝑘 ∘f − 𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ 𝐾, 𝑔 ∈ (𝐾 ↑m 𝐷) ↦ ((𝐷 × {𝑥}) ∘f (.r‘𝑅)𝑔))⟩, ⟨(TopSet‘ndx), (∏t‘(𝐷 × {(TopOpen‘𝑅)}))⟩})))
17		psrbas.b	. . 3 ⊢ 𝐵 = (Base‘𝑆)
18		ovex 7445	. . . 4 ⊢ (𝐾 ↑m 𝐷) ∈ V
19		psrvalstr 22047	. . . . 5 ⊢ ({⟨(Base‘ndx), (𝐾 ↑m 𝐷)⟩, ⟨(+g‘ndx), ( ∘f (+g‘𝑅) ↾ ((𝐾 ↑m 𝐷) × (𝐾 ↑m 𝐷)))⟩, ⟨(.r‘ndx), (𝑔 ∈ (𝐾 ↑m 𝐷), ℎ ∈ (𝐾 ↑m 𝐷) ↦ (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑔‘𝑥)(.r‘𝑅)(ℎ‘(𝑘 ∘f − 𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ 𝐾, 𝑔 ∈ (𝐾 ↑m 𝐷) ↦ ((𝐷 × {𝑥}) ∘f (.r‘𝑅)𝑔))⟩, ⟨(TopSet‘ndx), (∏t‘(𝐷 × {(TopOpen‘𝑅)}))⟩}) Struct ⟨1, 9⟩
20		baseid 17273	. . . . 5 ⊢ Base = Slot (Base‘ndx)
21		snsstp1 4783	. . . . . 6 ⊢ {⟨(Base‘ndx), (𝐾 ↑m 𝐷)⟩} ⊆ {⟨(Base‘ndx), (𝐾 ↑m 𝐷)⟩, ⟨(+g‘ndx), ( ∘f (+g‘𝑅) ↾ ((𝐾 ↑m 𝐷) × (𝐾 ↑m 𝐷)))⟩, ⟨(.r‘ndx), (𝑔 ∈ (𝐾 ↑m 𝐷), ℎ ∈ (𝐾 ↑m 𝐷) ↦ (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑔‘𝑥)(.r‘𝑅)(ℎ‘(𝑘 ∘f − 𝑥)))))))⟩}
22		ssun1 4132	. . . . . 6 ⊢ {⟨(Base‘ndx), (𝐾 ↑m 𝐷)⟩, ⟨(+g‘ndx), ( ∘f (+g‘𝑅) ↾ ((𝐾 ↑m 𝐷) × (𝐾 ↑m 𝐷)))⟩, ⟨(.r‘ndx), (𝑔 ∈ (𝐾 ↑m 𝐷), ℎ ∈ (𝐾 ↑m 𝐷) ↦ (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑔‘𝑥)(.r‘𝑅)(ℎ‘(𝑘 ∘f − 𝑥)))))))⟩} ⊆ ({⟨(Base‘ndx), (𝐾 ↑m 𝐷)⟩, ⟨(+g‘ndx), ( ∘f (+g‘𝑅) ↾ ((𝐾 ↑m 𝐷) × (𝐾 ↑m 𝐷)))⟩, ⟨(.r‘ndx), (𝑔 ∈ (𝐾 ↑m 𝐷), ℎ ∈ (𝐾 ↑m 𝐷) ↦ (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑔‘𝑥)(.r‘𝑅)(ℎ‘(𝑘 ∘f − 𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ 𝐾, 𝑔 ∈ (𝐾 ↑m 𝐷) ↦ ((𝐷 × {𝑥}) ∘f (.r‘𝑅)𝑔))⟩, ⟨(TopSet‘ndx), (∏t‘(𝐷 × {(TopOpen‘𝑅)}))⟩})
23	21, 22	sstri 3947	. . . . 5 ⊢ {⟨(Base‘ndx), (𝐾 ↑m 𝐷)⟩} ⊆ ({⟨(Base‘ndx), (𝐾 ↑m 𝐷)⟩, ⟨(+g‘ndx), ( ∘f (+g‘𝑅) ↾ ((𝐾 ↑m 𝐷) × (𝐾 ↑m 𝐷)))⟩, ⟨(.r‘ndx), (𝑔 ∈ (𝐾 ↑m 𝐷), ℎ ∈ (𝐾 ↑m 𝐷) ↦ (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑔‘𝑥)(.r‘𝑅)(ℎ‘(𝑘 ∘f − 𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ 𝐾, 𝑔 ∈ (𝐾 ↑m 𝐷) ↦ ((𝐷 × {𝑥}) ∘f (.r‘𝑅)𝑔))⟩, ⟨(TopSet‘ndx), (∏t‘(𝐷 × {(TopOpen‘𝑅)}))⟩})
24	19, 20, 23	strfv 17264	. . . 4 ⊢ ((𝐾 ↑m 𝐷) ∈ V → (𝐾 ↑m 𝐷) = (Base‘({⟨(Base‘ndx), (𝐾 ↑m 𝐷)⟩, ⟨(+g‘ndx), ( ∘f (+g‘𝑅) ↾ ((𝐾 ↑m 𝐷) × (𝐾 ↑m 𝐷)))⟩, ⟨(.r‘ndx), (𝑔 ∈ (𝐾 ↑m 𝐷), ℎ ∈ (𝐾 ↑m 𝐷) ↦ (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑔‘𝑥)(.r‘𝑅)(ℎ‘(𝑘 ∘f − 𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ 𝐾, 𝑔 ∈ (𝐾 ↑m 𝐷) ↦ ((𝐷 × {𝑥}) ∘f (.r‘𝑅)𝑔))⟩, ⟨(TopSet‘ndx), (∏t‘(𝐷 × {(TopOpen‘𝑅)}))⟩})))
25	18, 24	ax-mp 5	. . 3 ⊢ (𝐾 ↑m 𝐷) = (Base‘({⟨(Base‘ndx), (𝐾 ↑m 𝐷)⟩, ⟨(+g‘ndx), ( ∘f (+g‘𝑅) ↾ ((𝐾 ↑m 𝐷) × (𝐾 ↑m 𝐷)))⟩, ⟨(.r‘ndx), (𝑔 ∈ (𝐾 ↑m 𝐷), ℎ ∈ (𝐾 ↑m 𝐷) ↦ (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑔‘𝑥)(.r‘𝑅)(ℎ‘(𝑘 ∘f − 𝑥)))))))⟩} ∪ {⟨(Scalar‘ndx), 𝑅⟩, ⟨( ·𝑠 ‘ndx), (𝑥 ∈ 𝐾, 𝑔 ∈ (𝐾 ↑m 𝐷) ↦ ((𝐷 × {𝑥}) ∘f (.r‘𝑅)𝑔))⟩, ⟨(TopSet‘ndx), (∏t‘(𝐷 × {(TopOpen‘𝑅)}))⟩}))
26	16, 17, 25	3eqtr4g 2823	. 2 ⊢ ((𝜑 ∧ 𝑅 ∈ V) → 𝐵 = (𝐾 ↑m 𝐷))
27		reldmpsr 22045	. . . . . . . 8 ⊢ Rel dom mPwSer
28	27	ovprc2 7452	. . . . . . 7 ⊢ (¬ 𝑅 ∈ V → (𝐼 mPwSer 𝑅) = ∅)
29	28	adantl 486	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 𝑅 ∈ V) → (𝐼 mPwSer 𝑅) = ∅)
30	1, 29	eqtrid 2810	. . . . 5 ⊢ ((𝜑 ∧ ¬ 𝑅 ∈ V) → 𝑆 = ∅)
31	30	fveq2d 6887	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝑅 ∈ V) → (Base‘𝑆) = (Base‘∅))
32		base0 17275	. . . 4 ⊢ ∅ = (Base‘∅)
33	31, 17, 32	3eqtr4g 2823	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑅 ∈ V) → 𝐵 = ∅)
34		fvprc 6875	. . . . . 6 ⊢ (¬ 𝑅 ∈ V → (Base‘𝑅) = ∅)
35	34	adantl 486	. . . . 5 ⊢ ((𝜑 ∧ ¬ 𝑅 ∈ V) → (Base‘𝑅) = ∅)
36	2, 35	eqtrid 2810	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝑅 ∈ V) → 𝐾 = ∅)
37	6	fczpsrbag 22052	. . . . . . 7 ⊢ (𝐼 ∈ 𝑉 → (𝑥 ∈ 𝐼 ↦ 0) ∈ 𝐷)
38	12, 37	syl 18	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝐼 ↦ 0) ∈ 𝐷)
39	38	adantr 485	. . . . 5 ⊢ ((𝜑 ∧ ¬ 𝑅 ∈ V) → (𝑥 ∈ 𝐼 ↦ 0) ∈ 𝐷)
40	39	ne0d 4296	. . . 4 ⊢ ((𝜑 ∧ ¬ 𝑅 ∈ V) → 𝐷 ≠ ∅)
41	2	fvexi 6897	. . . . 5 ⊢ 𝐾 ∈ V
42		ovex 7445	. . . . . 6 ⊢ (ℕ0 ↑m 𝐼) ∈ V
43	6, 42	rabex2 5313	. . . . 5 ⊢ 𝐷 ∈ V
44	41, 43	map0 8886	. . . 4 ⊢ ((𝐾 ↑m 𝐷) = ∅ ↔ (𝐾 = ∅ ∧ 𝐷 ≠ ∅))
45	36, 40, 44	sylanbrc 594	. . 3 ⊢ ((𝜑 ∧ ¬ 𝑅 ∈ V) → (𝐾 ↑m 𝐷) = ∅)
46	33, 45	eqtr4d 2801	. 2 ⊢ ((𝜑 ∧ ¬ 𝑅 ∈ V) → 𝐵 = (𝐾 ↑m 𝐷))
47	26, 46	pm2.61dan 824	1 ⊢ (𝜑 → 𝐵 = (𝐾 ↑m 𝐷))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 400   = wceq 1570   ∈ wcel 2143   ≠ wne 2958  {crab 3416  Vcvv 3455   ∪ cun 3904  ∅c0 4287  {csn 4590  {ctp 4594  ⟨cop 4596   class class class wbr 5110   ↦ cmpt 5193   × cxp 5661  ^◡ccnv 5662   ↾ cres 5665   “ cima 5666  ‘cfv 6538  (class class class)co 7412   ∈ cmpo 7414   ∘_f cof 7674   ∘_r cofr 7675   ↑_m cmap 8825  Fincfn 8944  0cc0 11101  1c1 11102   ≤ cle 11245   − cmin 11442  ℕcn 12234  9c9 12303  ℕ₀cn0 12505  ndxcnx 17254  Basecbs 17270  +_gcplusg 17311  ._rcmulr 17312  Scalarcsca 17314   ·_𝑠 cvsca 17315  TopSetcts 17317  TopOpenctopn 17475  ∏_tcpt 17492   Σ_g cgsu 17494   mPwSer cmps 22035

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5239  ax-sep 5258  ax-nul 5270  ax-pow 5338  ax-pr 5406  ax-un 7734  ax-cnex 11157  ax-resscn 11158  ax-1cn 11159  ax-icn 11160  ax-addcl 11161  ax-addrcl 11162  ax-mulcl 11163  ax-mulrcl 11164  ax-mulcom 11165  ax-addass 11166  ax-mulass 11167  ax-distr 11168  ax-i2m1 11169  ax-1ne0 11170  ax-1rid 11171  ax-rnegex 11172  ax-rrecex 11173  ax-cnre 11174  ax-pre-lttri 11175  ax-pre-lttrn 11176  ax-pre-ltadd 11177  ax-pre-mulgt0 11178

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3746  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4288  df-if 4489  df-pw 4565  df-sn 4591  df-pr 4593  df-tp 4595  df-op 4597  df-uni 4874  df-iun 4959  df-br 5111  df-opab 5175  df-mpt 5194  df-tr 5220  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-riota 7369  df-ov 7415  df-oprab 7416  df-mpo 7417  df-of 7676  df-om 7864  df-1st 7987  df-2nd 7988  df-supp 8158  df-frecs 8279  df-wrecs 8310  df-recs 8359  df-rdg 8398  df-1o 8454  df-er 8695  df-map 8827  df-en 8945  df-dom 8946  df-sdom 8947  df-fin 8948  df-fsupp 9323  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11444  df-neg 11445  df-nn 12235  df-2 12304  df-3 12305  df-4 12306  df-5 12307  df-6 12308  df-7 12309  df-8 12310  df-9 12311  df-n0 12506  df-z 12593  df-uz 12864  df-fz 13537  df-struct 17208  df-slot 17243  df-ndx 17255  df-base 17271  df-plusg 17324  df-mulr 17325  df-sca 17327  df-vsca 17328  df-tset 17330  df-psr 22040

This theorem is referenced by:  psrelbas  22066  psrplusg  22068  psraddcl  22070  psrmulr  22073  psrmulcllem  22076  psrsca  22078  psrvscafval  22079  psrvscacl  22082  psr0cl  22083  psrnegcl  22085  psrgrp  22087  psr1cl  22091  resspsrbas  22104  resspsradd  22105  resspsrmul  22106  subrgpsr  22108  mvrf  22115  mplmon  22167  mplcoe1  22169  opsrtoslem2  22188  mhmcompl  22253  psdcl  22305  psr1bas  22332  psrbaspropd  22375  ply1plusgfvi  22382  fply1  33829  0mplrim  33885  selvply1rhmlema  33889  selvply1rhmlem1  33891  extvfvcl  33907  mplvrpmga  33916  psrmon  33920  psrmonprod  33923  mplmonprod  33925  esplympl  33938  psrmnd  43294  mhmcopsr  43295  evlsbagval  43301  mhpind  43309