Intuitionistic Logic Explorer < Previous   Next > Nearby theorems Mirrors  >  Home  >  ILE Home  >  Th. List  >  axpre-mulgt0 GIF version

Theorem axpre-mulgt0 7707
 Description: The product of two positive reals is positive. Axiom for real and complex numbers, derived from set theory. This construction-dependent theorem should not be referenced directly; instead, use ax-pre-mulgt0 7749. (Contributed by NM, 13-May-1996.) (New usage is discouraged.)
Assertion
Ref Expression
axpre-mulgt0 ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((0 < 𝐴 ∧ 0 < 𝐵) → 0 < (𝐴 · 𝐵)))

Proof of Theorem axpre-mulgt0
Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 elreal 7648 . 2 (𝐴 ∈ ℝ ↔ ∃𝑥R𝑥, 0R⟩ = 𝐴)
2 elreal 7648 . 2 (𝐵 ∈ ℝ ↔ ∃𝑦R𝑦, 0R⟩ = 𝐵)
3 breq2 3933 . . . 4 (⟨𝑥, 0R⟩ = 𝐴 → (0 <𝑥, 0R⟩ ↔ 0 < 𝐴))
43anbi1d 460 . . 3 (⟨𝑥, 0R⟩ = 𝐴 → ((0 <𝑥, 0R⟩ ∧ 0 <𝑦, 0R⟩) ↔ (0 < 𝐴 ∧ 0 <𝑦, 0R⟩)))
5 oveq1 5781 . . . 4 (⟨𝑥, 0R⟩ = 𝐴 → (⟨𝑥, 0R⟩ · ⟨𝑦, 0R⟩) = (𝐴 · ⟨𝑦, 0R⟩))
65breq2d 3941 . . 3 (⟨𝑥, 0R⟩ = 𝐴 → (0 < (⟨𝑥, 0R⟩ · ⟨𝑦, 0R⟩) ↔ 0 < (𝐴 · ⟨𝑦, 0R⟩)))
74, 6imbi12d 233 . 2 (⟨𝑥, 0R⟩ = 𝐴 → (((0 <𝑥, 0R⟩ ∧ 0 <𝑦, 0R⟩) → 0 < (⟨𝑥, 0R⟩ · ⟨𝑦, 0R⟩)) ↔ ((0 < 𝐴 ∧ 0 <𝑦, 0R⟩) → 0 < (𝐴 · ⟨𝑦, 0R⟩))))
8 breq2 3933 . . . 4 (⟨𝑦, 0R⟩ = 𝐵 → (0 <𝑦, 0R⟩ ↔ 0 < 𝐵))
98anbi2d 459 . . 3 (⟨𝑦, 0R⟩ = 𝐵 → ((0 < 𝐴 ∧ 0 <𝑦, 0R⟩) ↔ (0 < 𝐴 ∧ 0 < 𝐵)))
10 oveq2 5782 . . . 4 (⟨𝑦, 0R⟩ = 𝐵 → (𝐴 · ⟨𝑦, 0R⟩) = (𝐴 · 𝐵))
1110breq2d 3941 . . 3 (⟨𝑦, 0R⟩ = 𝐵 → (0 < (𝐴 · ⟨𝑦, 0R⟩) ↔ 0 < (𝐴 · 𝐵)))
129, 11imbi12d 233 . 2 (⟨𝑦, 0R⟩ = 𝐵 → (((0 < 𝐴 ∧ 0 <𝑦, 0R⟩) → 0 < (𝐴 · ⟨𝑦, 0R⟩)) ↔ ((0 < 𝐴 ∧ 0 < 𝐵) → 0 < (𝐴 · 𝐵))))
13 df-0 7639 . . . . . 6 0 = ⟨0R, 0R
1413breq1i 3936 . . . . 5 (0 <𝑥, 0R⟩ ↔ ⟨0R, 0R⟩ <𝑥, 0R⟩)
15 ltresr 7659 . . . . 5 (⟨0R, 0R⟩ <𝑥, 0R⟩ ↔ 0R <R 𝑥)
1614, 15bitri 183 . . . 4 (0 <𝑥, 0R⟩ ↔ 0R <R 𝑥)
1713breq1i 3936 . . . . 5 (0 <𝑦, 0R⟩ ↔ ⟨0R, 0R⟩ <𝑦, 0R⟩)
18 ltresr 7659 . . . . 5 (⟨0R, 0R⟩ <𝑦, 0R⟩ ↔ 0R <R 𝑦)
1917, 18bitri 183 . . . 4 (0 <𝑦, 0R⟩ ↔ 0R <R 𝑦)
20 mulgt0sr 7598 . . . 4 ((0R <R 𝑥 ∧ 0R <R 𝑦) → 0R <R (𝑥 ·R 𝑦))
2116, 19, 20syl2anb 289 . . 3 ((0 <𝑥, 0R⟩ ∧ 0 <𝑦, 0R⟩) → 0R <R (𝑥 ·R 𝑦))
2213a1i 9 . . . . 5 ((𝑥R𝑦R) → 0 = ⟨0R, 0R⟩)
23 mulresr 7658 . . . . 5 ((𝑥R𝑦R) → (⟨𝑥, 0R⟩ · ⟨𝑦, 0R⟩) = ⟨(𝑥 ·R 𝑦), 0R⟩)
2422, 23breq12d 3942 . . . 4 ((𝑥R𝑦R) → (0 < (⟨𝑥, 0R⟩ · ⟨𝑦, 0R⟩) ↔ ⟨0R, 0R⟩ < ⟨(𝑥 ·R 𝑦), 0R⟩))
25 ltresr 7659 . . . 4 (⟨0R, 0R⟩ < ⟨(𝑥 ·R 𝑦), 0R⟩ ↔ 0R <R (𝑥 ·R 𝑦))
2624, 25syl6bb 195 . . 3 ((𝑥R𝑦R) → (0 < (⟨𝑥, 0R⟩ · ⟨𝑦, 0R⟩) ↔ 0R <R (𝑥 ·R 𝑦)))
2721, 26syl5ibr 155 . 2 ((𝑥R𝑦R) → ((0 <𝑥, 0R⟩ ∧ 0 <𝑦, 0R⟩) → 0 < (⟨𝑥, 0R⟩ · ⟨𝑦, 0R⟩)))
281, 2, 7, 12, 272gencl 2719 1 ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((0 < 𝐴 ∧ 0 < 𝐵) → 0 < (𝐴 · 𝐵)))
 Colors of variables: wff set class Syntax hints:   → wi 4   ∧ wa 103   = wceq 1331   ∈ wcel 1480  ⟨cop 3530   class class class wbr 3929  (class class class)co 5774  Rcnr 7117  0Rc0r 7118   ·R cmr 7122
 Copyright terms: Public domain W3C validator