Proof of Theorem mulsproplem6
| Step | Hyp | Ref
| Expression |
| 1 | | mulsproplem6.4 |
. . . 4
⊢ (𝜑 → 𝑄 ∈ (L‘𝐵)) |
| 2 | 1 | leftnod 28275 |
. . 3
⊢ (𝜑 → 𝑄 ∈ No) |
| 3 | | mulsproplem6.6 |
. . . 4
⊢ (𝜑 → 𝑊 ∈ (L‘𝐵)) |
| 4 | 3 | leftnod 28275 |
. . 3
⊢ (𝜑 → 𝑊 ∈ No) |
| 5 | | ltslin 28115 |
. . 3
⊢ ((𝑄 ∈ No ∧ 𝑊 ∈ No)
→ (𝑄 <s 𝑊 ∨ 𝑄 = 𝑊 ∨ 𝑊 <s 𝑄)) |
| 6 | 2, 4, 5 | syl2anc 596 |
. 2
⊢ (𝜑 → (𝑄 <s 𝑊 ∨ 𝑄 = 𝑊 ∨ 𝑊 <s 𝑄)) |
| 7 | | mulsproplem.1 |
. . . . . . . . 9
⊢ (𝜑 → ∀𝑎 ∈ No
∀𝑏 ∈ No ∀𝑐 ∈ No
∀𝑑 ∈ No ∀𝑒 ∈ No
∀𝑓 ∈ No ((((bday‘𝑎) +no (bday‘𝑏)) ∪ ((((bday‘𝑐) +no (bday‘𝑒)) ∪ ((bday‘𝑑) +no (bday‘𝑓))) ∪ (((bday‘𝑐) +no (bday‘𝑓)) ∪ ((bday‘𝑑) +no (bday‘𝑒))))) ∈ (((bday‘𝐴) +no (bday‘𝐵)) ∪ ((((bday‘𝐶) +no (bday‘𝐸)) ∪ ((bday‘𝐷) +no (bday‘𝐹))) ∪ (((bday‘𝐶) +no (bday‘𝐹)) ∪ ((bday‘𝐷) +no (bday‘𝐸))))) → ((𝑎 ·s 𝑏) ∈ No
∧ ((𝑐 <s 𝑑 ∧ 𝑒 <s 𝑓) → ((𝑐 ·s 𝑓) −s (𝑐 ·s 𝑒)) <s ((𝑑 ·s 𝑓) −s (𝑑 ·s 𝑒)))))) |
| 8 | | mulsproplem6.3 |
. . . . . . . . . 10
⊢ (𝜑 → 𝑃 ∈ (L‘𝐴)) |
| 9 | 8 | leftoldd 28274 |
. . . . . . . . 9
⊢ (𝜑 → 𝑃 ∈ (O‘(bday‘𝐴))) |
| 10 | | mulsproplem6.2 |
. . . . . . . . 9
⊢ (𝜑 → 𝐵 ∈ No) |
| 11 | 7, 9, 10 | mulsproplem2 28512 |
. . . . . . . 8
⊢ (𝜑 → (𝑃 ·s 𝐵) ∈ No) |
| 12 | | mulsproplem6.1 |
. . . . . . . . 9
⊢ (𝜑 → 𝐴 ∈ No) |
| 13 | 1 | leftoldd 28274 |
. . . . . . . . 9
⊢ (𝜑 → 𝑄 ∈ (O‘(bday‘𝐵))) |
| 14 | 7, 12, 13 | mulsproplem3 28513 |
. . . . . . . 8
⊢ (𝜑 → (𝐴 ·s 𝑄) ∈ No) |
| 15 | 11, 14 | addscld 28375 |
. . . . . . 7
⊢ (𝜑 → ((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) ∈ No) |
| 16 | 7, 9, 13 | mulsproplem4 28514 |
. . . . . . 7
⊢ (𝜑 → (𝑃 ·s 𝑄) ∈ No) |
| 17 | 15, 16 | subscld 28458 |
. . . . . 6
⊢ (𝜑 → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) ∈ No) |
| 18 | 17 | adantr 486 |
. . . . 5
⊢ ((𝜑 ∧ 𝑄 <s 𝑊) → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) ∈ No) |
| 19 | 3 | leftoldd 28274 |
. . . . . . . . 9
⊢ (𝜑 → 𝑊 ∈ (O‘(bday‘𝐵))) |
| 20 | 7, 12, 19 | mulsproplem3 28513 |
. . . . . . . 8
⊢ (𝜑 → (𝐴 ·s 𝑊) ∈ No) |
| 21 | 11, 20 | addscld 28375 |
. . . . . . 7
⊢ (𝜑 → ((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑊)) ∈ No) |
| 22 | 7, 9, 19 | mulsproplem4 28514 |
. . . . . . 7
⊢ (𝜑 → (𝑃 ·s 𝑊) ∈ No) |
| 23 | 21, 22 | subscld 28458 |
. . . . . 6
⊢ (𝜑 → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑃 ·s 𝑊)) ∈ No) |
| 24 | 23 | adantr 486 |
. . . . 5
⊢ ((𝜑 ∧ 𝑄 <s 𝑊) → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑃 ·s 𝑊)) ∈ No) |
| 25 | | mulsproplem6.5 |
. . . . . . . . . 10
⊢ (𝜑 → 𝑉 ∈ (R‘𝐴)) |
| 26 | 25 | rightoldd 28276 |
. . . . . . . . 9
⊢ (𝜑 → 𝑉 ∈ (O‘(bday‘𝐴))) |
| 27 | 7, 26, 10 | mulsproplem2 28512 |
. . . . . . . 8
⊢ (𝜑 → (𝑉 ·s 𝐵) ∈ No) |
| 28 | 27, 20 | addscld 28375 |
. . . . . . 7
⊢ (𝜑 → ((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) ∈ No) |
| 29 | 7, 26, 19 | mulsproplem4 28514 |
. . . . . . 7
⊢ (𝜑 → (𝑉 ·s 𝑊) ∈ No) |
| 30 | 28, 29 | subscld 28458 |
. . . . . 6
⊢ (𝜑 → (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊)) ∈ No) |
| 31 | 30 | adantr 486 |
. . . . 5
⊢ ((𝜑 ∧ 𝑄 <s 𝑊) → (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊)) ∈ No) |
| 32 | | sltsleft 28255 |
. . . . . . . . . . 11
⊢ (𝐴 ∈ No → (L‘𝐴) <<s {𝐴}) |
| 33 | 12, 32 | syl 18 |
. . . . . . . . . 10
⊢ (𝜑 → (L‘𝐴) <<s {𝐴}) |
| 34 | | snidg 4617 |
. . . . . . . . . . 11
⊢ (𝐴 ∈ No → 𝐴 ∈ {𝐴}) |
| 35 | 12, 34 | syl 18 |
. . . . . . . . . 10
⊢ (𝜑 → 𝐴 ∈ {𝐴}) |
| 36 | 33, 8, 35 | sltssepcd 28167 |
. . . . . . . . 9
⊢ (𝜑 → 𝑃 <s 𝐴) |
| 37 | | 0no 28204 |
. . . . . . . . . . . 12
⊢
0s ∈ No |
| 38 | 37 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝜑 → 0s ∈ No) |
| 39 | 8 | leftnod 28275 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝑃 ∈ No) |
| 40 | | bday0 28206 |
. . . . . . . . . . . . . . . 16
⊢ (bday‘ 0s ) = ∅ |
| 41 | 40, 40 | oveq12i 7436 |
. . . . . . . . . . . . . . 15
⊢ ((bday‘ 0s ) +no (bday‘ 0s )) = (∅ +no
∅) |
| 42 | | 0elon 6421 |
. . . . . . . . . . . . . . . 16
⊢ ∅
∈ On |
| 43 | | naddrid 8701 |
. . . . . . . . . . . . . . . 16
⊢ (∅
∈ On → (∅ +no ∅) = ∅) |
| 44 | 42, 43 | ax-mp 5 |
. . . . . . . . . . . . . . 15
⊢ (∅
+no ∅) = ∅ |
| 45 | 41, 44 | eqtri 2783 |
. . . . . . . . . . . . . 14
⊢ ((bday‘ 0s ) +no (bday‘ 0s )) = ∅ |
| 46 | 45 | uneq1i 4162 |
. . . . . . . . . . . . 13
⊢ (((bday‘ 0s ) +no (bday‘ 0s )) ∪ ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∪ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄))))) = (∅ ∪ ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∪ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄))))) |
| 47 | | 0un 4345 |
. . . . . . . . . . . . 13
⊢ (∅
∪ ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∪ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄))))) = ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∪ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄)))) |
| 48 | 46, 47 | eqtri 2783 |
. . . . . . . . . . . 12
⊢ (((bday‘ 0s ) +no (bday‘ 0s )) ∪ ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∪ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄))))) = ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∪ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄)))) |
| 49 | | oldbdayim 28284 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑃 ∈ (O‘(bday‘𝐴)) → (bday‘𝑃) ∈ (bday‘𝐴)) |
| 50 | 9, 49 | syl 18 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → (bday‘𝑃) ∈ (bday‘𝐴)) |
| 51 | | oldbdayim 28284 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑄 ∈ (O‘(bday‘𝐵)) → (bday‘𝑄) ∈ (bday‘𝐵)) |
| 52 | 13, 51 | syl 18 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → (bday‘𝑄) ∈ (bday‘𝐵)) |
| 53 | | bdayon 28147 |
. . . . . . . . . . . . . . . . 17
⊢ (bday‘𝐴) ∈ On |
| 54 | | bdayon 28147 |
. . . . . . . . . . . . . . . . 17
⊢ (bday‘𝐵) ∈ On |
| 55 | | naddel12 8718 |
. . . . . . . . . . . . . . . . 17
⊢ (((bday‘𝐴) ∈ On ∧ (bday‘𝐵) ∈ On) → (((bday‘𝑃) ∈ (bday‘𝐴) ∧ (bday‘𝑄) ∈ (bday‘𝐵)) → ((bday‘𝑃) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 56 | 53, 54, 55 | mp2an 705 |
. . . . . . . . . . . . . . . 16
⊢ (((bday‘𝑃) ∈ (bday‘𝐴) ∧ (bday‘𝑄) ∈ (bday‘𝐵)) → ((bday‘𝑃) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 57 | 50, 52, 56 | syl2anc 596 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → ((bday‘𝑃) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 58 | | oldbdayim 28284 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑊 ∈ (O‘(bday‘𝐵)) → (bday‘𝑊) ∈ (bday‘𝐵)) |
| 59 | 19, 58 | syl 18 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → (bday‘𝑊) ∈ (bday‘𝐵)) |
| 60 | | bdayon 28147 |
. . . . . . . . . . . . . . . . 17
⊢ (bday‘𝑊) ∈ On |
| 61 | | naddel2 8706 |
. . . . . . . . . . . . . . . . 17
⊢ (((bday‘𝑊) ∈ On ∧ (bday‘𝐵) ∈ On ∧ (bday‘𝐴) ∈ On) → ((bday‘𝑊) ∈ (bday‘𝐵) ↔ ((bday‘𝐴) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 62 | 60, 54, 53, 61 | mp3an 1490 |
. . . . . . . . . . . . . . . 16
⊢ ((bday‘𝑊) ∈ (bday‘𝐵) ↔ ((bday‘𝐴) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 63 | 59, 62 | sylib 221 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → ((bday‘𝐴) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 64 | 57, 63 | jca 521 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (((bday‘𝑃) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝐴) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 65 | | naddel12 8718 |
. . . . . . . . . . . . . . . . 17
⊢ (((bday‘𝐴) ∈ On ∧ (bday‘𝐵) ∈ On) → (((bday‘𝑃) ∈ (bday‘𝐴) ∧ (bday‘𝑊) ∈ (bday‘𝐵)) → ((bday‘𝑃) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 66 | 53, 54, 65 | mp2an 705 |
. . . . . . . . . . . . . . . 16
⊢ (((bday‘𝑃) ∈ (bday‘𝐴) ∧ (bday‘𝑊) ∈ (bday‘𝐵)) → ((bday‘𝑃) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 67 | 50, 59, 66 | syl2anc 596 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → ((bday‘𝑃) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 68 | | bdayon 28147 |
. . . . . . . . . . . . . . . . 17
⊢ (bday‘𝑄) ∈ On |
| 69 | | naddel2 8706 |
. . . . . . . . . . . . . . . . 17
⊢ (((bday‘𝑄) ∈ On ∧ (bday‘𝐵) ∈ On ∧ (bday‘𝐴) ∈ On) → ((bday‘𝑄) ∈ (bday‘𝐵) ↔ ((bday‘𝐴) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 70 | 68, 54, 53, 69 | mp3an 1490 |
. . . . . . . . . . . . . . . 16
⊢ ((bday‘𝑄) ∈ (bday‘𝐵) ↔ ((bday‘𝐴) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 71 | 52, 70 | sylib 221 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → ((bday‘𝐴) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 72 | 67, 71 | jca 521 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (((bday‘𝑃) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝐴) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 73 | | bdayon 28147 |
. . . . . . . . . . . . . . . . . 18
⊢ (bday‘𝑃) ∈ On |
| 74 | | naddcl 8694 |
. . . . . . . . . . . . . . . . . 18
⊢ (((bday‘𝑃) ∈ On ∧ (bday‘𝑄) ∈ On) → ((bday‘𝑃) +no (bday‘𝑄)) ∈ On) |
| 75 | 73, 68, 74 | mp2an 705 |
. . . . . . . . . . . . . . . . 17
⊢ ((bday‘𝑃) +no (bday‘𝑄)) ∈ On |
| 76 | | naddcl 8694 |
. . . . . . . . . . . . . . . . . 18
⊢ (((bday‘𝐴) ∈ On ∧ (bday‘𝑊) ∈ On) → ((bday‘𝐴) +no (bday‘𝑊)) ∈ On) |
| 77 | 53, 60, 76 | mp2an 705 |
. . . . . . . . . . . . . . . . 17
⊢ ((bday‘𝐴) +no (bday‘𝑊)) ∈ On |
| 78 | 75, 77 | onun2i 6489 |
. . . . . . . . . . . . . . . 16
⊢ (((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∈ On |
| 79 | | naddcl 8694 |
. . . . . . . . . . . . . . . . . 18
⊢ (((bday‘𝑃) ∈ On ∧ (bday‘𝑊) ∈ On) → ((bday‘𝑃) +no (bday‘𝑊)) ∈ On) |
| 80 | 73, 60, 79 | mp2an 705 |
. . . . . . . . . . . . . . . . 17
⊢ ((bday‘𝑃) +no (bday‘𝑊)) ∈ On |
| 81 | | naddcl 8694 |
. . . . . . . . . . . . . . . . . 18
⊢ (((bday‘𝐴) ∈ On ∧ (bday‘𝑄) ∈ On) → ((bday‘𝐴) +no (bday‘𝑄)) ∈ On) |
| 82 | 53, 68, 81 | mp2an 705 |
. . . . . . . . . . . . . . . . 17
⊢ ((bday‘𝐴) +no (bday‘𝑄)) ∈ On |
| 83 | 80, 82 | onun2i 6489 |
. . . . . . . . . . . . . . . 16
⊢ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄))) ∈ On |
| 84 | | naddcl 8694 |
. . . . . . . . . . . . . . . . 17
⊢ (((bday‘𝐴) ∈ On ∧ (bday‘𝐵) ∈ On) → ((bday‘𝐴) +no (bday‘𝐵)) ∈ On) |
| 85 | 53, 54, 84 | mp2an 705 |
. . . . . . . . . . . . . . . 16
⊢ ((bday‘𝐴) +no (bday‘𝐵)) ∈ On |
| 86 | | onunel 6473 |
. . . . . . . . . . . . . . . 16
⊢
(((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∈ On ∧ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄))) ∈ On ∧ ((bday‘𝐴) +no (bday‘𝐵)) ∈ On) → (((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∪ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄)))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄))) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 87 | 78, 83, 85, 86 | mp3an 1490 |
. . . . . . . . . . . . . . 15
⊢
(((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∪ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄)))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄))) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 88 | | onunel 6473 |
. . . . . . . . . . . . . . . . 17
⊢ ((((bday‘𝑃) +no (bday‘𝑄)) ∈ On ∧ ((bday‘𝐴) +no (bday‘𝑊)) ∈ On ∧ ((bday‘𝐴) +no (bday‘𝐵)) ∈ On) → ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ (((bday‘𝑃) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝐴) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 89 | 75, 77, 85, 88 | mp3an 1490 |
. . . . . . . . . . . . . . . 16
⊢ ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ (((bday‘𝑃) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝐴) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 90 | | onunel 6473 |
. . . . . . . . . . . . . . . . 17
⊢ ((((bday‘𝑃) +no (bday‘𝑊)) ∈ On ∧ ((bday‘𝐴) +no (bday‘𝑄)) ∈ On ∧ ((bday‘𝐴) +no (bday‘𝐵)) ∈ On) → ((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ (((bday‘𝑃) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝐴) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 91 | 80, 82, 85, 90 | mp3an 1490 |
. . . . . . . . . . . . . . . 16
⊢ ((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ (((bday‘𝑃) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝐴) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 92 | 89, 91 | anbi12i 640 |
. . . . . . . . . . . . . . 15
⊢
(((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄))) ∈ ((bday‘𝐴) +no (bday‘𝐵))) ↔ ((((bday‘𝑃) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝐴) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) ∧ (((bday‘𝑃) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝐴) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 93 | 87, 92 | bitri 278 |
. . . . . . . . . . . . . 14
⊢
(((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∪ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄)))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ ((((bday‘𝑃) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝐴) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) ∧ (((bday‘𝑃) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝐴) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 94 | 64, 72, 93 | sylanbrc 595 |
. . . . . . . . . . . . 13
⊢ (𝜑 → ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∪ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄)))) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 95 | | elun1 4179 |
. . . . . . . . . . . . 13
⊢
(((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∪ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄)))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) → ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∪ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄)))) ∈ (((bday‘𝐴) +no (bday‘𝐵)) ∪ ((((bday‘𝐶) +no (bday‘𝐸)) ∪ ((bday‘𝐷) +no (bday‘𝐹))) ∪ (((bday‘𝐶) +no (bday‘𝐹)) ∪ ((bday‘𝐷) +no (bday‘𝐸)))))) |
| 96 | 94, 95 | syl 18 |
. . . . . . . . . . . 12
⊢ (𝜑 → ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∪ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄)))) ∈ (((bday‘𝐴) +no (bday‘𝐵)) ∪ ((((bday‘𝐶) +no (bday‘𝐸)) ∪ ((bday‘𝐷) +no (bday‘𝐹))) ∪ (((bday‘𝐶) +no (bday‘𝐹)) ∪ ((bday‘𝐷) +no (bday‘𝐸)))))) |
| 97 | 48, 96 | eqeltrid 2864 |
. . . . . . . . . . 11
⊢ (𝜑 → (((bday‘ 0s ) +no (bday‘ 0s )) ∪ ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝐴) +no (bday‘𝑊))) ∪ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝐴) +no (bday‘𝑄))))) ∈ (((bday‘𝐴) +no (bday‘𝐵)) ∪ ((((bday‘𝐶) +no (bday‘𝐸)) ∪ ((bday‘𝐷) +no (bday‘𝐹))) ∪ (((bday‘𝐶) +no (bday‘𝐹)) ∪ ((bday‘𝐷) +no (bday‘𝐸)))))) |
| 98 | 7, 38, 38, 39, 12, 2, 4, 97 | mulsproplem1 28511 |
. . . . . . . . . 10
⊢ (𝜑 → (( 0s
·s 0s ) ∈ No
∧ ((𝑃 <s 𝐴 ∧ 𝑄 <s 𝑊) → ((𝑃 ·s 𝑊) −s (𝑃 ·s 𝑄)) <s ((𝐴 ·s 𝑊) −s (𝐴 ·s 𝑄))))) |
| 99 | 98 | simprd 501 |
. . . . . . . . 9
⊢ (𝜑 → ((𝑃 <s 𝐴 ∧ 𝑄 <s 𝑊) → ((𝑃 ·s 𝑊) −s (𝑃 ·s 𝑄)) <s ((𝐴 ·s 𝑊) −s (𝐴 ·s 𝑄)))) |
| 100 | 36, 99 | mpand 708 |
. . . . . . . 8
⊢ (𝜑 → (𝑄 <s 𝑊 → ((𝑃 ·s 𝑊) −s (𝑃 ·s 𝑄)) <s ((𝐴 ·s 𝑊) −s (𝐴 ·s 𝑄)))) |
| 101 | 100 | imp 412 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑄 <s 𝑊) → ((𝑃 ·s 𝑊) −s (𝑃 ·s 𝑄)) <s ((𝐴 ·s 𝑊) −s (𝐴 ·s 𝑄))) |
| 102 | 22, 20, 16, 14 | ltsubsubs3bd 28480 |
. . . . . . . . 9
⊢ (𝜑 → (((𝑃 ·s 𝑊) −s (𝑃 ·s 𝑄)) <s ((𝐴 ·s 𝑊) −s (𝐴 ·s 𝑄)) ↔ ((𝐴 ·s 𝑄) −s (𝑃 ·s 𝑄)) <s ((𝐴 ·s 𝑊) −s (𝑃 ·s 𝑊)))) |
| 103 | 14, 16 | subscld 28458 |
. . . . . . . . . 10
⊢ (𝜑 → ((𝐴 ·s 𝑄) −s (𝑃 ·s 𝑄)) ∈ No) |
| 104 | 20, 22 | subscld 28458 |
. . . . . . . . . 10
⊢ (𝜑 → ((𝐴 ·s 𝑊) −s (𝑃 ·s 𝑊)) ∈ No) |
| 105 | 103, 104,
11 | ltadds2d 28392 |
. . . . . . . . 9
⊢ (𝜑 → (((𝐴 ·s 𝑄) −s (𝑃 ·s 𝑄)) <s ((𝐴 ·s 𝑊) −s (𝑃 ·s 𝑊)) ↔ ((𝑃 ·s 𝐵) +s ((𝐴 ·s 𝑄) −s (𝑃 ·s 𝑄))) <s ((𝑃 ·s 𝐵) +s ((𝐴 ·s 𝑊) −s (𝑃 ·s 𝑊))))) |
| 106 | 102, 105 | bitrd 282 |
. . . . . . . 8
⊢ (𝜑 → (((𝑃 ·s 𝑊) −s (𝑃 ·s 𝑄)) <s ((𝐴 ·s 𝑊) −s (𝐴 ·s 𝑄)) ↔ ((𝑃 ·s 𝐵) +s ((𝐴 ·s 𝑄) −s (𝑃 ·s 𝑄))) <s ((𝑃 ·s 𝐵) +s ((𝐴 ·s 𝑊) −s (𝑃 ·s 𝑊))))) |
| 107 | 106 | adantr 486 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑄 <s 𝑊) → (((𝑃 ·s 𝑊) −s (𝑃 ·s 𝑄)) <s ((𝐴 ·s 𝑊) −s (𝐴 ·s 𝑄)) ↔ ((𝑃 ·s 𝐵) +s ((𝐴 ·s 𝑄) −s (𝑃 ·s 𝑄))) <s ((𝑃 ·s 𝐵) +s ((𝐴 ·s 𝑊) −s (𝑃 ·s 𝑊))))) |
| 108 | 101, 107 | mpbid 235 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑄 <s 𝑊) → ((𝑃 ·s 𝐵) +s ((𝐴 ·s 𝑄) −s (𝑃 ·s 𝑄))) <s ((𝑃 ·s 𝐵) +s ((𝐴 ·s 𝑊) −s (𝑃 ·s 𝑊)))) |
| 109 | 11, 14, 16 | addsubsassd 28476 |
. . . . . . 7
⊢ (𝜑 → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) = ((𝑃 ·s 𝐵) +s ((𝐴 ·s 𝑄) −s (𝑃 ·s 𝑄)))) |
| 110 | 109 | adantr 486 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑄 <s 𝑊) → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) = ((𝑃 ·s 𝐵) +s ((𝐴 ·s 𝑄) −s (𝑃 ·s 𝑄)))) |
| 111 | 11, 20, 22 | addsubsassd 28476 |
. . . . . . 7
⊢ (𝜑 → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑃 ·s 𝑊)) = ((𝑃 ·s 𝐵) +s ((𝐴 ·s 𝑊) −s (𝑃 ·s 𝑊)))) |
| 112 | 111 | adantr 486 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑄 <s 𝑊) → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑃 ·s 𝑊)) = ((𝑃 ·s 𝐵) +s ((𝐴 ·s 𝑊) −s (𝑃 ·s 𝑊)))) |
| 113 | 108, 110,
112 | 3brtr4d 5136 |
. . . . 5
⊢ ((𝜑 ∧ 𝑄 <s 𝑊) → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) <s (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑃 ·s 𝑊))) |
| 114 | | lltr 28257 |
. . . . . . . . . . 11
⊢
(L‘𝐴)
<<s (R‘𝐴) |
| 115 | 114 | a1i 11 |
. . . . . . . . . 10
⊢ (𝜑 → (L‘𝐴) <<s (R‘𝐴)) |
| 116 | 115, 8, 25 | sltssepcd 28167 |
. . . . . . . . 9
⊢ (𝜑 → 𝑃 <s 𝑉) |
| 117 | | sltsleft 28255 |
. . . . . . . . . . 11
⊢ (𝐵 ∈ No → (L‘𝐵) <<s {𝐵}) |
| 118 | 10, 117 | syl 18 |
. . . . . . . . . 10
⊢ (𝜑 → (L‘𝐵) <<s {𝐵}) |
| 119 | | snidg 4617 |
. . . . . . . . . . 11
⊢ (𝐵 ∈ No → 𝐵 ∈ {𝐵}) |
| 120 | 10, 119 | syl 18 |
. . . . . . . . . 10
⊢ (𝜑 → 𝐵 ∈ {𝐵}) |
| 121 | 118, 3, 120 | sltssepcd 28167 |
. . . . . . . . 9
⊢ (𝜑 → 𝑊 <s 𝐵) |
| 122 | 25 | rightnod 28277 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝑉 ∈ No) |
| 123 | 45 | uneq1i 4162 |
. . . . . . . . . . . . 13
⊢ (((bday‘ 0s ) +no (bday‘ 0s )) ∪ ((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊))))) = (∅ ∪ ((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊))))) |
| 124 | | 0un 4345 |
. . . . . . . . . . . . 13
⊢ (∅
∪ ((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊))))) = ((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) |
| 125 | 123, 124 | eqtri 2783 |
. . . . . . . . . . . 12
⊢ (((bday‘ 0s ) +no (bday‘ 0s )) ∪ ((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊))))) = ((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) |
| 126 | | oldbdayim 28284 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑉 ∈ (O‘(bday‘𝐴)) → (bday‘𝑉) ∈ (bday‘𝐴)) |
| 127 | 26, 126 | syl 18 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → (bday‘𝑉) ∈ (bday‘𝐴)) |
| 128 | | bdayon 28147 |
. . . . . . . . . . . . . . . . 17
⊢ (bday‘𝑉) ∈ On |
| 129 | | naddel1 8705 |
. . . . . . . . . . . . . . . . 17
⊢ (((bday‘𝑉) ∈ On ∧ (bday‘𝐴) ∈ On ∧ (bday‘𝐵) ∈ On) → ((bday‘𝑉) ∈ (bday‘𝐴) ↔ ((bday‘𝑉) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 130 | 128, 53, 54, 129 | mp3an 1490 |
. . . . . . . . . . . . . . . 16
⊢ ((bday‘𝑉) ∈ (bday‘𝐴) ↔ ((bday‘𝑉) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 131 | 127, 130 | sylib 221 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → ((bday‘𝑉) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 132 | 67, 131 | jca 521 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (((bday‘𝑃) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 133 | | naddel1 8705 |
. . . . . . . . . . . . . . . . 17
⊢ (((bday‘𝑃) ∈ On ∧ (bday‘𝐴) ∈ On ∧ (bday‘𝐵) ∈ On) → ((bday‘𝑃) ∈ (bday‘𝐴) ↔ ((bday‘𝑃) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 134 | 73, 53, 54, 133 | mp3an 1490 |
. . . . . . . . . . . . . . . 16
⊢ ((bday‘𝑃) ∈ (bday‘𝐴) ↔ ((bday‘𝑃) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 135 | 50, 134 | sylib 221 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → ((bday‘𝑃) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 136 | | naddel12 8718 |
. . . . . . . . . . . . . . . . 17
⊢ (((bday‘𝐴) ∈ On ∧ (bday‘𝐵) ∈ On) → (((bday‘𝑉) ∈ (bday‘𝐴) ∧ (bday‘𝑊) ∈ (bday‘𝐵)) → ((bday‘𝑉) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 137 | 53, 54, 136 | mp2an 705 |
. . . . . . . . . . . . . . . 16
⊢ (((bday‘𝑉) ∈ (bday‘𝐴) ∧ (bday‘𝑊) ∈ (bday‘𝐵)) → ((bday‘𝑉) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 138 | 127, 59, 137 | syl2anc 596 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → ((bday‘𝑉) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 139 | 135, 138 | jca 521 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (((bday‘𝑃) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 140 | | naddcl 8694 |
. . . . . . . . . . . . . . . . . 18
⊢ (((bday‘𝑉) ∈ On ∧ (bday‘𝐵) ∈ On) → ((bday‘𝑉) +no (bday‘𝐵)) ∈ On) |
| 141 | 128, 54, 140 | mp2an 705 |
. . . . . . . . . . . . . . . . 17
⊢ ((bday‘𝑉) +no (bday‘𝐵)) ∈ On |
| 142 | 80, 141 | onun2i 6489 |
. . . . . . . . . . . . . . . 16
⊢ (((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∈ On |
| 143 | | naddcl 8694 |
. . . . . . . . . . . . . . . . . 18
⊢ (((bday‘𝑃) ∈ On ∧ (bday‘𝐵) ∈ On) → ((bday‘𝑃) +no (bday‘𝐵)) ∈ On) |
| 144 | 73, 54, 143 | mp2an 705 |
. . . . . . . . . . . . . . . . 17
⊢ ((bday‘𝑃) +no (bday‘𝐵)) ∈ On |
| 145 | | naddcl 8694 |
. . . . . . . . . . . . . . . . . 18
⊢ (((bday‘𝑉) ∈ On ∧ (bday‘𝑊) ∈ On) → ((bday‘𝑉) +no (bday‘𝑊)) ∈ On) |
| 146 | 128, 60, 145 | mp2an 705 |
. . . . . . . . . . . . . . . . 17
⊢ ((bday‘𝑉) +no (bday‘𝑊)) ∈ On |
| 147 | 144, 146 | onun2i 6489 |
. . . . . . . . . . . . . . . 16
⊢ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊))) ∈ On |
| 148 | | onunel 6473 |
. . . . . . . . . . . . . . . 16
⊢
(((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∈ On ∧ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊))) ∈ On ∧ ((bday‘𝐴) +no (bday‘𝐵)) ∈ On) → (((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ ((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊))) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 149 | 142, 147,
85, 148 | mp3an 1490 |
. . . . . . . . . . . . . . 15
⊢
(((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ ((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊))) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 150 | | onunel 6473 |
. . . . . . . . . . . . . . . . 17
⊢ ((((bday‘𝑃) +no (bday‘𝑊)) ∈ On ∧ ((bday‘𝑉) +no (bday‘𝐵)) ∈ On ∧ ((bday‘𝐴) +no (bday‘𝐵)) ∈ On) → ((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ (((bday‘𝑃) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 151 | 80, 141, 85, 150 | mp3an 1490 |
. . . . . . . . . . . . . . . 16
⊢ ((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ (((bday‘𝑃) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 152 | | onunel 6473 |
. . . . . . . . . . . . . . . . 17
⊢ ((((bday‘𝑃) +no (bday‘𝐵)) ∈ On ∧ ((bday‘𝑉) +no (bday‘𝑊)) ∈ On ∧ ((bday‘𝐴) +no (bday‘𝐵)) ∈ On) → ((((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ (((bday‘𝑃) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 153 | 144, 146,
85, 152 | mp3an 1490 |
. . . . . . . . . . . . . . . 16
⊢ ((((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ (((bday‘𝑃) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 154 | 151, 153 | anbi12i 640 |
. . . . . . . . . . . . . . 15
⊢
(((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊))) ∈ ((bday‘𝐴) +no (bday‘𝐵))) ↔ ((((bday‘𝑃) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) ∧ (((bday‘𝑃) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 155 | 149, 154 | bitri 278 |
. . . . . . . . . . . . . 14
⊢
(((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ ((((bday‘𝑃) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) ∧ (((bday‘𝑃) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 156 | 132, 139,
155 | sylanbrc 595 |
. . . . . . . . . . . . 13
⊢ (𝜑 → ((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 157 | | elun1 4179 |
. . . . . . . . . . . . 13
⊢
(((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) → ((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) ∈ (((bday‘𝐴) +no (bday‘𝐵)) ∪ ((((bday‘𝐶) +no (bday‘𝐸)) ∪ ((bday‘𝐷) +no (bday‘𝐹))) ∪ (((bday‘𝐶) +no (bday‘𝐹)) ∪ ((bday‘𝐷) +no (bday‘𝐸)))))) |
| 158 | 156, 157 | syl 18 |
. . . . . . . . . . . 12
⊢ (𝜑 → ((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) ∈ (((bday‘𝐴) +no (bday‘𝐵)) ∪ ((((bday‘𝐶) +no (bday‘𝐸)) ∪ ((bday‘𝐷) +no (bday‘𝐹))) ∪ (((bday‘𝐶) +no (bday‘𝐹)) ∪ ((bday‘𝐷) +no (bday‘𝐸)))))) |
| 159 | 125, 158 | eqeltrid 2864 |
. . . . . . . . . . 11
⊢ (𝜑 → (((bday‘ 0s ) +no (bday‘ 0s )) ∪ ((((bday‘𝑃) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑊))))) ∈ (((bday‘𝐴) +no (bday‘𝐵)) ∪ ((((bday‘𝐶) +no (bday‘𝐸)) ∪ ((bday‘𝐷) +no (bday‘𝐹))) ∪ (((bday‘𝐶) +no (bday‘𝐹)) ∪ ((bday‘𝐷) +no (bday‘𝐸)))))) |
| 160 | 7, 38, 38, 39, 122, 4, 10, 159 | mulsproplem1 28511 |
. . . . . . . . . 10
⊢ (𝜑 → (( 0s
·s 0s ) ∈ No
∧ ((𝑃 <s 𝑉 ∧ 𝑊 <s 𝐵) → ((𝑃 ·s 𝐵) −s (𝑃 ·s 𝑊)) <s ((𝑉 ·s 𝐵) −s (𝑉 ·s 𝑊))))) |
| 161 | 160 | simprd 501 |
. . . . . . . . 9
⊢ (𝜑 → ((𝑃 <s 𝑉 ∧ 𝑊 <s 𝐵) → ((𝑃 ·s 𝐵) −s (𝑃 ·s 𝑊)) <s ((𝑉 ·s 𝐵) −s (𝑉 ·s 𝑊)))) |
| 162 | 116, 121,
161 | mp2and 712 |
. . . . . . . 8
⊢ (𝜑 → ((𝑃 ·s 𝐵) −s (𝑃 ·s 𝑊)) <s ((𝑉 ·s 𝐵) −s (𝑉 ·s 𝑊))) |
| 163 | 11, 22 | subscld 28458 |
. . . . . . . . 9
⊢ (𝜑 → ((𝑃 ·s 𝐵) −s (𝑃 ·s 𝑊)) ∈ No) |
| 164 | 27, 29 | subscld 28458 |
. . . . . . . . 9
⊢ (𝜑 → ((𝑉 ·s 𝐵) −s (𝑉 ·s 𝑊)) ∈ No) |
| 165 | 163, 164,
20 | ltadds1d 28393 |
. . . . . . . 8
⊢ (𝜑 → (((𝑃 ·s 𝐵) −s (𝑃 ·s 𝑊)) <s ((𝑉 ·s 𝐵) −s (𝑉 ·s 𝑊)) ↔ (((𝑃 ·s 𝐵) −s (𝑃 ·s 𝑊)) +s (𝐴 ·s 𝑊)) <s (((𝑉 ·s 𝐵) −s (𝑉 ·s 𝑊)) +s (𝐴 ·s 𝑊)))) |
| 166 | 162, 165 | mpbid 235 |
. . . . . . 7
⊢ (𝜑 → (((𝑃 ·s 𝐵) −s (𝑃 ·s 𝑊)) +s (𝐴 ·s 𝑊)) <s (((𝑉 ·s 𝐵) −s (𝑉 ·s 𝑊)) +s (𝐴 ·s 𝑊))) |
| 167 | 11, 20, 22 | addsubsd 28477 |
. . . . . . 7
⊢ (𝜑 → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑃 ·s 𝑊)) = (((𝑃 ·s 𝐵) −s (𝑃 ·s 𝑊)) +s (𝐴 ·s 𝑊))) |
| 168 | 27, 20, 29 | addsubsd 28477 |
. . . . . . 7
⊢ (𝜑 → (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊)) = (((𝑉 ·s 𝐵) −s (𝑉 ·s 𝑊)) +s (𝐴 ·s 𝑊))) |
| 169 | 166, 167,
168 | 3brtr4d 5136 |
. . . . . 6
⊢ (𝜑 → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑃 ·s 𝑊)) <s (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊))) |
| 170 | 169 | adantr 486 |
. . . . 5
⊢ ((𝜑 ∧ 𝑄 <s 𝑊) → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑃 ·s 𝑊)) <s (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊))) |
| 171 | 18, 24, 31, 113, 170 | ltstrd 28129 |
. . . 4
⊢ ((𝜑 ∧ 𝑄 <s 𝑊) → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) <s (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊))) |
| 172 | 171 | ex 418 |
. . 3
⊢ (𝜑 → (𝑄 <s 𝑊 → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) <s (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊)))) |
| 173 | | oveq2 7432 |
. . . . . . 7
⊢ (𝑄 = 𝑊 → (𝐴 ·s 𝑄) = (𝐴 ·s 𝑊)) |
| 174 | 173 | oveq2d 7440 |
. . . . . 6
⊢ (𝑄 = 𝑊 → ((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) = ((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑊))) |
| 175 | | oveq2 7432 |
. . . . . 6
⊢ (𝑄 = 𝑊 → (𝑃 ·s 𝑄) = (𝑃 ·s 𝑊)) |
| 176 | 174, 175 | oveq12d 7442 |
. . . . 5
⊢ (𝑄 = 𝑊 → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) = (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑃 ·s 𝑊))) |
| 177 | 176 | breq1d 5112 |
. . . 4
⊢ (𝑄 = 𝑊 → ((((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) <s (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊)) ↔ (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑃 ·s 𝑊)) <s (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊)))) |
| 178 | 169, 177 | syl5ibrcom 250 |
. . 3
⊢ (𝜑 → (𝑄 = 𝑊 → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) <s (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊)))) |
| 179 | 17 | adantr 486 |
. . . . 5
⊢ ((𝜑 ∧ 𝑊 <s 𝑄) → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) ∈ No) |
| 180 | 27, 14 | addscld 28375 |
. . . . . . 7
⊢ (𝜑 → ((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑄)) ∈ No) |
| 181 | 7, 26, 13 | mulsproplem4 28514 |
. . . . . . 7
⊢ (𝜑 → (𝑉 ·s 𝑄) ∈ No) |
| 182 | 180, 181 | subscld 28458 |
. . . . . 6
⊢ (𝜑 → (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑉 ·s 𝑄)) ∈ No) |
| 183 | 182 | adantr 486 |
. . . . 5
⊢ ((𝜑 ∧ 𝑊 <s 𝑄) → (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑉 ·s 𝑄)) ∈ No) |
| 184 | 30 | adantr 486 |
. . . . 5
⊢ ((𝜑 ∧ 𝑊 <s 𝑄) → (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊)) ∈ No) |
| 185 | 118, 1, 120 | sltssepcd 28167 |
. . . . . . . . 9
⊢ (𝜑 → 𝑄 <s 𝐵) |
| 186 | 45 | uneq1i 4162 |
. . . . . . . . . . . . 13
⊢ (((bday‘ 0s ) +no (bday‘ 0s )) ∪ ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄))))) = (∅ ∪ ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄))))) |
| 187 | | 0un 4345 |
. . . . . . . . . . . . 13
⊢ (∅
∪ ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄))))) = ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄)))) |
| 188 | 186, 187 | eqtri 2783 |
. . . . . . . . . . . 12
⊢ (((bday‘ 0s ) +no (bday‘ 0s )) ∪ ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄))))) = ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄)))) |
| 189 | 57, 131 | jca 521 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (((bday‘𝑃) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 190 | | naddel12 8718 |
. . . . . . . . . . . . . . . . 17
⊢ (((bday‘𝐴) ∈ On ∧ (bday‘𝐵) ∈ On) → (((bday‘𝑉) ∈ (bday‘𝐴) ∧ (bday‘𝑄) ∈ (bday‘𝐵)) → ((bday‘𝑉) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 191 | 53, 54, 190 | mp2an 705 |
. . . . . . . . . . . . . . . 16
⊢ (((bday‘𝑉) ∈ (bday‘𝐴) ∧ (bday‘𝑄) ∈ (bday‘𝐵)) → ((bday‘𝑉) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 192 | 127, 52, 191 | syl2anc 596 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → ((bday‘𝑉) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 193 | 135, 192 | jca 521 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (((bday‘𝑃) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 194 | 75, 141 | onun2i 6489 |
. . . . . . . . . . . . . . . 16
⊢ (((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∈ On |
| 195 | | naddcl 8694 |
. . . . . . . . . . . . . . . . . 18
⊢ (((bday‘𝑉) ∈ On ∧ (bday‘𝑄) ∈ On) → ((bday‘𝑉) +no (bday‘𝑄)) ∈ On) |
| 196 | 128, 68, 195 | mp2an 705 |
. . . . . . . . . . . . . . . . 17
⊢ ((bday‘𝑉) +no (bday‘𝑄)) ∈ On |
| 197 | 144, 196 | onun2i 6489 |
. . . . . . . . . . . . . . . 16
⊢ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∈ On |
| 198 | | onunel 6473 |
. . . . . . . . . . . . . . . 16
⊢
(((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∈ On ∧ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∈ On ∧ ((bday‘𝐴) +no (bday‘𝐵)) ∈ On) → (((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄)))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 199 | 194, 197,
85, 198 | mp3an 1490 |
. . . . . . . . . . . . . . 15
⊢
(((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄)))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 200 | | onunel 6473 |
. . . . . . . . . . . . . . . . 17
⊢ ((((bday‘𝑃) +no (bday‘𝑄)) ∈ On ∧ ((bday‘𝑉) +no (bday‘𝐵)) ∈ On ∧ ((bday‘𝐴) +no (bday‘𝐵)) ∈ On) → ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ (((bday‘𝑃) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 201 | 75, 141, 85, 200 | mp3an 1490 |
. . . . . . . . . . . . . . . 16
⊢ ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ (((bday‘𝑃) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 202 | | onunel 6473 |
. . . . . . . . . . . . . . . . 17
⊢ ((((bday‘𝑃) +no (bday‘𝐵)) ∈ On ∧ ((bday‘𝑉) +no (bday‘𝑄)) ∈ On ∧ ((bday‘𝐴) +no (bday‘𝐵)) ∈ On) → ((((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ (((bday‘𝑃) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 203 | 144, 196,
85, 202 | mp3an 1490 |
. . . . . . . . . . . . . . . 16
⊢ ((((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ (((bday‘𝑃) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 204 | 201, 203 | anbi12i 640 |
. . . . . . . . . . . . . . 15
⊢
(((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∈ ((bday‘𝐴) +no (bday‘𝐵))) ↔ ((((bday‘𝑃) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) ∧ (((bday‘𝑃) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 205 | 199, 204 | bitri 278 |
. . . . . . . . . . . . . 14
⊢
(((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄)))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ ((((bday‘𝑃) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) ∧ (((bday‘𝑃) +no (bday‘𝐵)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 206 | 189, 193,
205 | sylanbrc 595 |
. . . . . . . . . . . . 13
⊢ (𝜑 → ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄)))) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 207 | | elun1 4179 |
. . . . . . . . . . . . 13
⊢
(((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄)))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) → ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄)))) ∈ (((bday‘𝐴) +no (bday‘𝐵)) ∪ ((((bday‘𝐶) +no (bday‘𝐸)) ∪ ((bday‘𝐷) +no (bday‘𝐹))) ∪ (((bday‘𝐶) +no (bday‘𝐹)) ∪ ((bday‘𝐷) +no (bday‘𝐸)))))) |
| 208 | 206, 207 | syl 18 |
. . . . . . . . . . . 12
⊢ (𝜑 → ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄)))) ∈ (((bday‘𝐴) +no (bday‘𝐵)) ∪ ((((bday‘𝐶) +no (bday‘𝐸)) ∪ ((bday‘𝐷) +no (bday‘𝐹))) ∪ (((bday‘𝐶) +no (bday‘𝐹)) ∪ ((bday‘𝐷) +no (bday‘𝐸)))))) |
| 209 | 188, 208 | eqeltrid 2864 |
. . . . . . . . . . 11
⊢ (𝜑 → (((bday‘ 0s ) +no (bday‘ 0s )) ∪ ((((bday‘𝑃) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝐵))) ∪ (((bday‘𝑃) +no (bday‘𝐵)) ∪ ((bday‘𝑉) +no (bday‘𝑄))))) ∈ (((bday‘𝐴) +no (bday‘𝐵)) ∪ ((((bday‘𝐶) +no (bday‘𝐸)) ∪ ((bday‘𝐷) +no (bday‘𝐹))) ∪ (((bday‘𝐶) +no (bday‘𝐹)) ∪ ((bday‘𝐷) +no (bday‘𝐸)))))) |
| 210 | 7, 38, 38, 39, 122, 2, 10, 209 | mulsproplem1 28511 |
. . . . . . . . . 10
⊢ (𝜑 → (( 0s
·s 0s ) ∈ No
∧ ((𝑃 <s 𝑉 ∧ 𝑄 <s 𝐵) → ((𝑃 ·s 𝐵) −s (𝑃 ·s 𝑄)) <s ((𝑉 ·s 𝐵) −s (𝑉 ·s 𝑄))))) |
| 211 | 210 | simprd 501 |
. . . . . . . . 9
⊢ (𝜑 → ((𝑃 <s 𝑉 ∧ 𝑄 <s 𝐵) → ((𝑃 ·s 𝐵) −s (𝑃 ·s 𝑄)) <s ((𝑉 ·s 𝐵) −s (𝑉 ·s 𝑄)))) |
| 212 | 116, 185,
211 | mp2and 712 |
. . . . . . . 8
⊢ (𝜑 → ((𝑃 ·s 𝐵) −s (𝑃 ·s 𝑄)) <s ((𝑉 ·s 𝐵) −s (𝑉 ·s 𝑄))) |
| 213 | 11, 16 | subscld 28458 |
. . . . . . . . 9
⊢ (𝜑 → ((𝑃 ·s 𝐵) −s (𝑃 ·s 𝑄)) ∈ No) |
| 214 | 27, 181 | subscld 28458 |
. . . . . . . . 9
⊢ (𝜑 → ((𝑉 ·s 𝐵) −s (𝑉 ·s 𝑄)) ∈ No) |
| 215 | 213, 214,
14 | ltadds1d 28393 |
. . . . . . . 8
⊢ (𝜑 → (((𝑃 ·s 𝐵) −s (𝑃 ·s 𝑄)) <s ((𝑉 ·s 𝐵) −s (𝑉 ·s 𝑄)) ↔ (((𝑃 ·s 𝐵) −s (𝑃 ·s 𝑄)) +s (𝐴 ·s 𝑄)) <s (((𝑉 ·s 𝐵) −s (𝑉 ·s 𝑄)) +s (𝐴 ·s 𝑄)))) |
| 216 | 212, 215 | mpbid 235 |
. . . . . . 7
⊢ (𝜑 → (((𝑃 ·s 𝐵) −s (𝑃 ·s 𝑄)) +s (𝐴 ·s 𝑄)) <s (((𝑉 ·s 𝐵) −s (𝑉 ·s 𝑄)) +s (𝐴 ·s 𝑄))) |
| 217 | 11, 14, 16 | addsubsd 28477 |
. . . . . . 7
⊢ (𝜑 → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) = (((𝑃 ·s 𝐵) −s (𝑃 ·s 𝑄)) +s (𝐴 ·s 𝑄))) |
| 218 | 27, 14, 181 | addsubsd 28477 |
. . . . . . 7
⊢ (𝜑 → (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑉 ·s 𝑄)) = (((𝑉 ·s 𝐵) −s (𝑉 ·s 𝑄)) +s (𝐴 ·s 𝑄))) |
| 219 | 216, 217,
218 | 3brtr4d 5136 |
. . . . . 6
⊢ (𝜑 → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) <s (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑉 ·s 𝑄))) |
| 220 | 219 | adantr 486 |
. . . . 5
⊢ ((𝜑 ∧ 𝑊 <s 𝑄) → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) <s (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑉 ·s 𝑄))) |
| 221 | | sltsright 28256 |
. . . . . . . . . . 11
⊢ (𝐴 ∈ No → {𝐴} <<s (R‘𝐴)) |
| 222 | 12, 221 | syl 18 |
. . . . . . . . . 10
⊢ (𝜑 → {𝐴} <<s (R‘𝐴)) |
| 223 | 222, 35, 25 | sltssepcd 28167 |
. . . . . . . . 9
⊢ (𝜑 → 𝐴 <s 𝑉) |
| 224 | 45 | uneq1i 4162 |
. . . . . . . . . . . . 13
⊢ (((bday‘ 0s ) +no (bday‘ 0s )) ∪ ((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∪ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊))))) = (∅ ∪ ((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∪ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊))))) |
| 225 | | 0un 4345 |
. . . . . . . . . . . . 13
⊢ (∅
∪ ((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∪ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊))))) = ((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∪ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) |
| 226 | 224, 225 | eqtri 2783 |
. . . . . . . . . . . 12
⊢ (((bday‘ 0s ) +no (bday‘ 0s )) ∪ ((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∪ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊))))) = ((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∪ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) |
| 227 | 63, 192 | jca 521 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (((bday‘𝐴) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 228 | 71, 138 | jca 521 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (((bday‘𝐴) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 229 | 77, 196 | onun2i 6489 |
. . . . . . . . . . . . . . . 16
⊢ (((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∈ On |
| 230 | 82, 146 | onun2i 6489 |
. . . . . . . . . . . . . . . 16
⊢ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊))) ∈ On |
| 231 | | onunel 6473 |
. . . . . . . . . . . . . . . 16
⊢
(((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∈ On ∧ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊))) ∈ On ∧ ((bday‘𝐴) +no (bday‘𝐵)) ∈ On) → (((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∪ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ ((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊))) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 232 | 229, 230,
85, 231 | mp3an 1490 |
. . . . . . . . . . . . . . 15
⊢
(((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∪ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ ((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊))) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 233 | | onunel 6473 |
. . . . . . . . . . . . . . . . 17
⊢ ((((bday‘𝐴) +no (bday‘𝑊)) ∈ On ∧ ((bday‘𝑉) +no (bday‘𝑄)) ∈ On ∧ ((bday‘𝐴) +no (bday‘𝐵)) ∈ On) → ((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ (((bday‘𝐴) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 234 | 77, 196, 85, 233 | mp3an 1490 |
. . . . . . . . . . . . . . . 16
⊢ ((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ (((bday‘𝐴) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 235 | | onunel 6473 |
. . . . . . . . . . . . . . . . 17
⊢ ((((bday‘𝐴) +no (bday‘𝑄)) ∈ On ∧ ((bday‘𝑉) +no (bday‘𝑊)) ∈ On ∧ ((bday‘𝐴) +no (bday‘𝐵)) ∈ On) → ((((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ (((bday‘𝐴) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 236 | 82, 146, 85, 235 | mp3an 1490 |
. . . . . . . . . . . . . . . 16
⊢ ((((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ (((bday‘𝐴) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)))) |
| 237 | 234, 236 | anbi12i 640 |
. . . . . . . . . . . . . . 15
⊢
(((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊))) ∈ ((bday‘𝐴) +no (bday‘𝐵))) ↔ ((((bday‘𝐴) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) ∧ (((bday‘𝐴) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 238 | 232, 237 | bitri 278 |
. . . . . . . . . . . . . 14
⊢
(((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∪ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ↔ ((((bday‘𝐴) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵))) ∧ (((bday‘𝐴) +no (bday‘𝑄)) ∈ ((bday‘𝐴) +no (bday‘𝐵)) ∧ ((bday‘𝑉) +no (bday‘𝑊)) ∈ ((bday‘𝐴) +no (bday‘𝐵))))) |
| 239 | 227, 228,
238 | sylanbrc 595 |
. . . . . . . . . . . . 13
⊢ (𝜑 → ((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∪ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) ∈ ((bday‘𝐴) +no (bday‘𝐵))) |
| 240 | | elun1 4179 |
. . . . . . . . . . . . 13
⊢
(((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∪ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) ∈ ((bday‘𝐴) +no (bday‘𝐵)) → ((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∪ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) ∈ (((bday‘𝐴) +no (bday‘𝐵)) ∪ ((((bday‘𝐶) +no (bday‘𝐸)) ∪ ((bday‘𝐷) +no (bday‘𝐹))) ∪ (((bday‘𝐶) +no (bday‘𝐹)) ∪ ((bday‘𝐷) +no (bday‘𝐸)))))) |
| 241 | 239, 240 | syl 18 |
. . . . . . . . . . . 12
⊢ (𝜑 → ((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∪ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊)))) ∈ (((bday‘𝐴) +no (bday‘𝐵)) ∪ ((((bday‘𝐶) +no (bday‘𝐸)) ∪ ((bday‘𝐷) +no (bday‘𝐹))) ∪ (((bday‘𝐶) +no (bday‘𝐹)) ∪ ((bday‘𝐷) +no (bday‘𝐸)))))) |
| 242 | 226, 241 | eqeltrid 2864 |
. . . . . . . . . . 11
⊢ (𝜑 → (((bday‘ 0s ) +no (bday‘ 0s )) ∪ ((((bday‘𝐴) +no (bday‘𝑊)) ∪ ((bday‘𝑉) +no (bday‘𝑄))) ∪ (((bday‘𝐴) +no (bday‘𝑄)) ∪ ((bday‘𝑉) +no (bday‘𝑊))))) ∈ (((bday‘𝐴) +no (bday‘𝐵)) ∪ ((((bday‘𝐶) +no (bday‘𝐸)) ∪ ((bday‘𝐷) +no (bday‘𝐹))) ∪ (((bday‘𝐶) +no (bday‘𝐹)) ∪ ((bday‘𝐷) +no (bday‘𝐸)))))) |
| 243 | 7, 38, 38, 12, 122, 4, 2, 242 | mulsproplem1 28511 |
. . . . . . . . . 10
⊢ (𝜑 → (( 0s
·s 0s ) ∈ No
∧ ((𝐴 <s 𝑉 ∧ 𝑊 <s 𝑄) → ((𝐴 ·s 𝑄) −s (𝐴 ·s 𝑊)) <s ((𝑉 ·s 𝑄) −s (𝑉 ·s 𝑊))))) |
| 244 | 243 | simprd 501 |
. . . . . . . . 9
⊢ (𝜑 → ((𝐴 <s 𝑉 ∧ 𝑊 <s 𝑄) → ((𝐴 ·s 𝑄) −s (𝐴 ·s 𝑊)) <s ((𝑉 ·s 𝑄) −s (𝑉 ·s 𝑊)))) |
| 245 | 223, 244 | mpand 708 |
. . . . . . . 8
⊢ (𝜑 → (𝑊 <s 𝑄 → ((𝐴 ·s 𝑄) −s (𝐴 ·s 𝑊)) <s ((𝑉 ·s 𝑄) −s (𝑉 ·s 𝑊)))) |
| 246 | 245 | imp 412 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑊 <s 𝑄) → ((𝐴 ·s 𝑄) −s (𝐴 ·s 𝑊)) <s ((𝑉 ·s 𝑄) −s (𝑉 ·s 𝑊))) |
| 247 | 14, 181, 20, 29 | ltsubsubsbd 28478 |
. . . . . . . . 9
⊢ (𝜑 → (((𝐴 ·s 𝑄) −s (𝐴 ·s 𝑊)) <s ((𝑉 ·s 𝑄) −s (𝑉 ·s 𝑊)) ↔ ((𝐴 ·s 𝑄) −s (𝑉 ·s 𝑄)) <s ((𝐴 ·s 𝑊) −s (𝑉 ·s 𝑊)))) |
| 248 | 14, 181 | subscld 28458 |
. . . . . . . . . 10
⊢ (𝜑 → ((𝐴 ·s 𝑄) −s (𝑉 ·s 𝑄)) ∈ No) |
| 249 | 20, 29 | subscld 28458 |
. . . . . . . . . 10
⊢ (𝜑 → ((𝐴 ·s 𝑊) −s (𝑉 ·s 𝑊)) ∈ No) |
| 250 | 248, 249,
27 | ltadds2d 28392 |
. . . . . . . . 9
⊢ (𝜑 → (((𝐴 ·s 𝑄) −s (𝑉 ·s 𝑄)) <s ((𝐴 ·s 𝑊) −s (𝑉 ·s 𝑊)) ↔ ((𝑉 ·s 𝐵) +s ((𝐴 ·s 𝑄) −s (𝑉 ·s 𝑄))) <s ((𝑉 ·s 𝐵) +s ((𝐴 ·s 𝑊) −s (𝑉 ·s 𝑊))))) |
| 251 | 247, 250 | bitrd 282 |
. . . . . . . 8
⊢ (𝜑 → (((𝐴 ·s 𝑄) −s (𝐴 ·s 𝑊)) <s ((𝑉 ·s 𝑄) −s (𝑉 ·s 𝑊)) ↔ ((𝑉 ·s 𝐵) +s ((𝐴 ·s 𝑄) −s (𝑉 ·s 𝑄))) <s ((𝑉 ·s 𝐵) +s ((𝐴 ·s 𝑊) −s (𝑉 ·s 𝑊))))) |
| 252 | 251 | adantr 486 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑊 <s 𝑄) → (((𝐴 ·s 𝑄) −s (𝐴 ·s 𝑊)) <s ((𝑉 ·s 𝑄) −s (𝑉 ·s 𝑊)) ↔ ((𝑉 ·s 𝐵) +s ((𝐴 ·s 𝑄) −s (𝑉 ·s 𝑄))) <s ((𝑉 ·s 𝐵) +s ((𝐴 ·s 𝑊) −s (𝑉 ·s 𝑊))))) |
| 253 | 246, 252 | mpbid 235 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑊 <s 𝑄) → ((𝑉 ·s 𝐵) +s ((𝐴 ·s 𝑄) −s (𝑉 ·s 𝑄))) <s ((𝑉 ·s 𝐵) +s ((𝐴 ·s 𝑊) −s (𝑉 ·s 𝑊)))) |
| 254 | 27, 14, 181 | addsubsassd 28476 |
. . . . . . 7
⊢ (𝜑 → (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑉 ·s 𝑄)) = ((𝑉 ·s 𝐵) +s ((𝐴 ·s 𝑄) −s (𝑉 ·s 𝑄)))) |
| 255 | 254 | adantr 486 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑊 <s 𝑄) → (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑉 ·s 𝑄)) = ((𝑉 ·s 𝐵) +s ((𝐴 ·s 𝑄) −s (𝑉 ·s 𝑄)))) |
| 256 | 27, 20, 29 | addsubsassd 28476 |
. . . . . . 7
⊢ (𝜑 → (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊)) = ((𝑉 ·s 𝐵) +s ((𝐴 ·s 𝑊) −s (𝑉 ·s 𝑊)))) |
| 257 | 256 | adantr 486 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑊 <s 𝑄) → (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊)) = ((𝑉 ·s 𝐵) +s ((𝐴 ·s 𝑊) −s (𝑉 ·s 𝑊)))) |
| 258 | 253, 255,
257 | 3brtr4d 5136 |
. . . . 5
⊢ ((𝜑 ∧ 𝑊 <s 𝑄) → (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑉 ·s 𝑄)) <s (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊))) |
| 259 | 179, 183,
184, 220, 258 | ltstrd 28129 |
. . . 4
⊢ ((𝜑 ∧ 𝑊 <s 𝑄) → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) <s (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊))) |
| 260 | 259 | ex 418 |
. . 3
⊢ (𝜑 → (𝑊 <s 𝑄 → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) <s (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊)))) |
| 261 | 172, 178,
260 | 3jaod 1456 |
. 2
⊢ (𝜑 → ((𝑄 <s 𝑊 ∨ 𝑄 = 𝑊 ∨ 𝑊 <s 𝑄) → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) <s (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊)))) |
| 262 | 6, 261 | mpd 16 |
1
⊢ (𝜑 → (((𝑃 ·s 𝐵) +s (𝐴 ·s 𝑄)) −s (𝑃 ·s 𝑄)) <s (((𝑉 ·s 𝐵) +s (𝐴 ·s 𝑊)) −s (𝑉 ·s 𝑊))) |