Theorem ltmul1 8865

Description: Multiplication of both sides of 'less than' by a positive number. Theorem I.19 of [Apostol] p. 20. Part of Definition 11.2.7(vi) of [HoTT], p. (varies). (Contributed by NM, 13-Feb-2005.) (Revised by Mario Carneiro, 27-May-2016.)

Assertion

Ref	Expression
ltmul1	⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) → (𝐴 < 𝐵 ↔ (𝐴 · 𝐶) < (𝐵 · 𝐶)))

Proof of Theorem ltmul1

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		ltmul1a 8864	. . 3 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ 𝐴 < 𝐵) → (𝐴 · 𝐶) < (𝐵 · 𝐶))
2	1	ex 115	. 2 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) → (𝐴 < 𝐵 → (𝐴 · 𝐶) < (𝐵 · 𝐶)))
3		recexgt0 8853	. . . 4 ⊢ ((𝐶 ∈ ℝ ∧ 0 < 𝐶) → ∃𝑥 ∈ ℝ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))
4	3	3ad2ant3 1047	. . 3 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) → ∃𝑥 ∈ ℝ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))
5		simpl1 1027	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) → 𝐴 ∈ ℝ)
6		simpl3l 1079	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) → 𝐶 ∈ ℝ)
7	5, 6	remulcld 8303	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) → (𝐴 · 𝐶) ∈ ℝ)
8		simpl2 1028	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) → 𝐵 ∈ ℝ)
9	8, 6	remulcld 8303	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) → (𝐵 · 𝐶) ∈ ℝ)
10		simprl 531	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) → 𝑥 ∈ ℝ)
11		simprrl 541	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) → 0 < 𝑥)
12	10, 11	jca 306	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) → (𝑥 ∈ ℝ ∧ 0 < 𝑥))
13	7, 9, 12	3jca 1204	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) → ((𝐴 · 𝐶) ∈ ℝ ∧ (𝐵 · 𝐶) ∈ ℝ ∧ (𝑥 ∈ ℝ ∧ 0 < 𝑥)))
14		ltmul1a 8864	. . . . . . . 8 ⊢ ((((𝐴 · 𝐶) ∈ ℝ ∧ (𝐵 · 𝐶) ∈ ℝ ∧ (𝑥 ∈ ℝ ∧ 0 < 𝑥)) ∧ (𝐴 · 𝐶) < (𝐵 · 𝐶)) → ((𝐴 · 𝐶) · 𝑥) < ((𝐵 · 𝐶) · 𝑥))
15	13, 14	sylan 283	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) ∧ (𝐴 · 𝐶) < (𝐵 · 𝐶)) → ((𝐴 · 𝐶) · 𝑥) < ((𝐵 · 𝐶) · 𝑥))
16	5	recnd 8301	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) → 𝐴 ∈ ℂ)
17	16	adantr 276	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) ∧ (𝐴 · 𝐶) < (𝐵 · 𝐶)) → 𝐴 ∈ ℂ)
18	6	recnd 8301	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) → 𝐶 ∈ ℂ)
19	18	adantr 276	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) ∧ (𝐴 · 𝐶) < (𝐵 · 𝐶)) → 𝐶 ∈ ℂ)
20	10	recnd 8301	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) → 𝑥 ∈ ℂ)
21	20	adantr 276	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) ∧ (𝐴 · 𝐶) < (𝐵 · 𝐶)) → 𝑥 ∈ ℂ)
22	17, 19, 21	mulassd 8296	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) ∧ (𝐴 · 𝐶) < (𝐵 · 𝐶)) → ((𝐴 · 𝐶) · 𝑥) = (𝐴 · (𝐶 · 𝑥)))
23	8	recnd 8301	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) → 𝐵 ∈ ℂ)
24	23	adantr 276	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) ∧ (𝐴 · 𝐶) < (𝐵 · 𝐶)) → 𝐵 ∈ ℂ)
25	24, 19, 21	mulassd 8296	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) ∧ (𝐴 · 𝐶) < (𝐵 · 𝐶)) → ((𝐵 · 𝐶) · 𝑥) = (𝐵 · (𝐶 · 𝑥)))
26	15, 22, 25	3brtr3d 4139	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) ∧ (𝐴 · 𝐶) < (𝐵 · 𝐶)) → (𝐴 · (𝐶 · 𝑥)) < (𝐵 · (𝐶 · 𝑥)))
27		simprrr 542	. . . . . . . 8 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) → (𝐶 · 𝑥) = 1)
28	27	adantr 276	. . . . . . 7 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) ∧ (𝐴 · 𝐶) < (𝐵 · 𝐶)) → (𝐶 · 𝑥) = 1)
29	28	oveq2d 6065	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) ∧ (𝐴 · 𝐶) < (𝐵 · 𝐶)) → (𝐴 · (𝐶 · 𝑥)) = (𝐴 · 1))
30	28	oveq2d 6065	. . . . . 6 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) ∧ (𝐴 · 𝐶) < (𝐵 · 𝐶)) → (𝐵 · (𝐶 · 𝑥)) = (𝐵 · 1))
31	26, 29, 30	3brtr3d 4139	. . . . 5 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) ∧ (𝐴 · 𝐶) < (𝐵 · 𝐶)) → (𝐴 · 1) < (𝐵 · 1))
32	17	mulridd 8290	. . . . 5 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) ∧ (𝐴 · 𝐶) < (𝐵 · 𝐶)) → (𝐴 · 1) = 𝐴)
33	24	mulridd 8290	. . . . 5 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) ∧ (𝐴 · 𝐶) < (𝐵 · 𝐶)) → (𝐵 · 1) = 𝐵)
34	31, 32, 33	3brtr3d 4139	. . . 4 ⊢ ((((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) ∧ (𝐴 · 𝐶) < (𝐵 · 𝐶)) → 𝐴 < 𝐵)
35	34	ex 115	. . 3 ⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) ∧ (𝑥 ∈ ℝ ∧ (0 < 𝑥 ∧ (𝐶 · 𝑥) = 1))) → ((𝐴 · 𝐶) < (𝐵 · 𝐶) → 𝐴 < 𝐵))
36	4, 35	rexlimddv 2665	. 2 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) → ((𝐴 · 𝐶) < (𝐵 · 𝐶) → 𝐴 < 𝐵))
37	2, 36	impbid 129	1 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ (𝐶 ∈ ℝ ∧ 0 < 𝐶)) → (𝐴 < 𝐵 ↔ (𝐴 · 𝐶) < (𝐵 · 𝐶)))

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105   ∧ w3a 1005   = wceq 1398   ∈ wcel 2203  ∃wrex 2521   class class class wbr 4108  (class class class)co 6049  ℂcc 8124  ℝcr 8125  0cc0 8126  1c1 8127   · cmul 8131   < clt 8307

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2205  ax-14 2206  ax-ext 2214  ax-sep 4227  ax-pow 4286  ax-pr 4321  ax-un 4553  ax-setind 4658  ax-cnex 8217  ax-resscn 8218  ax-1cn 8219  ax-1re 8220  ax-icn 8221  ax-addcl 8222  ax-addrcl 8223  ax-mulcl 8224  ax-mulrcl 8225  ax-addcom 8226  ax-mulcom 8227  ax-addass 8228  ax-mulass 8229  ax-distr 8230  ax-i2m1 8231  ax-1rid 8233  ax-0id 8234  ax-rnegex 8235  ax-precex 8236  ax-cnre 8237  ax-pre-ltadd 8242  ax-pre-mulgt0 8243

This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ne 2413  df-nel 2508  df-ral 2525  df-rex 2526  df-reu 2527  df-rab 2529  df-v 2814  df-sbc 3042  df-dif 3212  df-un 3214  df-in 3216  df-ss 3223  df-pw 3670  df-sn 3694  df-pr 3695  df-op 3697  df-uni 3914  df-br 4109  df-opab 4171  df-id 4413  df-xp 4754  df-rel 4755  df-cnv 4756  df-co 4757  df-dm 4758  df-iota 5311  df-fun 5353  df-fv 5359  df-riota 6002  df-ov 6052  df-oprab 6053  df-mpo 6054  df-pnf 8309  df-mnf 8310  df-ltxr 8312  df-sub 8445  df-neg 8446

This theorem is referenced by:  lemul1  8866  reapmul1lem  8867  ltmul2  9129  ltdiv1  9141  ltdiv23  9165  recp1lt1  9172  ltmul1i  9193  ltmul1d  10070  mertenslemi1  12217  flodddiv4t2lthalf  12621  qnumgt0  12891  4sqlem12  13096  tangtx  15695  pellexlem2  15838  lgsquadlem1  15942  lgsquadlem2  15943