Theorem xmulf 13250

Description: The extended real multiplication operation is closed in extended reals. (Contributed by Mario Carneiro, 21-Aug-2015.)

Assertion

Ref	Expression
xmulf	⊢ ·e :(ℝ* × ℝ*)⟶ℝ*

Proof of Theorem xmulf

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

Step	Hyp	Ref	Expression
1		0xr 11260	. . . . 5 ⊢ 0 ∈ ℝ*
2	1	a1i 11	. . . 4 ⊢ (((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ (𝑥 = 0 ∨ 𝑦 = 0)) → 0 ∈ ℝ*)
3		pnfxr 11267	. . . . . 6 ⊢ +∞ ∈ ℝ*
4	3	a1i 11	. . . . 5 ⊢ ((((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) ∧ (((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)))) → +∞ ∈ ℝ*)
5		mnfxr 11270	. . . . . . 7 ⊢ -∞ ∈ ℝ*
6	5	a1i 11	. . . . . 6 ⊢ (((((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)))) ∧ (((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞)))) → -∞ ∈ ℝ*)
7		xmullem 13242	. . . . . . . 8 ⊢ (((((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)))) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞)))) → 𝑥 ∈ ℝ)
8		ancom 461	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ↔ (𝑦 ∈ ℝ* ∧ 𝑥 ∈ ℝ*))
9		orcom 868	. . . . . . . . . . . 12 ⊢ ((𝑥 = 0 ∨ 𝑦 = 0) ↔ (𝑦 = 0 ∨ 𝑥 = 0))
10	9	notbii 319	. . . . . . . . . . 11 ⊢ (¬ (𝑥 = 0 ∨ 𝑦 = 0) ↔ ¬ (𝑦 = 0 ∨ 𝑥 = 0))
11	8, 10	anbi12i 627	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) ↔ ((𝑦 ∈ ℝ* ∧ 𝑥 ∈ ℝ*) ∧ ¬ (𝑦 = 0 ∨ 𝑥 = 0)))
12		orcom 868	. . . . . . . . . . 11 ⊢ ((((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞))) ↔ (((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)) ∨ ((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞))))
13	12	notbii 319	. . . . . . . . . 10 ⊢ (¬ (((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞))) ↔ ¬ (((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)) ∨ ((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞))))
14	11, 13	anbi12i 627	. . . . . . . . 9 ⊢ ((((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)))) ↔ (((𝑦 ∈ ℝ* ∧ 𝑥 ∈ ℝ*) ∧ ¬ (𝑦 = 0 ∨ 𝑥 = 0)) ∧ ¬ (((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)) ∨ ((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)))))
15		orcom 868	. . . . . . . . . 10 ⊢ ((((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞))) ↔ (((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞)) ∨ ((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞))))
16	15	notbii 319	. . . . . . . . 9 ⊢ (¬ (((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞))) ↔ ¬ (((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞)) ∨ ((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞))))
17		xmullem 13242	. . . . . . . . 9 ⊢ (((((𝑦 ∈ ℝ* ∧ 𝑥 ∈ ℝ*) ∧ ¬ (𝑦 = 0 ∨ 𝑥 = 0)) ∧ ¬ (((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)) ∨ ((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)))) ∧ ¬ (((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞)) ∨ ((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)))) → 𝑦 ∈ ℝ)
18	14, 16, 17	syl2anb 598	. . . . . . . 8 ⊢ (((((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)))) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞)))) → 𝑦 ∈ ℝ)
19	7, 18	remulcld 11243	. . . . . . 7 ⊢ (((((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)))) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞)))) → (𝑥 · 𝑦) ∈ ℝ)
20	19	rexrd 11263	. . . . . 6 ⊢ (((((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)))) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞)))) → (𝑥 · 𝑦) ∈ ℝ*)
21	6, 20	ifclda 4563	. . . . 5 ⊢ ((((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)))) → if((((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞))), -∞, (𝑥 · 𝑦)) ∈ ℝ*)
22	4, 21	ifclda 4563	. . . 4 ⊢ (((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) → if((((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞))), +∞, if((((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞))), -∞, (𝑥 · 𝑦))) ∈ ℝ*)
23	2, 22	ifclda 4563	. . 3 ⊢ ((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) → if((𝑥 = 0 ∨ 𝑦 = 0), 0, if((((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞))), +∞, if((((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞))), -∞, (𝑥 · 𝑦)))) ∈ ℝ*)
24	23	rgen2 3197	. 2 ⊢ ∀𝑥 ∈ ℝ* ∀𝑦 ∈ ℝ* if((𝑥 = 0 ∨ 𝑦 = 0), 0, if((((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞))), +∞, if((((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞))), -∞, (𝑥 · 𝑦)))) ∈ ℝ*
25		df-xmul 13093	. . 3 ⊢ ·e = (𝑥 ∈ ℝ*, 𝑦 ∈ ℝ* ↦ if((𝑥 = 0 ∨ 𝑦 = 0), 0, if((((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞))), +∞, if((((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞))), -∞, (𝑥 · 𝑦)))))
26	25	fmpo 8053	. 2 ⊢ (∀𝑥 ∈ ℝ* ∀𝑦 ∈ ℝ* if((𝑥 = 0 ∨ 𝑦 = 0), 0, if((((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞))), +∞, if((((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞))), -∞, (𝑥 · 𝑦)))) ∈ ℝ* ↔ ·e :(ℝ* × ℝ*)⟶ℝ*)
27	24, 26	mpbi 229	1 ⊢ ·e :(ℝ* × ℝ*)⟶ℝ*

Syntax hints:  ¬ wn 3   ∧ wa 396   ∨ wo 845   = wceq 1541   ∈ wcel 2106  ∀wral 3061  ifcif 4528   class class class wbr 5148   × cxp 5674  ⟶wf 6539  (class class class)co 7408  ℝcr 11108  0cc0 11109   · cmul 11114  +∞cpnf 11244  -∞cmnf 11245  ℝ^*cxr 11246   < clt 11247   ·_e cxmu 13090

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 2703  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7724  ax-cnex 11165  ax-resscn 11166  ax-1cn 11167  ax-addrcl 11170  ax-mulrcl 11172  ax-rnegex 11180  ax-cnre 11182  ax-pre-lttri 11183  ax-pre-lttrn 11184

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rab 3433  df-v 3476  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-id 5574  df-po 5588  df-so 5589  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-oprab 7412  df-mpo 7413  df-1st 7974  df-2nd 7975  df-er 8702  df-en 8939  df-dom 8940  df-sdom 8941  df-pnf 11249  df-mnf 11250  df-xr 11251  df-ltxr 11252  df-xmul 13093

This theorem is referenced by:  xmulcl  13251  xrsmul  20962