MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  mulgt0sr Structured version   Visualization version   GIF version

Theorem mulgt0sr 10962
Description: The product of two positive signed reals is positive. (Contributed by NM, 13-May-1996.) (New usage is discouraged.)
Assertion
Ref Expression
mulgt0sr ((0R <R 𝐴 ∧ 0R <R 𝐵) → 0R <R (𝐴 ·R 𝐵))

Proof of Theorem mulgt0sr
Dummy variables 𝑥 𝑦 𝑧 𝑤 𝑣 𝑢 𝑓 𝑔 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ltrelsr 10925 . . . . 5 <R ⊆ (R × R)
21brel 5683 . . . 4 (0R <R 𝐴 → (0RR𝐴R))
32simprd 496 . . 3 (0R <R 𝐴𝐴R)
41brel 5683 . . . 4 (0R <R 𝐵 → (0RR𝐵R))
54simprd 496 . . 3 (0R <R 𝐵𝐵R)
63, 5anim12i 613 . 2 ((0R <R 𝐴 ∧ 0R <R 𝐵) → (𝐴R𝐵R))
7 df-nr 10913 . . 3 R = ((P × P) / ~R )
8 breq2 5096 . . . . 5 ([⟨𝑥, 𝑦⟩] ~R = 𝐴 → (0R <R [⟨𝑥, 𝑦⟩] ~R ↔ 0R <R 𝐴))
98anbi1d 630 . . . 4 ([⟨𝑥, 𝑦⟩] ~R = 𝐴 → ((0R <R [⟨𝑥, 𝑦⟩] ~R ∧ 0R <R [⟨𝑧, 𝑤⟩] ~R ) ↔ (0R <R 𝐴 ∧ 0R <R [⟨𝑧, 𝑤⟩] ~R )))
10 oveq1 7344 . . . . 5 ([⟨𝑥, 𝑦⟩] ~R = 𝐴 → ([⟨𝑥, 𝑦⟩] ~R ·R [⟨𝑧, 𝑤⟩] ~R ) = (𝐴 ·R [⟨𝑧, 𝑤⟩] ~R ))
1110breq2d 5104 . . . 4 ([⟨𝑥, 𝑦⟩] ~R = 𝐴 → (0R <R ([⟨𝑥, 𝑦⟩] ~R ·R [⟨𝑧, 𝑤⟩] ~R ) ↔ 0R <R (𝐴 ·R [⟨𝑧, 𝑤⟩] ~R )))
129, 11imbi12d 344 . . 3 ([⟨𝑥, 𝑦⟩] ~R = 𝐴 → (((0R <R [⟨𝑥, 𝑦⟩] ~R ∧ 0R <R [⟨𝑧, 𝑤⟩] ~R ) → 0R <R ([⟨𝑥, 𝑦⟩] ~R ·R [⟨𝑧, 𝑤⟩] ~R )) ↔ ((0R <R 𝐴 ∧ 0R <R [⟨𝑧, 𝑤⟩] ~R ) → 0R <R (𝐴 ·R [⟨𝑧, 𝑤⟩] ~R ))))
13 breq2 5096 . . . . 5 ([⟨𝑧, 𝑤⟩] ~R = 𝐵 → (0R <R [⟨𝑧, 𝑤⟩] ~R ↔ 0R <R 𝐵))
1413anbi2d 629 . . . 4 ([⟨𝑧, 𝑤⟩] ~R = 𝐵 → ((0R <R 𝐴 ∧ 0R <R [⟨𝑧, 𝑤⟩] ~R ) ↔ (0R <R 𝐴 ∧ 0R <R 𝐵)))
15 oveq2 7345 . . . . 5 ([⟨𝑧, 𝑤⟩] ~R = 𝐵 → (𝐴 ·R [⟨𝑧, 𝑤⟩] ~R ) = (𝐴 ·R 𝐵))
1615breq2d 5104 . . . 4 ([⟨𝑧, 𝑤⟩] ~R = 𝐵 → (0R <R (𝐴 ·R [⟨𝑧, 𝑤⟩] ~R ) ↔ 0R <R (𝐴 ·R 𝐵)))
1714, 16imbi12d 344 . . 3 ([⟨𝑧, 𝑤⟩] ~R = 𝐵 → (((0R <R 𝐴 ∧ 0R <R [⟨𝑧, 𝑤⟩] ~R ) → 0R <R (𝐴 ·R [⟨𝑧, 𝑤⟩] ~R )) ↔ ((0R <R 𝐴 ∧ 0R <R 𝐵) → 0R <R (𝐴 ·R 𝐵))))
18 gt0srpr 10935 . . . . 5 (0R <R [⟨𝑥, 𝑦⟩] ~R𝑦<P 𝑥)
19 gt0srpr 10935 . . . . 5 (0R <R [⟨𝑧, 𝑤⟩] ~R𝑤<P 𝑧)
2018, 19anbi12i 627 . . . 4 ((0R <R [⟨𝑥, 𝑦⟩] ~R ∧ 0R <R [⟨𝑧, 𝑤⟩] ~R ) ↔ (𝑦<P 𝑥𝑤<P 𝑧))
21 simprr 770 . . . . . 6 (((𝑥P𝑦P) ∧ (𝑧P𝑤P)) → 𝑤P)
22 mulclpr 10877 . . . . . . . 8 ((𝑥P𝑧P) → (𝑥 ·P 𝑧) ∈ P)
23 mulclpr 10877 . . . . . . . 8 ((𝑦P𝑤P) → (𝑦 ·P 𝑤) ∈ P)
24 addclpr 10875 . . . . . . . 8 (((𝑥 ·P 𝑧) ∈ P ∧ (𝑦 ·P 𝑤) ∈ P) → ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P)
2522, 23, 24syl2an 596 . . . . . . 7 (((𝑥P𝑧P) ∧ (𝑦P𝑤P)) → ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P)
2625an4s 657 . . . . . 6 (((𝑥P𝑦P) ∧ (𝑧P𝑤P)) → ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P)
27 ltexpri 10900 . . . . . . . . 9 (𝑦<P 𝑥 → ∃𝑣P (𝑦 +P 𝑣) = 𝑥)
28 ltexpri 10900 . . . . . . . . 9 (𝑤<P 𝑧 → ∃𝑢P (𝑤 +P 𝑢) = 𝑧)
29 mulclpr 10877 . . . . . . . . . . . . . . . . 17 ((𝑣P𝑤P) → (𝑣 ·P 𝑤) ∈ P)
30 oveq12 7346 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑦 +P 𝑣) = 𝑥 ∧ (𝑤 +P 𝑢) = 𝑧) → ((𝑦 +P 𝑣) ·P (𝑤 +P 𝑢)) = (𝑥 ·P 𝑧))
3130oveq1d 7352 . . . . . . . . . . . . . . . . . . . . 21 (((𝑦 +P 𝑣) = 𝑥 ∧ (𝑤 +P 𝑢) = 𝑧) → (((𝑦 +P 𝑣) ·P (𝑤 +P 𝑢)) +P ((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤))) = ((𝑥 ·P 𝑧) +P ((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤))))
32 distrpr 10885 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ·P (𝑤 +P 𝑢)) = ((𝑦 ·P 𝑤) +P (𝑦 ·P 𝑢))
33 oveq2 7345 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑤 +P 𝑢) = 𝑧 → (𝑦 ·P (𝑤 +P 𝑢)) = (𝑦 ·P 𝑧))
3432, 33eqtr3id 2790 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑤 +P 𝑢) = 𝑧 → ((𝑦 ·P 𝑤) +P (𝑦 ·P 𝑢)) = (𝑦 ·P 𝑧))
3534oveq1d 7352 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑤 +P 𝑢) = 𝑧 → (((𝑦 ·P 𝑤) +P (𝑦 ·P 𝑢)) +P ((𝑣 ·P 𝑤) +P (𝑣 ·P 𝑢))) = ((𝑦 ·P 𝑧) +P ((𝑣 ·P 𝑤) +P (𝑣 ·P 𝑢))))
36 vex 3445 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑦 ∈ V
37 vex 3445 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑣 ∈ V
38 vex 3445 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑤 ∈ V
39 mulcompr 10880 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑓 ·P 𝑔) = (𝑔 ·P 𝑓)
40 distrpr 10885 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑓 ·P (𝑔 +P )) = ((𝑓 ·P 𝑔) +P (𝑓 ·P ))
4136, 37, 38, 39, 40caovdir 7568 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑦 +P 𝑣) ·P 𝑤) = ((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤))
42 vex 3445 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑢 ∈ V
4336, 37, 42, 39, 40caovdir 7568 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑦 +P 𝑣) ·P 𝑢) = ((𝑦 ·P 𝑢) +P (𝑣 ·P 𝑢))
4441, 43oveq12i 7349 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑦 +P 𝑣) ·P 𝑤) +P ((𝑦 +P 𝑣) ·P 𝑢)) = (((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤)) +P ((𝑦 ·P 𝑢) +P (𝑣 ·P 𝑢)))
45 distrpr 10885 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑦 +P 𝑣) ·P (𝑤 +P 𝑢)) = (((𝑦 +P 𝑣) ·P 𝑤) +P ((𝑦 +P 𝑣) ·P 𝑢))
46 ovex 7370 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ·P 𝑤) ∈ V
47 ovex 7370 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ·P 𝑢) ∈ V
48 ovex 7370 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑣 ·P 𝑤) ∈ V
49 addcompr 10878 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑓 +P 𝑔) = (𝑔 +P 𝑓)
50 addasspr 10879 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑓 +P 𝑔) +P ) = (𝑓 +P (𝑔 +P ))
51 ovex 7370 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑣 ·P 𝑢) ∈ V
5246, 47, 48, 49, 50, 51caov4 7565 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑦 ·P 𝑤) +P (𝑦 ·P 𝑢)) +P ((𝑣 ·P 𝑤) +P (𝑣 ·P 𝑢))) = (((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤)) +P ((𝑦 ·P 𝑢) +P (𝑣 ·P 𝑢)))
5344, 45, 523eqtr4i 2774 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑦 +P 𝑣) ·P (𝑤 +P 𝑢)) = (((𝑦 ·P 𝑤) +P (𝑦 ·P 𝑢)) +P ((𝑣 ·P 𝑤) +P (𝑣 ·P 𝑢)))
54 ovex 7370 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 ·P 𝑧) ∈ V
5548, 54, 51, 49, 50caov12 7562 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑣 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))) = ((𝑦 ·P 𝑧) +P ((𝑣 ·P 𝑤) +P (𝑣 ·P 𝑢)))
5635, 53, 553eqtr4g 2801 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑤 +P 𝑢) = 𝑧 → ((𝑦 +P 𝑣) ·P (𝑤 +P 𝑢)) = ((𝑣 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))))
57 oveq1 7344 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑦 +P 𝑣) = 𝑥 → ((𝑦 +P 𝑣) ·P 𝑤) = (𝑥 ·P 𝑤))
5841, 57eqtr3id 2790 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑦 +P 𝑣) = 𝑥 → ((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤)) = (𝑥 ·P 𝑤))
5956, 58oveqan12rd 7357 . . . . . . . . . . . . . . . . . . . . 21 (((𝑦 +P 𝑣) = 𝑥 ∧ (𝑤 +P 𝑢) = 𝑧) → (((𝑦 +P 𝑣) ·P (𝑤 +P 𝑢)) +P ((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤))) = (((𝑣 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))) +P (𝑥 ·P 𝑤)))
6031, 59eqtr3d 2778 . . . . . . . . . . . . . . . . . . . 20 (((𝑦 +P 𝑣) = 𝑥 ∧ (𝑤 +P 𝑢) = 𝑧) → ((𝑥 ·P 𝑧) +P ((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤))) = (((𝑣 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))) +P (𝑥 ·P 𝑤)))
61 addasspr 10879 . . . . . . . . . . . . . . . . . . . . 21 (((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) +P (𝑣 ·P 𝑤)) = ((𝑥 ·P 𝑧) +P ((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤)))
62 addcompr 10878 . . . . . . . . . . . . . . . . . . . . 21 (((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) +P (𝑣 ·P 𝑤)) = ((𝑣 ·P 𝑤) +P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)))
6361, 62eqtr3i 2766 . . . . . . . . . . . . . . . . . . . 20 ((𝑥 ·P 𝑧) +P ((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤))) = ((𝑣 ·P 𝑤) +P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)))
64 addasspr 10879 . . . . . . . . . . . . . . . . . . . . 21 (((𝑣 ·P 𝑤) +P (𝑥 ·P 𝑤)) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))) = ((𝑣 ·P 𝑤) +P ((𝑥 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))))
65 ovex 7370 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢)) ∈ V
66 ovex 7370 . . . . . . . . . . . . . . . . . . . . . 22 (𝑥 ·P 𝑤) ∈ V
6748, 65, 66, 49, 50caov32 7561 . . . . . . . . . . . . . . . . . . . . 21 (((𝑣 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))) +P (𝑥 ·P 𝑤)) = (((𝑣 ·P 𝑤) +P (𝑥 ·P 𝑤)) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢)))
68 addasspr 10879 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢)) = ((𝑥 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢)))
6968oveq2i 7348 . . . . . . . . . . . . . . . . . . . . 21 ((𝑣 ·P 𝑤) +P (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢))) = ((𝑣 ·P 𝑤) +P ((𝑥 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))))
7064, 67, 693eqtr4i 2774 . . . . . . . . . . . . . . . . . . . 20 (((𝑣 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))) +P (𝑥 ·P 𝑤)) = ((𝑣 ·P 𝑤) +P (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢)))
7160, 63, 703eqtr3g 2799 . . . . . . . . . . . . . . . . . . 19 (((𝑦 +P 𝑣) = 𝑥 ∧ (𝑤 +P 𝑢) = 𝑧) → ((𝑣 ·P 𝑤) +P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))) = ((𝑣 ·P 𝑤) +P (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢))))
72 addcanpr 10903 . . . . . . . . . . . . . . . . . . 19 (((𝑣 ·P 𝑤) ∈ P ∧ ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P) → (((𝑣 ·P 𝑤) +P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))) = ((𝑣 ·P 𝑤) +P (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢))) → ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) = (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢))))
7371, 72syl5 34 . . . . . . . . . . . . . . . . . 18 (((𝑣 ·P 𝑤) ∈ P ∧ ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P) → (((𝑦 +P 𝑣) = 𝑥 ∧ (𝑤 +P 𝑢) = 𝑧) → ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) = (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢))))
74 eqcom 2743 . . . . . . . . . . . . . . . . . . . 20 (((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) = (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢)) ↔ (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢)) = ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)))
75 ltaddpr2 10892 . . . . . . . . . . . . . . . . . . . 20 (((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P → ((((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢)) = ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))))
7674, 75biimtrid 241 . . . . . . . . . . . . . . . . . . 19 (((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P → (((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) = (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢)) → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))))
7776adantl 482 . . . . . . . . . . . . . . . . . 18 (((𝑣 ·P 𝑤) ∈ P ∧ ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P) → (((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) = (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢)) → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))))
7873, 77syld 47 . . . . . . . . . . . . . . . . 17 (((𝑣 ·P 𝑤) ∈ P ∧ ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P) → (((𝑦 +P 𝑣) = 𝑥 ∧ (𝑤 +P 𝑢) = 𝑧) → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))))
7929, 78sylan 580 . . . . . . . . . . . . . . . 16 (((𝑣P𝑤P) ∧ ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P) → (((𝑦 +P 𝑣) = 𝑥 ∧ (𝑤 +P 𝑢) = 𝑧) → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))))
8079a1d 25 . . . . . . . . . . . . . . 15 (((𝑣P𝑤P) ∧ ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P) → (𝑢P → (((𝑦 +P 𝑣) = 𝑥 ∧ (𝑤 +P 𝑢) = 𝑧) → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)))))
8180exp4a 432 . . . . . . . . . . . . . 14 (((𝑣P𝑤P) ∧ ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P) → (𝑢P → ((𝑦 +P 𝑣) = 𝑥 → ((𝑤 +P 𝑢) = 𝑧 → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))))))
8281com34 91 . . . . . . . . . . . . 13 (((𝑣P𝑤P) ∧ ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P) → (𝑢P → ((𝑤 +P 𝑢) = 𝑧 → ((𝑦 +P 𝑣) = 𝑥 → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))))))
8382rexlimdv 3146 . . . . . . . . . . . 12 (((𝑣P𝑤P) ∧ ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P) → (∃𝑢P (𝑤 +P 𝑢) = 𝑧 → ((𝑦 +P 𝑣) = 𝑥 → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)))))
8483expl 458 . . . . . . . . . . 11 (𝑣P → ((𝑤P ∧ ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P) → (∃𝑢P (𝑤 +P 𝑢) = 𝑧 → ((𝑦 +P 𝑣) = 𝑥 → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))))))
8584com24 95 . . . . . . . . . 10 (𝑣P → ((𝑦 +P 𝑣) = 𝑥 → (∃𝑢P (𝑤 +P 𝑢) = 𝑧 → ((𝑤P ∧ ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P) → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))))))
8685rexlimiv 3141 . . . . . . . . 9 (∃𝑣P (𝑦 +P 𝑣) = 𝑥 → (∃𝑢P (𝑤 +P 𝑢) = 𝑧 → ((𝑤P ∧ ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P) → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)))))
8727, 28, 86syl2im 40 . . . . . . . 8 (𝑦<P 𝑥 → (𝑤<P 𝑧 → ((𝑤P ∧ ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P) → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)))))
8887imp 407 . . . . . . 7 ((𝑦<P 𝑥𝑤<P 𝑧) → ((𝑤P ∧ ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P) → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))))
8988com12 32 . . . . . 6 ((𝑤P ∧ ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P) → ((𝑦<P 𝑥𝑤<P 𝑧) → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))))
9021, 26, 89syl2anc 584 . . . . 5 (((𝑥P𝑦P) ∧ (𝑧P𝑤P)) → ((𝑦<P 𝑥𝑤<P 𝑧) → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))))
91 mulsrpr 10933 . . . . . . 7 (((𝑥P𝑦P) ∧ (𝑧P𝑤P)) → ([⟨𝑥, 𝑦⟩] ~R ·R [⟨𝑧, 𝑤⟩] ~R ) = [⟨((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)), ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))⟩] ~R )
9291breq2d 5104 . . . . . 6 (((𝑥P𝑦P) ∧ (𝑧P𝑤P)) → (0R <R ([⟨𝑥, 𝑦⟩] ~R ·R [⟨𝑧, 𝑤⟩] ~R ) ↔ 0R <R [⟨((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)), ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))⟩] ~R ))
93 gt0srpr 10935 . . . . . 6 (0R <R [⟨((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)), ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))⟩] ~R ↔ ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)))
9492, 93bitrdi 286 . . . . 5 (((𝑥P𝑦P) ∧ (𝑧P𝑤P)) → (0R <R ([⟨𝑥, 𝑦⟩] ~R ·R [⟨𝑧, 𝑤⟩] ~R ) ↔ ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))))
9590, 94sylibrd 258 . . . 4 (((𝑥P𝑦P) ∧ (𝑧P𝑤P)) → ((𝑦<P 𝑥𝑤<P 𝑧) → 0R <R ([⟨𝑥, 𝑦⟩] ~R ·R [⟨𝑧, 𝑤⟩] ~R )))
9620, 95biimtrid 241 . . 3 (((𝑥P𝑦P) ∧ (𝑧P𝑤P)) → ((0R <R [⟨𝑥, 𝑦⟩] ~R ∧ 0R <R [⟨𝑧, 𝑤⟩] ~R ) → 0R <R ([⟨𝑥, 𝑦⟩] ~R ·R [⟨𝑧, 𝑤⟩] ~R )))
977, 12, 17, 962ecoptocl 8668 . 2 ((𝐴R𝐵R) → ((0R <R 𝐴 ∧ 0R <R 𝐵) → 0R <R (𝐴 ·R 𝐵)))
986, 97mpcom 38 1 ((0R <R 𝐴 ∧ 0R <R 𝐵) → 0R <R (𝐴 ·R 𝐵))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396   = wceq 1540  wcel 2105  wrex 3070  cop 4579   class class class wbr 5092  (class class class)co 7337  [cec 8567  Pcnp 10716   +P cpp 10718   ·P cmp 10719  <P cltp 10720   ~R cer 10721  Rcnr 10722  0Rc0r 10723   ·R cmr 10727   <R cltr 10728
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2707  ax-sep 5243  ax-nul 5250  ax-pow 5308  ax-pr 5372  ax-un 7650  ax-inf2 9498
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2886  df-ne 2941  df-ral 3062  df-rex 3071  df-rmo 3349  df-reu 3350  df-rab 3404  df-v 3443  df-sbc 3728  df-csb 3844  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-pss 3917  df-nul 4270  df-if 4474  df-pw 4549  df-sn 4574  df-pr 4576  df-op 4580  df-uni 4853  df-int 4895  df-iun 4943  df-br 5093  df-opab 5155  df-mpt 5176  df-tr 5210  df-id 5518  df-eprel 5524  df-po 5532  df-so 5533  df-fr 5575  df-we 5577  df-xp 5626  df-rel 5627  df-cnv 5628  df-co 5629  df-dm 5630  df-rn 5631  df-res 5632  df-ima 5633  df-pred 6238  df-ord 6305  df-on 6306  df-lim 6307  df-suc 6308  df-iota 6431  df-fun 6481  df-fn 6482  df-f 6483  df-f1 6484  df-fo 6485  df-f1o 6486  df-fv 6487  df-ov 7340  df-oprab 7341  df-mpo 7342  df-om 7781  df-1st 7899  df-2nd 7900  df-frecs 8167  df-wrecs 8198  df-recs 8272  df-rdg 8311  df-1o 8367  df-oadd 8371  df-omul 8372  df-er 8569  df-ec 8571  df-qs 8575  df-ni 10729  df-pli 10730  df-mi 10731  df-lti 10732  df-plpq 10765  df-mpq 10766  df-ltpq 10767  df-enq 10768  df-nq 10769  df-erq 10770  df-plq 10771  df-mq 10772  df-1nq 10773  df-rq 10774  df-ltnq 10775  df-np 10838  df-1p 10839  df-plp 10840  df-mp 10841  df-ltp 10842  df-enr 10912  df-nr 10913  df-mr 10915  df-ltr 10916  df-0r 10917
This theorem is referenced by:  sqgt0sr  10963  axpre-mulgt0  11025
  Copyright terms: Public domain W3C validator