Theorem xmulf 13305

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 11311	. . . . 5 ⊢ 0 ∈ ℝ*
2	1	a1i 11	. . . 4 ⊢ (((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ (𝑥 = 0 ∨ 𝑦 = 0)) → 0 ∈ ℝ*)
3		pnfxr 11318	. . . . . 6 ⊢ +∞ ∈ ℝ*
4	3	a1i 11	. . . . 5 ⊢ ((((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) ∧ (((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)))) → +∞ ∈ ℝ*)
5		mnfxr 11321	. . . . . . 7 ⊢ -∞ ∈ ℝ*
6	5	a1i 11	. . . . . 6 ⊢ (((((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)))) ∧ (((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞)))) → -∞ ∈ ℝ*)
7		xmullem 13297	. . . . . . . 8 ⊢ (((((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)))) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞)))) → 𝑥 ∈ ℝ)
8		ancom 459	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ↔ (𝑦 ∈ ℝ* ∧ 𝑥 ∈ ℝ*))
9		orcom 868	. . . . . . . . . . . 12 ⊢ ((𝑥 = 0 ∨ 𝑦 = 0) ↔ (𝑦 = 0 ∨ 𝑥 = 0))
10	9	notbii 319	. . . . . . . . . . 11 ⊢ (¬ (𝑥 = 0 ∨ 𝑦 = 0) ↔ ¬ (𝑦 = 0 ∨ 𝑥 = 0))
11	8, 10	anbi12i 626	. . . . . . . . . 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 626	. . . . . . . . 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 13297	. . . . . . . . 9 ⊢ (((((𝑦 ∈ ℝ* ∧ 𝑥 ∈ ℝ*) ∧ ¬ (𝑦 = 0 ∨ 𝑥 = 0)) ∧ ¬ (((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)) ∨ ((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)))) ∧ ¬ (((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞)) ∨ ((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)))) → 𝑦 ∈ ℝ)
18	14, 16, 17	syl2anb 596	. . . . . . . 8 ⊢ (((((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)))) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞)))) → 𝑦 ∈ ℝ)
19	7, 18	remulcld 11294	. . . . . . 7 ⊢ (((((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)))) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞)))) → (𝑥 · 𝑦) ∈ ℝ)
20	19	rexrd 11314	. . . . . 6 ⊢ (((((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)))) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞)))) → (𝑥 · 𝑦) ∈ ℝ*)
21	6, 20	ifclda 4568	. . . . 5 ⊢ ((((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) ∧ ¬ (((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞)))) → if((((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞))), -∞, (𝑥 · 𝑦)) ∈ ℝ*)
22	4, 21	ifclda 4568	. . . 4 ⊢ (((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) ∧ ¬ (𝑥 = 0 ∨ 𝑦 = 0)) → if((((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞))), +∞, if((((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞))), -∞, (𝑥 · 𝑦))) ∈ ℝ*)
23	2, 22	ifclda 4568	. . 3 ⊢ ((𝑥 ∈ ℝ* ∧ 𝑦 ∈ ℝ*) → if((𝑥 = 0 ∨ 𝑦 = 0), 0, if((((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞))), +∞, if((((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞))), -∞, (𝑥 · 𝑦)))) ∈ ℝ*)
24	23	rgen2 3188	. 2 ⊢ ∀𝑥 ∈ ℝ* ∀𝑦 ∈ ℝ* if((𝑥 = 0 ∨ 𝑦 = 0), 0, if((((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞))), +∞, if((((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞))), -∞, (𝑥 · 𝑦)))) ∈ ℝ*
25		df-xmul 13148	. . 3 ⊢ ·e = (𝑥 ∈ ℝ*, 𝑦 ∈ ℝ* ↦ if((𝑥 = 0 ∨ 𝑦 = 0), 0, if((((0 < 𝑦 ∧ 𝑥 = +∞) ∨ (𝑦 < 0 ∧ 𝑥 = -∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = +∞) ∨ (𝑥 < 0 ∧ 𝑦 = -∞))), +∞, if((((0 < 𝑦 ∧ 𝑥 = -∞) ∨ (𝑦 < 0 ∧ 𝑥 = +∞)) ∨ ((0 < 𝑥 ∧ 𝑦 = -∞) ∨ (𝑥 < 0 ∧ 𝑦 = +∞))), -∞, (𝑥 · 𝑦)))))
26	25	fmpo 8082	. 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 394   ∨ wo 845   = wceq 1534   ∈ wcel 2099  ∀wral 3051  ifcif 4533   class class class wbr 5153   × cxp 5680  ⟶wf 6550  (class class class)co 7424  ℝcr 11157  0cc0 11158   · cmul 11163  +∞cpnf 11295  -∞cmnf 11296  ℝ^*cxr 11297   < clt 11298   ·_e cxmu 13145

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2167  ax-ext 2697  ax-sep 5304  ax-nul 5311  ax-pow 5369  ax-pr 5433  ax-un 7746  ax-cnex 11214  ax-resscn 11215  ax-1cn 11216  ax-addrcl 11219  ax-mulrcl 11221  ax-rnegex 11229  ax-cnre 11231  ax-pre-lttri 11232  ax-pre-lttrn 11233

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2529  df-eu 2558  df-clab 2704  df-cleq 2718  df-clel 2803  df-nfc 2878  df-ne 2931  df-nel 3037  df-ral 3052  df-rex 3061  df-rab 3420  df-v 3464  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-nul 4326  df-if 4534  df-pw 4609  df-sn 4634  df-pr 4636  df-op 4640  df-uni 4914  df-iun 5003  df-br 5154  df-opab 5216  df-mpt 5237  df-id 5580  df-po 5594  df-so 5595  df-xp 5688  df-rel 5689  df-cnv 5690  df-co 5691  df-dm 5692  df-rn 5693  df-res 5694  df-ima 5695  df-iota 6506  df-fun 6556  df-fn 6557  df-f 6558  df-f1 6559  df-fo 6560  df-f1o 6561  df-fv 6562  df-oprab 7428  df-mpo 7429  df-1st 8003  df-2nd 8004  df-er 8734  df-en 8975  df-dom 8976  df-sdom 8977  df-pnf 11300  df-mnf 11301  df-xr 11302  df-ltxr 11303  df-xmul 13148

This theorem is referenced by:  xmulcl  13306  xrsmul  21377