sgnmul - Mathbox for Thierry Arnoux

	Mathbox for Thierry Arnoux		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > sgnmul		Structured version Visualization version GIF version

Theorem sgnmul 32760

Description: Signum of a product. (Contributed by Thierry Arnoux, 2-Oct-2018.)

**Assertion**
Ref	Expression
sgnmul	⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (sgn‘(𝐴 · 𝐵)) = ((sgn‘𝐴) · (sgn‘𝐵)))

**Proof of Theorem sgnmul**
Step	Hyp	Ref	Expression
1		remulcl 11153	. . 3 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (𝐴 · 𝐵) ∈ ℝ)
2	1	rexrd 11224	. 2 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (𝐴 · 𝐵) ∈ ℝ^*)
3		eqeq1 2733	. 2 ⊢ ((sgn‘(𝐴 · 𝐵)) = 0 → ((sgn‘(𝐴 · 𝐵)) = ((sgn‘𝐴) · (sgn‘𝐵)) ↔ 0 = ((sgn‘𝐴) · (sgn‘𝐵))))
4		eqeq1 2733	. 2 ⊢ ((sgn‘(𝐴 · 𝐵)) = 1 → ((sgn‘(𝐴 · 𝐵)) = ((sgn‘𝐴) · (sgn‘𝐵)) ↔ 1 = ((sgn‘𝐴) · (sgn‘𝐵))))
5		eqeq1 2733	. 2 ⊢ ((sgn‘(𝐴 · 𝐵)) = -1 → ((sgn‘(𝐴 · 𝐵)) = ((sgn‘𝐴) · (sgn‘𝐵)) ↔ -1 = ((sgn‘𝐴) · (sgn‘𝐵))))
6		fveq2 6858	. . . . . . 7 ⊢ (𝐴 = 0 → (sgn‘𝐴) = (sgn‘0))
7		sgn0 15055	. . . . . . 7 ⊢ (sgn‘0) = 0
8	6, 7	eqtrdi 2780	. . . . . 6 ⊢ (𝐴 = 0 → (sgn‘𝐴) = 0)
9	8	oveq1d 7402	. . . . 5 ⊢ (𝐴 = 0 → ((sgn‘𝐴) · (sgn‘𝐵)) = (0 · (sgn‘𝐵)))
10	9	adantl 481	. . . 4 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) = 0) ∧ 𝐴 = 0) → ((sgn‘𝐴) · (sgn‘𝐵)) = (0 · (sgn‘𝐵)))
11		sgnclre 32757	. . . . . . 7 ⊢ (𝐵 ∈ ℝ → (sgn‘𝐵) ∈ ℝ)
12	11	recnd 11202	. . . . . 6 ⊢ (𝐵 ∈ ℝ → (sgn‘𝐵) ∈ ℂ)
13	12	mul02d 11372	. . . . 5 ⊢ (𝐵 ∈ ℝ → (0 · (sgn‘𝐵)) = 0)
14	13	ad3antlr 731	. . . 4 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) = 0) ∧ 𝐴 = 0) → (0 · (sgn‘𝐵)) = 0)
15	10, 14	eqtr2d 2765	. . 3 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) = 0) ∧ 𝐴 = 0) → 0 = ((sgn‘𝐴) · (sgn‘𝐵)))
16		fveq2 6858	. . . . . . 7 ⊢ (𝐵 = 0 → (sgn‘𝐵) = (sgn‘0))
17	16, 7	eqtrdi 2780	. . . . . 6 ⊢ (𝐵 = 0 → (sgn‘𝐵) = 0)
18	17	oveq2d 7403	. . . . 5 ⊢ (𝐵 = 0 → ((sgn‘𝐴) · (sgn‘𝐵)) = ((sgn‘𝐴) · 0))
19	18	adantl 481	. . . 4 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) = 0) ∧ 𝐵 = 0) → ((sgn‘𝐴) · (sgn‘𝐵)) = ((sgn‘𝐴) · 0))
20		sgnclre 32757	. . . . . . 7 ⊢ (𝐴 ∈ ℝ → (sgn‘𝐴) ∈ ℝ)
21	20	recnd 11202	. . . . . 6 ⊢ (𝐴 ∈ ℝ → (sgn‘𝐴) ∈ ℂ)
22	21	mul01d 11373	. . . . 5 ⊢ (𝐴 ∈ ℝ → ((sgn‘𝐴) · 0) = 0)
23	22	ad3antrrr 730	. . . 4 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) = 0) ∧ 𝐵 = 0) → ((sgn‘𝐴) · 0) = 0)
24	19, 23	eqtr2d 2765	. . 3 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) = 0) ∧ 𝐵 = 0) → 0 = ((sgn‘𝐴) · (sgn‘𝐵)))
25		simpl 482	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → 𝐴 ∈ ℝ)
26	25	recnd 11202	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → 𝐴 ∈ ℂ)
27		simpr 484	. . . . . 6 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → 𝐵 ∈ ℝ)
28	27	recnd 11202	. . . . 5 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → 𝐵 ∈ ℂ)
29	26, 28	mul0ord 11826	. . . 4 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((𝐴 · 𝐵) = 0 ↔ (𝐴 = 0 ∨ 𝐵 = 0)))
30	29	biimpa 476	. . 3 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) = 0) → (𝐴 = 0 ∨ 𝐵 = 0))
31	15, 24, 30	mpjaodan 960	. 2 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) = 0) → 0 = ((sgn‘𝐴) · (sgn‘𝐵)))
32		simpll 766	. . . 4 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) → 𝐴 ∈ ℝ)
33	32	rexrd 11224	. . 3 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) → 𝐴 ∈ ℝ^*)
34		oveq1 7394	. . . 4 ⊢ ((sgn‘𝐴) = 0 → ((sgn‘𝐴) · (sgn‘𝐵)) = (0 · (sgn‘𝐵)))
35	34	eqeq2d 2740	. . 3 ⊢ ((sgn‘𝐴) = 0 → (1 = ((sgn‘𝐴) · (sgn‘𝐵)) ↔ 1 = (0 · (sgn‘𝐵))))
36		oveq1 7394	. . . 4 ⊢ ((sgn‘𝐴) = 1 → ((sgn‘𝐴) · (sgn‘𝐵)) = (1 · (sgn‘𝐵)))
37	36	eqeq2d 2740	. . 3 ⊢ ((sgn‘𝐴) = 1 → (1 = ((sgn‘𝐴) · (sgn‘𝐵)) ↔ 1 = (1 · (sgn‘𝐵))))
38		oveq1 7394	. . . 4 ⊢ ((sgn‘𝐴) = -1 → ((sgn‘𝐴) · (sgn‘𝐵)) = (-1 · (sgn‘𝐵)))
39	38	eqeq2d 2740	. . 3 ⊢ ((sgn‘𝐴) = -1 → (1 = ((sgn‘𝐴) · (sgn‘𝐵)) ↔ 1 = (-1 · (sgn‘𝐵))))
40		simpr 484	. . . 4 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 = 0) → 𝐴 = 0)
41	26	adantr 480	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) → 𝐴 ∈ ℂ)
42	28	adantr 480	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) → 𝐵 ∈ ℂ)
43		simpr 484	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) → 0 < (𝐴 · 𝐵))
44	43	gt0ne0d 11742	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) → (𝐴 · 𝐵) ≠ 0)
45	41, 42, 44	mulne0bad 11833	. . . . . 6 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) → 𝐴 ≠ 0)
46	45	neneqd 2930	. . . . 5 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) → ¬ 𝐴 = 0)
47	46	adantr 480	. . . 4 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 = 0) → ¬ 𝐴 = 0)
48	40, 47	pm2.21dd 195	. . 3 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 = 0) → 1 = (0 · (sgn‘𝐵)))
49	27	ad2antrr 726	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 0 < 𝐴) → 𝐵 ∈ ℝ)
50	49	rexrd 11224	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 0 < 𝐴) → 𝐵 ∈ ℝ^*)
51		simpll 766	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 0 < 𝐴) → (𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ))
52		0red 11177	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 0 < 𝐴) → 0 ∈ ℝ)
53		simplll 774	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 0 < 𝐴) → 𝐴 ∈ ℝ)
54		simpr 484	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 0 < 𝐴) → 0 < 𝐴)
55	52, 53, 54	ltled 11322	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 0 < 𝐴) → 0 ≤ 𝐴)
56		simplr 768	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 0 < 𝐴) → 0 < (𝐴 · 𝐵))
57		prodgt0 12029	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (0 ≤ 𝐴 ∧ 0 < (𝐴 · 𝐵))) → 0 < 𝐵)
58	51, 55, 56, 57	syl12anc 836	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 0 < 𝐴) → 0 < 𝐵)
59		sgnp 15056	. . . . . 6 ⊢ ((𝐵 ∈ ℝ^* ∧ 0 < 𝐵) → (sgn‘𝐵) = 1)
60	50, 58, 59	syl2anc 584	. . . . 5 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 0 < 𝐴) → (sgn‘𝐵) = 1)
61	60	oveq2d 7403	. . . 4 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 0 < 𝐴) → (1 · (sgn‘𝐵)) = (1 · 1))
62		1t1e1 12343	. . . 4 ⊢ (1 · 1) = 1
63	61, 62	eqtr2di 2781	. . 3 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 0 < 𝐴) → 1 = (1 · (sgn‘𝐵)))
64	27	ad2antrr 726	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → 𝐵 ∈ ℝ)
65	64	rexrd 11224	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → 𝐵 ∈ ℝ^*)
66		simplll 774	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → 𝐴 ∈ ℝ)
67	66	renegcld 11605	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → -𝐴 ∈ ℝ)
68	64	renegcld 11605	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → -𝐵 ∈ ℝ)
69		0red 11177	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → 0 ∈ ℝ)
70		simpr 484	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → 𝐴 < 0)
71	25	lt0neg1d 11747	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (𝐴 < 0 ↔ 0 < -𝐴))
72	71	ad2antrr 726	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → (𝐴 < 0 ↔ 0 < -𝐴))
73	70, 72	mpbid 232	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → 0 < -𝐴)
74	69, 67, 73	ltled 11322	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → 0 ≤ -𝐴)
75		simplr 768	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → 0 < (𝐴 · 𝐵))
76	26	ad2antrr 726	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → 𝐴 ∈ ℂ)
77	28	ad2antrr 726	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → 𝐵 ∈ ℂ)
78	76, 77	mul2negd 11633	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → (-𝐴 · -𝐵) = (𝐴 · 𝐵))
79	75, 78	breqtrrd 5135	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → 0 < (-𝐴 · -𝐵))
80		prodgt0 12029	. . . . . . . 8 ⊢ (((-𝐴 ∈ ℝ ∧ -𝐵 ∈ ℝ) ∧ (0 ≤ -𝐴 ∧ 0 < (-𝐴 · -𝐵))) → 0 < -𝐵)
81	67, 68, 74, 79, 80	syl22anc 838	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → 0 < -𝐵)
82	27	lt0neg1d 11747	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (𝐵 < 0 ↔ 0 < -𝐵))
83	82	ad2antrr 726	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → (𝐵 < 0 ↔ 0 < -𝐵))
84	81, 83	mpbird 257	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → 𝐵 < 0)
85		sgnn 15060	. . . . . 6 ⊢ ((𝐵 ∈ ℝ^* ∧ 𝐵 < 0) → (sgn‘𝐵) = -1)
86	65, 84, 85	syl2anc 584	. . . . 5 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → (sgn‘𝐵) = -1)
87	86	oveq2d 7403	. . . 4 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → (-1 · (sgn‘𝐵)) = (-1 · -1))
88		neg1mulneg1e1 12394	. . . 4 ⊢ (-1 · -1) = 1
89	87, 88	eqtr2di 2781	. . 3 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) ∧ 𝐴 < 0) → 1 = (-1 · (sgn‘𝐵)))
90	33, 35, 37, 39, 48, 63, 89	sgn3da 32759	. 2 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ 0 < (𝐴 · 𝐵)) → 1 = ((sgn‘𝐴) · (sgn‘𝐵)))
91		simpll 766	. . . 4 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) → 𝐴 ∈ ℝ)
92	91	rexrd 11224	. . 3 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) → 𝐴 ∈ ℝ^*)
93	34	eqeq2d 2740	. . 3 ⊢ ((sgn‘𝐴) = 0 → (-1 = ((sgn‘𝐴) · (sgn‘𝐵)) ↔ -1 = (0 · (sgn‘𝐵))))
94	36	eqeq2d 2740	. . 3 ⊢ ((sgn‘𝐴) = 1 → (-1 = ((sgn‘𝐴) · (sgn‘𝐵)) ↔ -1 = (1 · (sgn‘𝐵))))
95	38	eqeq2d 2740	. . 3 ⊢ ((sgn‘𝐴) = -1 → (-1 = ((sgn‘𝐴) · (sgn‘𝐵)) ↔ -1 = (-1 · (sgn‘𝐵))))
96		simpr 484	. . . 4 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 𝐴 = 0) → 𝐴 = 0)
97	26	ad2antrr 726	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 𝐴 = 0) → 𝐴 ∈ ℂ)
98	28	ad2antrr 726	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 𝐴 = 0) → 𝐵 ∈ ℂ)
99		simplr 768	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 𝐴 = 0) → (𝐴 · 𝐵) < 0)
100	99	lt0ne0d 11743	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 𝐴 = 0) → (𝐴 · 𝐵) ≠ 0)
101	97, 98, 100	mulne0bad 11833	. . . . 5 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 𝐴 = 0) → 𝐴 ≠ 0)
102	101	neneqd 2930	. . . 4 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 𝐴 = 0) → ¬ 𝐴 = 0)
103	96, 102	pm2.21dd 195	. . 3 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 𝐴 = 0) → -1 = (0 · (sgn‘𝐵)))
104	27	ad2antrr 726	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 0 < 𝐴) → 𝐵 ∈ ℝ)
105	104	rexrd 11224	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 0 < 𝐴) → 𝐵 ∈ ℝ^*)
106		simplr 768	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) → 𝐵 ∈ ℝ)
107	26, 28	mulcomd 11195	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (𝐴 · 𝐵) = (𝐵 · 𝐴))
108	107	breq1d 5117	. . . . . . . 8 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((𝐴 · 𝐵) < 0 ↔ (𝐵 · 𝐴) < 0))
109	108	biimpa 476	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) → (𝐵 · 𝐴) < 0)
110	106, 91, 109	mul2lt0rgt0 13056	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 0 < 𝐴) → 𝐵 < 0)
111	105, 110, 85	syl2anc 584	. . . . 5 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 0 < 𝐴) → (sgn‘𝐵) = -1)
112	111	oveq2d 7403	. . . 4 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 0 < 𝐴) → (1 · (sgn‘𝐵)) = (1 · -1))
113		neg1cn 12171	. . . . 5 ⊢ -1 ∈ ℂ
114	113	mullidi 11179	. . . 4 ⊢ (1 · -1) = -1
115	112, 114	eqtr2di 2781	. . 3 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 0 < 𝐴) → -1 = (1 · (sgn‘𝐵)))
116	106	adantr 480	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 𝐴 < 0) → 𝐵 ∈ ℝ)
117	116	rexrd 11224	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 𝐴 < 0) → 𝐵 ∈ ℝ^*)
118	106, 91, 109	mul2lt0rlt0 13055	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 𝐴 < 0) → 0 < 𝐵)
119	117, 118, 59	syl2anc 584	. . . . 5 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 𝐴 < 0) → (sgn‘𝐵) = 1)
120	119	oveq2d 7403	. . . 4 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 𝐴 < 0) → (-1 · (sgn‘𝐵)) = (-1 · 1))
121	113	mulridi 11178	. . . 4 ⊢ (-1 · 1) = -1
122	120, 121	eqtr2di 2781	. . 3 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) ∧ 𝐴 < 0) → -1 = (-1 · (sgn‘𝐵)))
123	92, 93, 94, 95, 103, 115, 122	sgn3da 32759	. 2 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 · 𝐵) < 0) → -1 = ((sgn‘𝐴) · (sgn‘𝐵)))
124	2, 3, 4, 5, 31, 90, 123	sgn3da 32759	1 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (sgn‘(𝐴 · 𝐵)) = ((sgn‘𝐴) · (sgn‘𝐵)))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 ∨ wo 847 = wceq 1540 ∈ wcel 2109 class class class wbr 5107 ‘cfv 6511 (class class class)co 7387 ℂcc 11066 ℝcr 11067 0cc0 11068 1c1 11069 · cmul 11073 ℝ^*cxr 11207 < clt 11208 ≤ cle 11209 -cneg 11406 sgncsgn 15052

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 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-sep 5251 ax-nul 5261 ax-pow 5320 ax-pr 5387 ax-un 7711 ax-cnex 11124 ax-resscn 11125 ax-1cn 11126 ax-icn 11127 ax-addcl 11128 ax-addrcl 11129 ax-mulcl 11130 ax-mulrcl 11131 ax-mulcom 11132 ax-addass 11133 ax-mulass 11134 ax-distr 11135 ax-i2m1 11136 ax-1ne0 11137 ax-1rid 11138 ax-rnegex 11139 ax-rrecex 11140 ax-cnre 11141 ax-pre-lttri 11142 ax-pre-lttrn 11143 ax-pre-ltadd 11144 ax-pre-mulgt0 11145

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-nel 3030 df-ral 3045 df-rex 3054 df-rmo 3354 df-reu 3355 df-rab 3406 df-v 3449 df-sbc 3754 df-csb 3863 df-dif 3917 df-un 3919 df-in 3921 df-ss 3931 df-nul 4297 df-if 4489 df-pw 4565 df-sn 4590 df-pr 4592 df-tp 4594 df-op 4596 df-uni 4872 df-br 5108 df-opab 5170 df-mpt 5189 df-id 5533 df-po 5546 df-so 5547 df-xp 5644 df-rel 5645 df-cnv 5646 df-co 5647 df-dm 5648 df-rn 5649 df-res 5650 df-ima 5651 df-iota 6464 df-fun 6513 df-fn 6514 df-f 6515 df-f1 6516 df-fo 6517 df-f1o 6518 df-fv 6519 df-riota 7344 df-ov 7390 df-oprab 7391 df-mpo 7392 df-er 8671 df-en 8919 df-dom 8920 df-sdom 8921 df-pnf 11210 df-mnf 11211 df-xr 11212 df-ltxr 11213 df-le 11214 df-sub 11407 df-neg 11408 df-div 11836 df-rp 12952 df-sgn 15053

This theorem is referenced by: sgnmulrp2 32761 sgnmulsgn 32767 sgnmulsgp 32768

W3C validator