Theorem hspval 47364

Description: The value of the half-space of n-dimensional Real numbers. (Contributed by Glauco Siliprandi, 24-Dec-2020.)

Hypotheses

Ref	Expression
hspval.h	⊢ 𝐻 = (𝑥 ∈ Fin ↦ (𝑖 ∈ 𝑥, 𝑦 ∈ ℝ ↦ X𝑘 ∈ 𝑥 if(𝑘 = 𝑖, (-∞(,)𝑦), ℝ)))
hspval.x	⊢ (𝜑 → 𝑋 ∈ Fin)
hspval.i	⊢ (𝜑 → 𝐼 ∈ 𝑋)
hspval.y	⊢ (𝜑 → 𝑌 ∈ ℝ)

Assertion

Ref	Expression
hspval	⊢ (𝜑 → (𝐼(𝐻‘𝑋)𝑌) = X𝑘 ∈ 𝑋 if(𝑘 = 𝐼, (-∞(,)𝑌), ℝ))

Distinct variable groups:   𝑖,𝐼,𝑘,𝑦   𝑖,𝑋,𝑘,𝑥,𝑦   𝑖,𝑌,𝑘,𝑦   𝜑,𝑖,𝑘,𝑥,𝑦

Allowed substitution hints:   𝐻(𝑥, 𝑦, 𝑖, 𝑘)   𝐼(𝑥)   𝑌(𝑥)

Proof of Theorem hspval

