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

Theorem mulgt0sr 10138
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 10101 . . . . 5 <R ⊆ (R × R)
21brel 5325 . . . 4 (0R <R 𝐴 → (0RR𝐴R))
32simprd 482 . . 3 (0R <R 𝐴𝐴R)
41brel 5325 . . . 4 (0R <R 𝐵 → (0RR𝐵R))
54simprd 482 . . 3 (0R <R 𝐵𝐵R)
63, 5anim12i 591 . 2 ((0R <R 𝐴 ∧ 0R <R 𝐵) → (𝐴R𝐵R))
7 df-nr 10090 . . 3 R = ((P × P) / ~R )
8 breq2 4808 . . . . 5 ([⟨𝑥, 𝑦⟩] ~R = 𝐴 → (0R <R [⟨𝑥, 𝑦⟩] ~R ↔ 0R <R 𝐴))
98anbi1d 743 . . . 4 ([⟨𝑥, 𝑦⟩] ~R = 𝐴 → ((0R <R [⟨𝑥, 𝑦⟩] ~R ∧ 0R <R [⟨𝑧, 𝑤⟩] ~R ) ↔ (0R <R 𝐴 ∧ 0R <R [⟨𝑧, 𝑤⟩] ~R )))
10 oveq1 6821 . . . . 5 ([⟨𝑥, 𝑦⟩] ~R = 𝐴 → ([⟨𝑥, 𝑦⟩] ~R ·R [⟨𝑧, 𝑤⟩] ~R ) = (𝐴 ·R [⟨𝑧, 𝑤⟩] ~R ))
1110breq2d 4816 . . . 4 ([⟨𝑥, 𝑦⟩] ~R = 𝐴 → (0R <R ([⟨𝑥, 𝑦⟩] ~R ·R [⟨𝑧, 𝑤⟩] ~R ) ↔ 0R <R (𝐴 ·R [⟨𝑧, 𝑤⟩] ~R )))
129, 11imbi12d 333 . . 3 ([⟨𝑥, 𝑦⟩] ~R = 𝐴 → (((0R <R [⟨𝑥, 𝑦⟩] ~R ∧ 0R <R [⟨𝑧, 𝑤⟩] ~R ) → 0R <R ([⟨𝑥, 𝑦⟩] ~R ·R [⟨𝑧, 𝑤⟩] ~R )) ↔ ((0R <R 𝐴 ∧ 0R <R [⟨𝑧, 𝑤⟩] ~R ) → 0R <R (𝐴 ·R [⟨𝑧, 𝑤⟩] ~R ))))
13 breq2 4808 . . . . 5 ([⟨𝑧, 𝑤⟩] ~R = 𝐵 → (0R <R [⟨𝑧, 𝑤⟩] ~R ↔ 0R <R 𝐵))
1413anbi2d 742 . . . 4 ([⟨𝑧, 𝑤⟩] ~R = 𝐵 → ((0R <R 𝐴 ∧ 0R <R [⟨𝑧, 𝑤⟩] ~R ) ↔ (0R <R 𝐴 ∧ 0R <R 𝐵)))
15 oveq2 6822 . . . . 5 ([⟨𝑧, 𝑤⟩] ~R = 𝐵 → (𝐴 ·R [⟨𝑧, 𝑤⟩] ~R ) = (𝐴 ·R 𝐵))
1615breq2d 4816 . . . 4 ([⟨𝑧, 𝑤⟩] ~R = 𝐵 → (0R <R (𝐴 ·R [⟨𝑧, 𝑤⟩] ~R ) ↔ 0R <R (𝐴 ·R 𝐵)))
1714, 16imbi12d 333 . . 3 ([⟨𝑧, 𝑤⟩] ~R = 𝐵 → (((0R <R 𝐴 ∧ 0R <R [⟨𝑧, 𝑤⟩] ~R ) → 0R <R (𝐴 ·R [⟨𝑧, 𝑤⟩] ~R )) ↔ ((0R <R 𝐴 ∧ 0R <R 𝐵) → 0R <R (𝐴 ·R 𝐵))))
18 gt0srpr 10111 . . . . 5 (0R <R [⟨𝑥, 𝑦⟩] ~R𝑦<P 𝑥)
19 gt0srpr 10111 . . . . 5 (0R <R [⟨𝑧, 𝑤⟩] ~R𝑤<P 𝑧)
2018, 19anbi12i 735 . . . 4 ((0R <R [⟨𝑥, 𝑦⟩] ~R ∧ 0R <R [⟨𝑧, 𝑤⟩] ~R ) ↔ (𝑦<P 𝑥𝑤<P 𝑧))
21 simprr 813 . . . . . 6 (((𝑥P𝑦P) ∧ (𝑧P𝑤P)) → 𝑤P)
22 mulclpr 10054 . . . . . . . 8 ((𝑥P𝑧P) → (𝑥 ·P 𝑧) ∈ P)
23 mulclpr 10054 . . . . . . . 8 ((𝑦P𝑤P) → (𝑦 ·P 𝑤) ∈ P)
24 addclpr 10052 . . . . . . . 8 (((𝑥 ·P 𝑧) ∈ P ∧ (𝑦 ·P 𝑤) ∈ P) → ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P)
2522, 23, 24syl2an 495 . . . . . . 7 (((𝑥P𝑧P) ∧ (𝑦P𝑤P)) → ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P)
2625an4s 904 . . . . . 6 (((𝑥P𝑦P) ∧ (𝑧P𝑤P)) → ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P)
27 ltexpri 10077 . . . . . . . . 9 (𝑦<P 𝑥 → ∃𝑣P (𝑦 +P 𝑣) = 𝑥)
28 ltexpri 10077 . . . . . . . . 9 (𝑤<P 𝑧 → ∃𝑢P (𝑤 +P 𝑢) = 𝑧)
29 mulclpr 10054 . . . . . . . . . . . . . . . . 17 ((𝑣P𝑤P) → (𝑣 ·P 𝑤) ∈ P)
30 oveq12 6823 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑦 +P 𝑣) = 𝑥 ∧ (𝑤 +P 𝑢) = 𝑧) → ((𝑦 +P 𝑣) ·P (𝑤 +P 𝑢)) = (𝑥 ·P 𝑧))
3130oveq1d 6829 . . . . . . . . . . . . . . . . . . . . 21 (((𝑦 +P 𝑣) = 𝑥 ∧ (𝑤 +P 𝑢) = 𝑧) → (((𝑦 +P 𝑣) ·P (𝑤 +P 𝑢)) +P ((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤))) = ((𝑥 ·P 𝑧) +P ((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤))))
32 distrpr 10062 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ·P (𝑤 +P 𝑢)) = ((𝑦 ·P 𝑤) +P (𝑦 ·P 𝑢))
33 oveq2 6822 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑤 +P 𝑢) = 𝑧 → (𝑦 ·P (𝑤 +P 𝑢)) = (𝑦 ·P 𝑧))
3432, 33syl5eqr 2808 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑤 +P 𝑢) = 𝑧 → ((𝑦 ·P 𝑤) +P (𝑦 ·P 𝑢)) = (𝑦 ·P 𝑧))
3534oveq1d 6829 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑤 +P 𝑢) = 𝑧 → (((𝑦 ·P 𝑤) +P (𝑦 ·P 𝑢)) +P ((𝑣 ·P 𝑤) +P (𝑣 ·P 𝑢))) = ((𝑦 ·P 𝑧) +P ((𝑣 ·P 𝑤) +P (𝑣 ·P 𝑢))))
36 vex 3343 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑦 ∈ V
37 vex 3343 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑣 ∈ V
38 vex 3343 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑤 ∈ V
39 mulcompr 10057 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑓 ·P 𝑔) = (𝑔 ·P 𝑓)
40 distrpr 10062 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑓 ·P (𝑔 +P )) = ((𝑓 ·P 𝑔) +P (𝑓 ·P ))
4136, 37, 38, 39, 40caovdir 7034 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑦 +P 𝑣) ·P 𝑤) = ((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤))
42 vex 3343 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑢 ∈ V
4336, 37, 42, 39, 40caovdir 7034 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑦 +P 𝑣) ·P 𝑢) = ((𝑦 ·P 𝑢) +P (𝑣 ·P 𝑢))
4441, 43oveq12i 6826 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑦 +P 𝑣) ·P 𝑤) +P ((𝑦 +P 𝑣) ·P 𝑢)) = (((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤)) +P ((𝑦 ·P 𝑢) +P (𝑣 ·P 𝑢)))
45 distrpr 10062 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑦 +P 𝑣) ·P (𝑤 +P 𝑢)) = (((𝑦 +P 𝑣) ·P 𝑤) +P ((𝑦 +P 𝑣) ·P 𝑢))
46 ovex 6842 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ·P 𝑤) ∈ V
47 ovex 6842 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ·P 𝑢) ∈ V
48 ovex 6842 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑣 ·P 𝑤) ∈ V
49 addcompr 10055 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑓 +P 𝑔) = (𝑔 +P 𝑓)
50 addasspr 10056 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑓 +P 𝑔) +P ) = (𝑓 +P (𝑔 +P ))
51 ovex 6842 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑣 ·P 𝑢) ∈ V
5246, 47, 48, 49, 50, 51caov4 7031 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑦 ·P 𝑤) +P (𝑦 ·P 𝑢)) +P ((𝑣 ·P 𝑤) +P (𝑣 ·P 𝑢))) = (((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤)) +P ((𝑦 ·P 𝑢) +P (𝑣 ·P 𝑢)))
5344, 45, 523eqtr4i 2792 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑦 +P 𝑣) ·P (𝑤 +P 𝑢)) = (((𝑦 ·P 𝑤) +P (𝑦 ·P 𝑢)) +P ((𝑣 ·P 𝑤) +P (𝑣 ·P 𝑢)))
54 ovex 6842 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 ·P 𝑧) ∈ V
5548, 54, 51, 49, 50caov12 7028 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑣 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))) = ((𝑦 ·P 𝑧) +P ((𝑣 ·P 𝑤) +P (𝑣 ·P 𝑢)))
5635, 53, 553eqtr4g 2819 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑤 +P 𝑢) = 𝑧 → ((𝑦 +P 𝑣) ·P (𝑤 +P 𝑢)) = ((𝑣 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))))
57 oveq1 6821 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑦 +P 𝑣) = 𝑥 → ((𝑦 +P 𝑣) ·P 𝑤) = (𝑥 ·P 𝑤))
5841, 57syl5eqr 2808 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑦 +P 𝑣) = 𝑥 → ((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤)) = (𝑥 ·P 𝑤))
5956, 58oveqan12rd 6834 . . . . . . . . . . . . . . . . . . . . 21 (((𝑦 +P 𝑣) = 𝑥 ∧ (𝑤 +P 𝑢) = 𝑧) → (((𝑦 +P 𝑣) ·P (𝑤 +P 𝑢)) +P ((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤))) = (((𝑣 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))) +P (𝑥 ·P 𝑤)))
6031, 59eqtr3d 2796 . . . . . . . . . . . . . . . . . . . 20 (((𝑦 +P 𝑣) = 𝑥 ∧ (𝑤 +P 𝑢) = 𝑧) → ((𝑥 ·P 𝑧) +P ((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤))) = (((𝑣 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))) +P (𝑥 ·P 𝑤)))
61 addasspr 10056 . . . . . . . . . . . . . . . . . . . . 21 (((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) +P (𝑣 ·P 𝑤)) = ((𝑥 ·P 𝑧) +P ((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤)))
62 addcompr 10055 . . . . . . . . . . . . . . . . . . . . 21 (((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) +P (𝑣 ·P 𝑤)) = ((𝑣 ·P 𝑤) +P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)))
6361, 62eqtr3i 2784 . . . . . . . . . . . . . . . . . . . 20 ((𝑥 ·P 𝑧) +P ((𝑦 ·P 𝑤) +P (𝑣 ·P 𝑤))) = ((𝑣 ·P 𝑤) +P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)))
64 addasspr 10056 . . . . . . . . . . . . . . . . . . . . 21 (((𝑣 ·P 𝑤) +P (𝑥 ·P 𝑤)) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))) = ((𝑣 ·P 𝑤) +P ((𝑥 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))))
65 ovex 6842 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢)) ∈ V
66 ovex 6842 . . . . . . . . . . . . . . . . . . . . . 22 (𝑥 ·P 𝑤) ∈ V
6748, 65, 66, 49, 50caov32 7027 . . . . . . . . . . . . . . . . . . . . 21 (((𝑣 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))) +P (𝑥 ·P 𝑤)) = (((𝑣 ·P 𝑤) +P (𝑥 ·P 𝑤)) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢)))
68 addasspr 10056 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢)) = ((𝑥 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢)))
6968oveq2i 6825 . . . . . . . . . . . . . . . . . . . . 21 ((𝑣 ·P 𝑤) +P (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢))) = ((𝑣 ·P 𝑤) +P ((𝑥 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))))
7064, 67, 693eqtr4i 2792 . . . . . . . . . . . . . . . . . . . 20 (((𝑣 ·P 𝑤) +P ((𝑦 ·P 𝑧) +P (𝑣 ·P 𝑢))) +P (𝑥 ·P 𝑤)) = ((𝑣 ·P 𝑤) +P (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢)))
7160, 63, 703eqtr3g 2817 . . . . . . . . . . . . . . . . . . 19 (((𝑦 +P 𝑣) = 𝑥 ∧ (𝑤 +P 𝑢) = 𝑧) → ((𝑣 ·P 𝑤) +P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))) = ((𝑣 ·P 𝑤) +P (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢))))
72 addcanpr 10080 . . . . . . . . . . . . . . . . . . 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 2767 . . . . . . . . . . . . . . . . . . . 20 (((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) = (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢)) ↔ (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢)) = ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)))
75 ltaddpr2 10069 . . . . . . . . . . . . . . . . . . . 20 (((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P → ((((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢)) = ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))))
7674, 75syl5bi 232 . . . . . . . . . . . . . . . . . . 19 (((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P → (((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) = (((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧)) +P (𝑣 ·P 𝑢)) → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))))
7776adantl 473 . . . . . . . . . . . . . . . . . 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 489 . . . . . . . . . . . . . . . 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 634 . . . . . . . . . . . . . 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 3168 . . . . . . . . . . . 12 (((𝑣P𝑤P) ∧ ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)) ∈ P) → (∃𝑢P (𝑤 +P 𝑢) = 𝑧 → ((𝑦 +P 𝑣) = 𝑥 → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)))))
8483expl 649 . . . . . . . . . . 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 3165 . . . . . . . . 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 444 . . . . . . 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 696 . . . . 5 (((𝑥P𝑦P) ∧ (𝑧P𝑤P)) → ((𝑦<P 𝑥𝑤<P 𝑧) → ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))))
91 mulsrpr 10109 . . . . . . 7 (((𝑥P𝑦P) ∧ (𝑧P𝑤P)) → ([⟨𝑥, 𝑦⟩] ~R ·R [⟨𝑧, 𝑤⟩] ~R ) = [⟨((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)), ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))⟩] ~R )
9291breq2d 4816 . . . . . 6 (((𝑥P𝑦P) ∧ (𝑧P𝑤P)) → (0R <R ([⟨𝑥, 𝑦⟩] ~R ·R [⟨𝑧, 𝑤⟩] ~R ) ↔ 0R <R [⟨((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)), ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))⟩] ~R ))
93 gt0srpr 10111 . . . . . 6 (0R <R [⟨((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)), ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))⟩] ~R ↔ ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤)))
9492, 93syl6bb 276 . . . . 5 (((𝑥P𝑦P) ∧ (𝑧P𝑤P)) → (0R <R ([⟨𝑥, 𝑦⟩] ~R ·R [⟨𝑧, 𝑤⟩] ~R ) ↔ ((𝑥 ·P 𝑤) +P (𝑦 ·P 𝑧))<P ((𝑥 ·P 𝑧) +P (𝑦 ·P 𝑤))))
9590, 94sylibrd 249 . . . 4 (((𝑥P𝑦P) ∧ (𝑧P𝑤P)) → ((𝑦<P 𝑥𝑤<P 𝑧) → 0R <R ([⟨𝑥, 𝑦⟩] ~R ·R [⟨𝑧, 𝑤⟩] ~R )))
9620, 95syl5bi 232 . . 3 (((𝑥P𝑦P) ∧ (𝑧P𝑤P)) → ((0R <R [⟨𝑥, 𝑦⟩] ~R ∧ 0R <R [⟨𝑧, 𝑤⟩] ~R ) → 0R <R ([⟨𝑥, 𝑦⟩] ~R ·R [⟨𝑧, 𝑤⟩] ~R )))
977, 12, 17, 962ecoptocl 8007 . 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 383   = wceq 1632  wcel 2139  wrex 3051  cop 4327   class class class wbr 4804  (class class class)co 6814  [cec 7911  Pcnp 9893   +P cpp 9895   ·P cmp 9896  <P cltp 9897   ~R cer 9898  Rcnr 9899  0Rc0r 9900   ·R cmr 9904   <R cltr 9905
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1871  ax-4 1886  ax-5 1988  ax-6 2054  ax-7 2090  ax-8 2141  ax-9 2148  ax-10 2168  ax-11 2183  ax-12 2196  ax-13 2391  ax-ext 2740  ax-sep 4933  ax-nul 4941  ax-pow 4992  ax-pr 5055  ax-un 7115  ax-inf2 8713
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1635  df-ex 1854  df-nf 1859  df-sb 2047  df-eu 2611  df-mo 2612  df-clab 2747  df-cleq 2753  df-clel 2756  df-nfc 2891  df-ne 2933  df-ral 3055  df-rex 3056  df-reu 3057  df-rmo 3058  df-rab 3059  df-v 3342  df-sbc 3577  df-csb 3675  df-dif 3718  df-un 3720  df-in 3722  df-ss 3729  df-pss 3731  df-nul 4059  df-if 4231  df-pw 4304  df-sn 4322  df-pr 4324  df-tp 4326  df-op 4328  df-uni 4589  df-int 4628  df-iun 4674  df-br 4805  df-opab 4865  df-mpt 4882  df-tr 4905  df-id 5174  df-eprel 5179  df-po 5187  df-so 5188  df-fr 5225  df-we 5227  df-xp 5272  df-rel 5273  df-cnv 5274  df-co 5275  df-dm 5276  df-rn 5277  df-res 5278  df-ima 5279  df-pred 5841  df-ord 5887  df-on 5888  df-lim 5889  df-suc 5890  df-iota 6012  df-fun 6051  df-fn 6052  df-f 6053  df-f1 6054  df-fo 6055  df-f1o 6056  df-fv 6057  df-ov 6817  df-oprab 6818  df-mpt2 6819  df-om 7232  df-1st 7334  df-2nd 7335  df-wrecs 7577  df-recs 7638  df-rdg 7676  df-1o 7730  df-oadd 7734  df-omul 7735  df-er 7913  df-ec 7915  df-qs 7919  df-ni 9906  df-pli 9907  df-mi 9908  df-lti 9909  df-plpq 9942  df-mpq 9943  df-ltpq 9944  df-enq 9945  df-nq 9946  df-erq 9947  df-plq 9948  df-mq 9949  df-1nq 9950  df-rq 9951  df-ltnq 9952  df-np 10015  df-1p 10016  df-plp 10017  df-mp 10018  df-ltp 10019  df-enr 10089  df-nr 10090  df-mr 10092  df-ltr 10093  df-0r 10094
This theorem is referenced by:  sqgt0sr  10139  axpre-mulgt0  10201
  Copyright terms: Public domain W3C validator