Proof of Theorem onnolt
| Step | Hyp | Ref
| Expression |
| 1 | | simplr 781 |
. . . . . . 7
⊢ (((𝐴 ∈ Ons ∧
𝐵 ∈ No) ∧ (bday‘𝐵) ∈ (bday‘𝐴)) → 𝐵 ∈ No) |
| 2 | | onno 28641 |
. . . . . . . . 9
⊢ (𝐴 ∈ Ons →
𝐴 ∈ No) |
| 3 | 2 | adantr 486 |
. . . . . . . 8
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No) → 𝐴 ∈ No) |
| 4 | 3 | adantr 486 |
. . . . . . 7
⊢ (((𝐴 ∈ Ons ∧
𝐵 ∈ No) ∧ (bday‘𝐵) ∈ (bday‘𝐴)) → 𝐴 ∈ No) |
| 5 | | bdayon 28138 |
. . . . . . . . . . 11
⊢ (bday‘𝐴) ∈ On |
| 6 | | simpr 490 |
. . . . . . . . . . 11
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No) → 𝐵 ∈ No) |
| 7 | | oldbday 28287 |
. . . . . . . . . . 11
⊢ (((bday‘𝐴) ∈ On ∧ 𝐵 ∈ No)
→ (𝐵 ∈
(O‘(bday‘𝐴)) ↔ (bday‘𝐵) ∈ (bday‘𝐴))) |
| 8 | 5, 6, 7 | sylancr 599 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No) → (𝐵 ∈ (O‘(bday‘𝐴)) ↔ (bday‘𝐵) ∈ (bday‘𝐴))) |
| 9 | | onleft 28646 |
. . . . . . . . . . . 12
⊢ (𝐴 ∈ Ons →
(O‘(bday‘𝐴)) = (L‘𝐴)) |
| 10 | 9 | eleq2d 2846 |
. . . . . . . . . . 11
⊢ (𝐴 ∈ Ons →
(𝐵 ∈ (O‘(bday‘𝐴)) ↔ 𝐵 ∈ (L‘𝐴))) |
| 11 | 10 | adantr 486 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No) → (𝐵 ∈ (O‘(bday‘𝐴)) ↔ 𝐵 ∈ (L‘𝐴))) |
| 12 | 8, 11 | bitr3d 284 |
. . . . . . . . 9
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No) → ((bday‘𝐵) ∈ (bday‘𝐴) ↔ 𝐵 ∈ (L‘𝐴))) |
| 13 | | leftlt 28239 |
. . . . . . . . 9
⊢ (𝐵 ∈ (L‘𝐴) → 𝐵 <s 𝐴) |
| 14 | 12, 13 | biimtrdi 256 |
. . . . . . . 8
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No) → ((bday‘𝐵) ∈ (bday‘𝐴) → 𝐵 <s 𝐴)) |
| 15 | 14 | imp 412 |
. . . . . . 7
⊢ (((𝐴 ∈ Ons ∧
𝐵 ∈ No) ∧ (bday‘𝐵) ∈ (bday‘𝐴)) → 𝐵 <s 𝐴) |
| 16 | 1, 4, 15 | ltlesd 28130 |
. . . . . 6
⊢ (((𝐴 ∈ Ons ∧
𝐵 ∈ No) ∧ (bday‘𝐵) ∈ (bday‘𝐴)) → 𝐵 ≤s 𝐴) |
| 17 | 16 | ex 418 |
. . . . 5
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No) → ((bday‘𝐵) ∈ (bday‘𝐴) → 𝐵 ≤s 𝐴)) |
| 18 | | leftssold 28257 |
. . . . . . . 8
⊢
(L‘𝐵) ⊆
(O‘(bday‘𝐵)) |
| 19 | | fveq2 6885 |
. . . . . . . . . 10
⊢ ((bday‘𝐵) = (bday‘𝐴) → (O‘(bday‘𝐵)) = (O‘(bday‘𝐴))) |
| 20 | 19 | 3ad2ant3 1153 |
. . . . . . . . 9
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No ∧ (bday‘𝐵) = (bday‘𝐴)) → (O‘(bday‘𝐵)) = (O‘(bday‘𝐴))) |
| 21 | 9 | 3ad2ant1 1151 |
. . . . . . . . 9
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No ∧ (bday‘𝐵) = (bday‘𝐴)) → (O‘(bday‘𝐴)) = (L‘𝐴)) |
| 22 | 20, 21 | eqtrd 2795 |
. . . . . . . 8
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No ∧ (bday‘𝐵) = (bday‘𝐴)) → (O‘(bday‘𝐵)) = (L‘𝐴)) |
| 23 | 18, 22 | sseqtrid 3950 |
. . . . . . 7
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No ∧ (bday‘𝐵) = (bday‘𝐴)) → (L‘𝐵) ⊆ (L‘𝐴)) |
| 24 | | simp2 1155 |
. . . . . . . 8
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No ∧ (bday‘𝐵) = (bday‘𝐴)) → 𝐵 ∈ No) |
| 25 | 2 | 3ad2ant1 1151 |
. . . . . . . 8
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No ∧ (bday‘𝐵) = (bday‘𝐴)) → 𝐴 ∈ No) |
| 26 | | simp3 1156 |
. . . . . . . 8
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No ∧ (bday‘𝐵) = (bday‘𝐴)) → (bday‘𝐵) = (bday‘𝐴)) |
| 27 | | leslss 28295 |
. . . . . . . 8
⊢ ((𝐵 ∈ No ∧ 𝐴 ∈ No
∧ (bday‘𝐵) = (bday‘𝐴)) → (𝐵 ≤s 𝐴 ↔ (L‘𝐵) ⊆ (L‘𝐴))) |
| 28 | 24, 25, 26, 27 | syl3anc 1398 |
. . . . . . 7
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No ∧ (bday‘𝐵) = (bday‘𝐴)) → (𝐵 ≤s 𝐴 ↔ (L‘𝐵) ⊆ (L‘𝐴))) |
| 29 | 23, 28 | mpbird 260 |
. . . . . 6
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No ∧ (bday‘𝐵) = (bday‘𝐴)) → 𝐵 ≤s 𝐴) |
| 30 | 29 | 3expia 1139 |
. . . . 5
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No) → ((bday‘𝐵) = (bday‘𝐴) → 𝐵 ≤s 𝐴)) |
| 31 | 17, 30 | jaod 873 |
. . . 4
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No) → (((bday‘𝐵) ∈ (bday‘𝐴) ∨ (bday‘𝐵) = (bday‘𝐴)) → 𝐵 ≤s 𝐴)) |
| 32 | | bdayon 28138 |
. . . . . . 7
⊢ (bday‘𝐵) ∈ On |
| 33 | 32, 5 | onsseli 6485 |
. . . . . 6
⊢ ((bday‘𝐵) ⊆ (bday‘𝐴) ↔ ((bday‘𝐵) ∈ (bday‘𝐴) ∨ (bday‘𝐵) = (bday‘𝐴))) |
| 34 | | ontri1 6397 |
. . . . . . 7
⊢ (((bday‘𝐵) ∈ On ∧ (bday‘𝐴) ∈ On) → ((bday‘𝐵) ⊆ (bday‘𝐴) ↔ ¬ (bday‘𝐴) ∈ (bday‘𝐵))) |
| 35 | 32, 5, 34 | mp2an 705 |
. . . . . 6
⊢ ((bday‘𝐵) ⊆ (bday‘𝐴) ↔ ¬ (bday‘𝐴) ∈ (bday‘𝐵)) |
| 36 | 33, 35 | bitr3i 280 |
. . . . 5
⊢ (((bday‘𝐵) ∈ (bday‘𝐴) ∨ (bday‘𝐵) = (bday‘𝐴)) ↔ ¬ (bday‘𝐴) ∈ (bday‘𝐵)) |
| 37 | 36 | a1i 11 |
. . . 4
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No) → (((bday‘𝐵) ∈ (bday‘𝐴) ∨ (bday‘𝐵) = (bday‘𝐴)) ↔ ¬ (bday‘𝐴) ∈ (bday‘𝐵))) |
| 38 | | lenlts 28109 |
. . . . 5
⊢ ((𝐵 ∈ No ∧ 𝐴 ∈ No)
→ (𝐵 ≤s 𝐴 ↔ ¬ 𝐴 <s 𝐵)) |
| 39 | 6, 3, 38 | syl2anc 596 |
. . . 4
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No) → (𝐵 ≤s 𝐴 ↔ ¬ 𝐴 <s 𝐵)) |
| 40 | 31, 37, 39 | 3imtr3d 296 |
. . 3
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No) → (¬ (bday‘𝐴) ∈ (bday‘𝐵) → ¬ 𝐴 <s 𝐵)) |
| 41 | 40 | con4d 116 |
. 2
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No) → (𝐴 <s 𝐵 → (bday‘𝐴) ∈ (bday‘𝐵))) |
| 42 | 41 | 3impia 1135 |
1
⊢ ((𝐴 ∈ Ons ∧
𝐵 ∈ No ∧ 𝐴 <s 𝐵) → (bday‘𝐴) ∈ (bday‘𝐵)) |