Step	Hyp	Ref	Expression
1		hspval.h	. . 3 ⊢ 𝐻 = (𝑥 ∈ Fin ↦ (𝑖 ∈ 𝑥, 𝑦 ∈ ℝ ↦ X𝑘 ∈ 𝑥 if(𝑘 = 𝑖, (-∞(,)𝑦), ℝ)))
2		id 23	. . . 4 ⊢ (𝑥 = 𝑋 → 𝑥 = 𝑋)
3		eqidd 2767	. . . 4 ⊢ (𝑥 = 𝑋 → ℝ = ℝ)
4		ixpeq1 8915	. . . 4 ⊢ (𝑥 = 𝑋 → X𝑘 ∈ 𝑥 if(𝑘 = 𝑖, (-∞(,)𝑦), ℝ) = X𝑘 ∈ 𝑋 if(𝑘 = 𝑖, (-∞(,)𝑦), ℝ))
5	2, 3, 4	mpoeq123dv 7498	. . 3 ⊢ (𝑥 = 𝑋 → (𝑖 ∈ 𝑥, 𝑦 ∈ ℝ ↦ X𝑘 ∈ 𝑥 if(𝑘 = 𝑖, (-∞(,)𝑦), ℝ)) = (𝑖 ∈ 𝑋, 𝑦 ∈ ℝ ↦ X𝑘 ∈ 𝑋 if(𝑘 = 𝑖, (-∞(,)𝑦), ℝ)))
6		hspval.x	. . 3 ⊢ (𝜑 → 𝑋 ∈ Fin)
7		reex 11209	. . . . 5 ⊢ ℝ ∈ V
8	7	a1i 11	. . . 4 ⊢ (𝜑 → ℝ ∈ V)
9		eqid 2766	. . . . 5 ⊢ (𝑖 ∈ 𝑋, 𝑦 ∈ ℝ ↦ X𝑘 ∈ 𝑋 if(𝑘 = 𝑖, (-∞(,)𝑦), ℝ)) = (𝑖 ∈ 𝑋, 𝑦 ∈ ℝ ↦ X𝑘 ∈ 𝑋 if(𝑘 = 𝑖, (-∞(,)𝑦), ℝ))
10	9	mpoexg 8082	. . . 4 ⊢ ((𝑋 ∈ Fin ∧ ℝ ∈ V) → (𝑖 ∈ 𝑋, 𝑦 ∈ ℝ ↦ X𝑘 ∈ 𝑋 if(𝑘 = 𝑖, (-∞(,)𝑦), ℝ)) ∈ V)
11	6, 8, 10	syl2anc 596	. . 3 ⊢ (𝜑 → (𝑖 ∈ 𝑋, 𝑦 ∈ ℝ ↦ X𝑘 ∈ 𝑋 if(𝑘 = 𝑖, (-∞(,)𝑦), ℝ)) ∈ V)
12	1, 5, 6, 11	fvmptd3 7020	. 2 ⊢ (𝜑 → (𝐻‘𝑋) = (𝑖 ∈ 𝑋, 𝑦 ∈ ℝ ↦ X𝑘 ∈ 𝑋 if(𝑘 = 𝑖, (-∞(,)𝑦), ℝ)))
13		simpl 488	. . . . . 6 ⊢ ((𝑖 = 𝐼 ∧ 𝑦 = 𝑌) → 𝑖 = 𝐼)
14	13	eqeq2d 2777	. . . . 5 ⊢ ((𝑖 = 𝐼 ∧ 𝑦 = 𝑌) → (𝑘 = 𝑖 ↔ 𝑘 = 𝐼))
15		simpr 490	. . . . . 6 ⊢ ((𝑖 = 𝐼 ∧ 𝑦 = 𝑌) → 𝑦 = 𝑌)
16	15	oveq2d 7439	. . . . 5 ⊢ ((𝑖 = 𝐼 ∧ 𝑦 = 𝑌) → (-∞(,)𝑦) = (-∞(,)𝑌))
17	14, 16	ifbieq1d 4517	. . . 4 ⊢ ((𝑖 = 𝐼 ∧ 𝑦 = 𝑌) → if(𝑘 = 𝑖, (-∞(,)𝑦), ℝ) = if(𝑘 = 𝐼, (-∞(,)𝑌), ℝ))
18	17	ixpeq2dv 8920	. . 3 ⊢ ((𝑖 = 𝐼 ∧ 𝑦 = 𝑌) → X𝑘 ∈ 𝑋 if(𝑘 = 𝑖, (-∞(,)𝑦), ℝ) = X𝑘 ∈ 𝑋 if(𝑘 = 𝐼, (-∞(,)𝑌), ℝ))
19	18	adantl 487	. 2 ⊢ ((𝜑 ∧ (𝑖 = 𝐼 ∧ 𝑦 = 𝑌)) → X𝑘 ∈ 𝑋 if(𝑘 = 𝑖, (-∞(,)𝑦), ℝ) = X𝑘 ∈ 𝑋 if(𝑘 = 𝐼, (-∞(,)𝑌), ℝ))
20		hspval.i	. 2 ⊢ (𝜑 → 𝐼 ∈ 𝑋)
21		hspval.y	. 2 ⊢ (𝜑 → 𝑌 ∈ ℝ)
22		ovex 7456	. . . . . 6 ⊢ (-∞(,)𝑌) ∈ V
23	22, 7	ifcli 4540	. . . . 5 ⊢ if(𝑘 = 𝐼, (-∞(,)𝑌), ℝ) ∈ V
24	23	a1i 11	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝑋) → if(𝑘 = 𝐼, (-∞(,)𝑌), ℝ) ∈ V)
25	24	ralrimiva 3160	. . 3 ⊢ (𝜑 → ∀𝑘 ∈ 𝑋 if(𝑘 = 𝐼, (-∞(,)𝑌), ℝ) ∈ V)
26		ixpexg 8929	. . 3 ⊢ (∀𝑘 ∈ 𝑋 if(𝑘 = 𝐼, (-∞(,)𝑌), ℝ) ∈ V → X𝑘 ∈ 𝑋 if(𝑘 = 𝐼, (-∞(,)𝑌), ℝ) ∈ V)
27	25, 26	syl 18	. 2 ⊢ (𝜑 → X𝑘 ∈ 𝑋 if(𝑘 = 𝐼, (-∞(,)𝑌), ℝ) ∈ V)
28	12, 19, 20, 21, 27	ovmpod 7575	1 ⊢ (𝜑 → (𝐼(𝐻‘𝑋)𝑌) = X𝑘 ∈ 𝑋 if(𝑘 = 𝐼, (-∞(,)𝑌), ℝ))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2146  ∀wral 3082  Vcvv 3458  ifcif 4492   ↦ cmpt 5197  ‘cfv 6543  (class class class)co 7423   ∈ cmpo 7425  Xcixp 8904  Fincfn 8952  ℝcr 11117  -∞cmnf 11259  (,)cioo 13390

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 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745  ax-cnex 11174  ax-resscn 11175

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 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-ral 3083  df-rex 3093  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-id 5561  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-ov 7426  df-oprab 7427  df-mpo 7428  df-1st 7995  df-2nd 7996  df-ixp 8905

This theorem is used by:  hspdifhsp  47371  hspmbllem2  47382  hspmbl  47384