Theorem remul01 39312

Description: Real number version of mul01 10816 proven without ax-mulcom 10598. (Contributed by SN, 23-Jan-2024.)

Assertion

Ref	Expression
remul01	⊢ (𝐴 ∈ ℝ → (𝐴 · 0) = 0)

Proof of Theorem remul01

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		oveq2 7161	. . . . . . 7 ⊢ ((𝐴 · 0) = 1 → (2 · (𝐴 · 0)) = (2 · 1))
2	1	adantl 484	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) → (2 · (𝐴 · 0)) = (2 · 1))
3		2re 11709	. . . . . . 7 ⊢ 2 ∈ ℝ
4		ax-1rid 10604	. . . . . . 7 ⊢ (2 ∈ ℝ → (2 · 1) = 2)
5	3, 4	mp1i 13	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) → (2 · 1) = 2)
6	2, 5	eqtrd 2855	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) → (2 · (𝐴 · 0)) = 2)
7	3	a1i 11	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) → 2 ∈ ℝ)
8		simpl 485	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) → 𝐴 ∈ ℝ)
9		0red 10641	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) → 0 ∈ ℝ)
10	8, 9	remulcld 10668	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) → (𝐴 · 0) ∈ ℝ)
11	7, 10	remulcld 10668	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) → (2 · (𝐴 · 0)) ∈ ℝ)
12		sn-0ne2 39311	. . . . . . . . . . . 12 ⊢ 0 ≠ 2
13	12	necomi 3069	. . . . . . . . . . 11 ⊢ 2 ≠ 0
14	13	a1i 11	. . . . . . . . . 10 ⊢ ((2 · (𝐴 · 0)) = 2 → 2 ≠ 0)
15		eqtr2 2841	. . . . . . . . . 10 ⊢ (((2 · (𝐴 · 0)) = 2 ∧ (2 · (𝐴 · 0)) = 0) → 2 = 0)
16	14, 15	mteqand 3121	. . . . . . . . 9 ⊢ ((2 · (𝐴 · 0)) = 2 → (2 · (𝐴 · 0)) ≠ 0)
17		ax-rrecex 10606	. . . . . . . . 9 ⊢ (((2 · (𝐴 · 0)) ∈ ℝ ∧ (2 · (𝐴 · 0)) ≠ 0) → ∃𝑥 ∈ ℝ ((2 · (𝐴 · 0)) · 𝑥) = 1)
18	11, 16, 17	syl2an 597	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) → ∃𝑥 ∈ ℝ ((2 · (𝐴 · 0)) · 𝑥) = 1)
19		2cnd 11713	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) ∧ (𝑥 ∈ ℝ ∧ ((2 · (𝐴 · 0)) · 𝑥) = 1)) → 2 ∈ ℂ)
20		simplll 773	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) ∧ (𝑥 ∈ ℝ ∧ ((2 · (𝐴 · 0)) · 𝑥) = 1)) → 𝐴 ∈ ℝ)
21		0red 10641	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) ∧ (𝑥 ∈ ℝ ∧ ((2 · (𝐴 · 0)) · 𝑥) = 1)) → 0 ∈ ℝ)
22	20, 21	remulcld 10668	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) ∧ (𝑥 ∈ ℝ ∧ ((2 · (𝐴 · 0)) · 𝑥) = 1)) → (𝐴 · 0) ∈ ℝ)
23	22	recnd 10666	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) ∧ (𝑥 ∈ ℝ ∧ ((2 · (𝐴 · 0)) · 𝑥) = 1)) → (𝐴 · 0) ∈ ℂ)
24		simprl 769	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) ∧ (𝑥 ∈ ℝ ∧ ((2 · (𝐴 · 0)) · 𝑥) = 1)) → 𝑥 ∈ ℝ)
25	24	recnd 10666	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) ∧ (𝑥 ∈ ℝ ∧ ((2 · (𝐴 · 0)) · 𝑥) = 1)) → 𝑥 ∈ ℂ)
26	19, 23, 25	mulassd 10661	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) ∧ (𝑥 ∈ ℝ ∧ ((2 · (𝐴 · 0)) · 𝑥) = 1)) → ((2 · (𝐴 · 0)) · 𝑥) = (2 · ((𝐴 · 0) · 𝑥)))
27		simprr 771	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) ∧ (𝑥 ∈ ℝ ∧ ((2 · (𝐴 · 0)) · 𝑥) = 1)) → ((2 · (𝐴 · 0)) · 𝑥) = 1)
28	20	recnd 10666	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) ∧ (𝑥 ∈ ℝ ∧ ((2 · (𝐴 · 0)) · 𝑥) = 1)) → 𝐴 ∈ ℂ)
29		0cnd 10631	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) ∧ (𝑥 ∈ ℝ ∧ ((2 · (𝐴 · 0)) · 𝑥) = 1)) → 0 ∈ ℂ)
30	28, 29, 25	mulassd 10661	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) ∧ (𝑥 ∈ ℝ ∧ ((2 · (𝐴 · 0)) · 𝑥) = 1)) → ((𝐴 · 0) · 𝑥) = (𝐴 · (0 · 𝑥)))
31		remul02 39310	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ ℝ → (0 · 𝑥) = 0)
32	31	ad2antrl 726	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) ∧ (𝑥 ∈ ℝ ∧ ((2 · (𝐴 · 0)) · 𝑥) = 1)) → (0 · 𝑥) = 0)
33	32	oveq2d 7169	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) ∧ (𝑥 ∈ ℝ ∧ ((2 · (𝐴 · 0)) · 𝑥) = 1)) → (𝐴 · (0 · 𝑥)) = (𝐴 · 0))
34	30, 33	eqtrd 2855	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) ∧ (𝑥 ∈ ℝ ∧ ((2 · (𝐴 · 0)) · 𝑥) = 1)) → ((𝐴 · 0) · 𝑥) = (𝐴 · 0))
35	34	oveq2d 7169	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) ∧ (𝑥 ∈ ℝ ∧ ((2 · (𝐴 · 0)) · 𝑥) = 1)) → (2 · ((𝐴 · 0) · 𝑥)) = (2 · (𝐴 · 0)))
36	26, 27, 35	3eqtr3rd 2864	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) ∧ (𝑥 ∈ ℝ ∧ ((2 · (𝐴 · 0)) · 𝑥) = 1)) → (2 · (𝐴 · 0)) = 1)
37	18, 36	rexlimddv 3290	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) ∧ (2 · (𝐴 · 0)) = 2) → (2 · (𝐴 · 0)) = 1)
38	6, 37	mpdan 685	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) → (2 · (𝐴 · 0)) = 1)
39		sn-1ne2 39233	. . . . . . 7 ⊢ 1 ≠ 2
40	39	a1i 11	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) → 1 ≠ 2)
41	38, 40	eqnetrd 3082	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) → (2 · (𝐴 · 0)) ≠ 2)
42	6, 41	pm2.21ddne 3100	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ (𝐴 · 0) = 1) → ¬ (𝐴 · 0) = 1)
43	42	ex 415	. . 3 ⊢ (𝐴 ∈ ℝ → ((𝐴 · 0) = 1 → ¬ (𝐴 · 0) = 1))
44		pm2.01 191	. . . 4 ⊢ (((𝐴 · 0) = 1 → ¬ (𝐴 · 0) = 1) → ¬ (𝐴 · 0) = 1)
45	44	neqned 3022	. . 3 ⊢ (((𝐴 · 0) = 1 → ¬ (𝐴 · 0) = 1) → (𝐴 · 0) ≠ 1)
46	43, 45	syl 17	. 2 ⊢ (𝐴 ∈ ℝ → (𝐴 · 0) ≠ 1)
47		id 22	. . . . . . 7 ⊢ (𝐴 ∈ ℝ → 𝐴 ∈ ℝ)
48		elre0re 39229	. . . . . . 7 ⊢ (𝐴 ∈ ℝ → 0 ∈ ℝ)
49	47, 48	remulcld 10668	. . . . . 6 ⊢ (𝐴 ∈ ℝ → (𝐴 · 0) ∈ ℝ)
50		ax-rrecex 10606	. . . . . 6 ⊢ (((𝐴 · 0) ∈ ℝ ∧ (𝐴 · 0) ≠ 0) → ∃𝑥 ∈ ℝ ((𝐴 · 0) · 𝑥) = 1)
51	49, 50	sylan 582	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ (𝐴 · 0) ≠ 0) → ∃𝑥 ∈ ℝ ((𝐴 · 0) · 𝑥) = 1)
52		simpll 765	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ (𝐴 · 0) ≠ 0) ∧ (𝑥 ∈ ℝ ∧ ((𝐴 · 0) · 𝑥) = 1)) → 𝐴 ∈ ℝ)
53	52	recnd 10666	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ (𝐴 · 0) ≠ 0) ∧ (𝑥 ∈ ℝ ∧ ((𝐴 · 0) · 𝑥) = 1)) → 𝐴 ∈ ℂ)
54		0cnd 10631	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ (𝐴 · 0) ≠ 0) ∧ (𝑥 ∈ ℝ ∧ ((𝐴 · 0) · 𝑥) = 1)) → 0 ∈ ℂ)
55		simprl 769	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ (𝐴 · 0) ≠ 0) ∧ (𝑥 ∈ ℝ ∧ ((𝐴 · 0) · 𝑥) = 1)) → 𝑥 ∈ ℝ)
56	55	recnd 10666	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ (𝐴 · 0) ≠ 0) ∧ (𝑥 ∈ ℝ ∧ ((𝐴 · 0) · 𝑥) = 1)) → 𝑥 ∈ ℂ)
57	53, 54, 56	mulassd 10661	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ (𝐴 · 0) ≠ 0) ∧ (𝑥 ∈ ℝ ∧ ((𝐴 · 0) · 𝑥) = 1)) → ((𝐴 · 0) · 𝑥) = (𝐴 · (0 · 𝑥)))
58		simprr 771	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ (𝐴 · 0) ≠ 0) ∧ (𝑥 ∈ ℝ ∧ ((𝐴 · 0) · 𝑥) = 1)) → ((𝐴 · 0) · 𝑥) = 1)
59	31	oveq2d 7169	. . . . . . 7 ⊢ (𝑥 ∈ ℝ → (𝐴 · (0 · 𝑥)) = (𝐴 · 0))
60	59	ad2antrl 726	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ (𝐴 · 0) ≠ 0) ∧ (𝑥 ∈ ℝ ∧ ((𝐴 · 0) · 𝑥) = 1)) → (𝐴 · (0 · 𝑥)) = (𝐴 · 0))
61	57, 58, 60	3eqtr3rd 2864	. . . . 5 ⊢ (((𝐴 ∈ ℝ ∧ (𝐴 · 0) ≠ 0) ∧ (𝑥 ∈ ℝ ∧ ((𝐴 · 0) · 𝑥) = 1)) → (𝐴 · 0) = 1)
62	51, 61	rexlimddv 3290	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ (𝐴 · 0) ≠ 0) → (𝐴 · 0) = 1)
63	62	ex 415	. . 3 ⊢ (𝐴 ∈ ℝ → ((𝐴 · 0) ≠ 0 → (𝐴 · 0) = 1))
64	63	necon1d 3037	. 2 ⊢ (𝐴 ∈ ℝ → ((𝐴 · 0) ≠ 1 → (𝐴 · 0) = 0))
65	46, 64	mpd 15	1 ⊢ (𝐴 ∈ ℝ → (𝐴 · 0) = 0)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 398   = wceq 1536   ∈ wcel 2113   ≠ wne 3015  ∃wrex 3138  (class class class)co 7153  ℝcr 10533  0cc0 10534  1c1 10535   · cmul 10539  2c2 11690

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1969  ax-7 2014  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2160  ax-12 2176  ax-ext 2792  ax-sep 5200  ax-nul 5207  ax-pow 5263  ax-pr 5327  ax-un 7458  ax-resscn 10591  ax-1cn 10592  ax-icn 10593  ax-addcl 10594  ax-addrcl 10595  ax-mulcl 10596  ax-mulrcl 10597  ax-addass 10599  ax-mulass 10600  ax-distr 10601  ax-i2m1 10602  ax-1ne0 10603  ax-1rid 10604  ax-rnegex 10605  ax-rrecex 10606  ax-cnre 10607  ax-pre-lttri 10608  ax-pre-lttrn 10609  ax-pre-ltadd 10610

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1083  df-3an 1084  df-tru 1539  df-ex 1780  df-nf 1784  df-sb 2069  df-mo 2621  df-eu 2653  df-clab 2799  df-cleq 2813  df-clel 2892  df-nfc 2962  df-ne 3016  df-nel 3123  df-ral 3142  df-rex 3143  df-reu 3144  df-rmo 3145  df-rab 3146  df-v 3495  df-sbc 3771  df-csb 3881  df-dif 3936  df-un 3938  df-in 3940  df-ss 3949  df-nul 4289  df-if 4465  df-pw 4538  df-sn 4565  df-pr 4567  df-op 4571  df-uni 4836  df-br 5064  df-opab 5126  df-mpt 5144  df-id 5457  df-po 5471  df-so 5472  df-xp 5558  df-rel 5559  df-cnv 5560  df-co 5561  df-dm 5562  df-rn 5563  df-res 5564  df-ima 5565  df-iota 6311  df-fun 6354  df-fn 6355  df-f 6356  df-f1 6357  df-fo 6358  df-f1o 6359  df-fv 6360  df-riota 7111  df-ov 7156  df-oprab 7157  df-mpo 7158  df-er 8286  df-en 8507  df-dom 8508  df-sdom 8509  df-pnf 10674  df-mnf 10675  df-ltxr 10677  df-2 11698  df-3 11699  df-resub 39271

This theorem is referenced by:  resubid  39313  sn-0lt1  39321  remulinvcom  39323  remulid2  39324