Theorem mulgt0b1d 43304

Description: Biconditional, deductive form of mulgt0 11302. The second factor is positive iff the product is. (Contributed by SN, 26-Jun-2024.)

Hypotheses

Ref	Expression
mulgt0b1d.a	⊢ (𝜑 → 𝐴 ∈ ℝ)
mulgt0b1d.b	⊢ (𝜑 → 𝐵 ∈ ℝ)
mulgt0b1d.1	⊢ (𝜑 → 0 < 𝐴)

Assertion

Ref	Expression
mulgt0b1d	⊢ (𝜑 → (0 < 𝐵 ↔ 0 < (𝐴 · 𝐵)))

Proof of Theorem mulgt0b1d

Step	Hyp	Ref	Expression
1		mulgt0b1d.a	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ ℝ)
2	1	adantr 486	. . . 4 ⊢ ((𝜑 ∧ 0 < 𝐵) → 𝐴 ∈ ℝ)
3		mulgt0b1d.b	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ ℝ)
4	3	adantr 486	. . . 4 ⊢ ((𝜑 ∧ 0 < 𝐵) → 𝐵 ∈ ℝ)
5		mulgt0b1d.1	. . . . 5 ⊢ (𝜑 → 0 < 𝐴)
6	5	adantr 486	. . . 4 ⊢ ((𝜑 ∧ 0 < 𝐵) → 0 < 𝐴)
7		simpr 490	. . . 4 ⊢ ((𝜑 ∧ 0 < 𝐵) → 0 < 𝐵)
8	2, 4, 6, 7	mulgt0d 11380	. . 3 ⊢ ((𝜑 ∧ 0 < 𝐵) → 0 < (𝐴 · 𝐵))
9	8	ex 418	. 2 ⊢ (𝜑 → (0 < 𝐵 → 0 < (𝐴 · 𝐵)))
10	1	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ ((𝐴 · 𝐵) · (0 −ℝ 1)) < 0) → 𝐴 ∈ ℝ)
11		1re 11223	. . . . . . . 8 ⊢ 1 ∈ ℝ
12		rernegcl 43190	. . . . . . . 8 ⊢ (1 ∈ ℝ → (0 −ℝ 1) ∈ ℝ)
13	11, 12	mp1i 14	. . . . . . 7 ⊢ (𝜑 → (0 −ℝ 1) ∈ ℝ)
14	3, 13	remulcld 11254	. . . . . 6 ⊢ (𝜑 → (𝐵 · (0 −ℝ 1)) ∈ ℝ)
15	14	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ ((𝐴 · 𝐵) · (0 −ℝ 1)) < 0) → (𝐵 · (0 −ℝ 1)) ∈ ℝ)
16	5	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ ((𝐴 · 𝐵) · (0 −ℝ 1)) < 0) → 0 < 𝐴)
17	1	recnd 11252	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ ℂ)
18	3	recnd 11252	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ ℂ)
19	13	recnd 11252	. . . . . . . 8 ⊢ (𝜑 → (0 −ℝ 1) ∈ ℂ)
20	17, 18, 19	mulassd 11247	. . . . . . 7 ⊢ (𝜑 → ((𝐴 · 𝐵) · (0 −ℝ 1)) = (𝐴 · (𝐵 · (0 −ℝ 1))))
21	20	breq1d 5121	. . . . . 6 ⊢ (𝜑 → (((𝐴 · 𝐵) · (0 −ℝ 1)) < 0 ↔ (𝐴 · (𝐵 · (0 −ℝ 1))) < 0))
22	21	biimpa 482	. . . . 5 ⊢ ((𝜑 ∧ ((𝐴 · 𝐵) · (0 −ℝ 1)) < 0) → (𝐴 · (𝐵 · (0 −ℝ 1))) < 0)
23	10, 15, 16, 22	mulgt0con2d 43303	. . . 4 ⊢ ((𝜑 ∧ ((𝐴 · 𝐵) · (0 −ℝ 1)) < 0) → (𝐵 · (0 −ℝ 1)) < 0)
24	23	ex 418	. . 3 ⊢ (𝜑 → (((𝐴 · 𝐵) · (0 −ℝ 1)) < 0 → (𝐵 · (0 −ℝ 1)) < 0))
25	1, 3	remulcld 11254	. . . . 5 ⊢ (𝜑 → (𝐴 · 𝐵) ∈ ℝ)
26		relt0neg2 43289	. . . . 5 ⊢ ((𝐴 · 𝐵) ∈ ℝ → (0 < (𝐴 · 𝐵) ↔ (0 −ℝ (𝐴 · 𝐵)) < 0))
27	25, 26	syl 18	. . . 4 ⊢ (𝜑 → (0 < (𝐴 · 𝐵) ↔ (0 −ℝ (𝐴 · 𝐵)) < 0))
28		1red 11224	. . . . . . 7 ⊢ (𝜑 → 1 ∈ ℝ)
29	25, 28	remulneg2d 43234	. . . . . 6 ⊢ (𝜑 → ((𝐴 · 𝐵) · (0 −ℝ 1)) = (0 −ℝ ((𝐴 · 𝐵) · 1)))
30		ax-1rid 11185	. . . . . . . 8 ⊢ ((𝐴 · 𝐵) ∈ ℝ → ((𝐴 · 𝐵) · 1) = (𝐴 · 𝐵))
31	25, 30	syl 18	. . . . . . 7 ⊢ (𝜑 → ((𝐴 · 𝐵) · 1) = (𝐴 · 𝐵))
32	31	oveq2d 7435	. . . . . 6 ⊢ (𝜑 → (0 −ℝ ((𝐴 · 𝐵) · 1)) = (0 −ℝ (𝐴 · 𝐵)))
33	29, 32	eqtrd 2800	. . . . 5 ⊢ (𝜑 → ((𝐴 · 𝐵) · (0 −ℝ 1)) = (0 −ℝ (𝐴 · 𝐵)))
34	33	breq1d 5121	. . . 4 ⊢ (𝜑 → (((𝐴 · 𝐵) · (0 −ℝ 1)) < 0 ↔ (0 −ℝ (𝐴 · 𝐵)) < 0))
35	27, 34	bitr4d 285	. . 3 ⊢ (𝜑 → (0 < (𝐴 · 𝐵) ↔ ((𝐴 · 𝐵) · (0 −ℝ 1)) < 0))
36		relt0neg2 43289	. . . . 5 ⊢ (𝐵 ∈ ℝ → (0 < 𝐵 ↔ (0 −ℝ 𝐵) < 0))
37	3, 36	syl 18	. . . 4 ⊢ (𝜑 → (0 < 𝐵 ↔ (0 −ℝ 𝐵) < 0))
38	3, 28	remulneg2d 43234	. . . . . 6 ⊢ (𝜑 → (𝐵 · (0 −ℝ 1)) = (0 −ℝ (𝐵 · 1)))
39		ax-1rid 11185	. . . . . . . 8 ⊢ (𝐵 ∈ ℝ → (𝐵 · 1) = 𝐵)
40	3, 39	syl 18	. . . . . . 7 ⊢ (𝜑 → (𝐵 · 1) = 𝐵)
41	40	oveq2d 7435	. . . . . 6 ⊢ (𝜑 → (0 −ℝ (𝐵 · 1)) = (0 −ℝ 𝐵))
42	38, 41	eqtrd 2800	. . . . 5 ⊢ (𝜑 → (𝐵 · (0 −ℝ 1)) = (0 −ℝ 𝐵))
43	42	breq1d 5121	. . . 4 ⊢ (𝜑 → ((𝐵 · (0 −ℝ 1)) < 0 ↔ (0 −ℝ 𝐵) < 0))
44	37, 43	bitr4d 285	. . 3 ⊢ (𝜑 → (0 < 𝐵 ↔ (𝐵 · (0 −ℝ 1)) < 0))
45	24, 35, 44	3imtr4d 297	. 2 ⊢ (𝜑 → (0 < (𝐴 · 𝐵) → 0 < 𝐵))
46	9, 45	impbid 215	1 ⊢ (𝜑 → (0 < 𝐵 ↔ 0 < (𝐴 · 𝐵)))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2146   class class class wbr 5111  (class class class)co 7419  ℝcr 11114  0cc0 11115  1c1 11116   · cmul 11120   < clt 11258   −_ℝ cresub 43184

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 2737  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-resscn 11172  ax-1cn 11173  ax-icn 11174  ax-addcl 11175  ax-addrcl 11176  ax-mulcl 11177  ax-mulrcl 11178  ax-addass 11180  ax-mulass 11181  ax-distr 11182  ax-i2m1 11183  ax-1ne0 11184  ax-1rid 11185  ax-rnegex 11186  ax-rrecex 11187  ax-cnre 11188  ax-pre-lttri 11189  ax-pre-lttrn 11190  ax-pre-ltadd 11191  ax-pre-mulgt0 11192

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-rmo 3371  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-br 5112  df-opab 5176  df-mpt 5195  df-id 5558  df-po 5571  df-so 5572  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-er 8700  df-en 8950  df-dom 8951  df-sdom 8952  df-pnf 11260  df-mnf 11261  df-ltxr 11263  df-2 12318  df-3 12319  df-resub 43185

This theorem is used by:  sn-ltmul2d  43305  sn-recgt0d  43309  mullt0b2d  43316