Proof of Theorem hashtpglem
| Step | Hyp | Ref
| Expression |
| 1 | | hashtpglem.3 |
. . . 4
⊢ (𝜑 → (♯‘{𝐴, 𝐵, 𝐶}) = 3) |
| 2 | 1 | adantr 276 |
. . 3
⊢ ((𝜑 ∧ 𝐵 = 𝐶) → (♯‘{𝐴, 𝐵, 𝐶}) = 3) |
| 3 | | 2re 9213 |
. . . . . 6
⊢ 2 ∈
ℝ |
| 4 | | 2lt3 9314 |
. . . . . 6
⊢ 2 <
3 |
| 5 | 3, 4 | ltneii 8276 |
. . . . 5
⊢ 2 ≠
3 |
| 6 | 5 | neii 2404 |
. . . 4
⊢ ¬ 2
= 3 |
| 7 | | simpr 110 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝐵 = 𝐶) → 𝐵 = 𝐶) |
| 8 | 7 | tpeq3d 3762 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝐵 = 𝐶) → {𝐴, 𝐵, 𝐵} = {𝐴, 𝐵, 𝐶}) |
| 9 | | tpidm23 3772 |
. . . . . . . 8
⊢ {𝐴, 𝐵, 𝐵} = {𝐴, 𝐵} |
| 10 | 8, 9 | eqtr3di 2279 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝐵 = 𝐶) → {𝐴, 𝐵, 𝐶} = {𝐴, 𝐵}) |
| 11 | 10 | fveq2d 5643 |
. . . . . 6
⊢ ((𝜑 ∧ 𝐵 = 𝐶) → (♯‘{𝐴, 𝐵, 𝐶}) = (♯‘{𝐴, 𝐵})) |
| 12 | 1 | ad2antrr 488 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝐵 = 𝐶) ∧ 𝐴 = 𝐵) → (♯‘{𝐴, 𝐵, 𝐶}) = 3) |
| 13 | | 1re 8178 |
. . . . . . . . . . . 12
⊢ 1 ∈
ℝ |
| 14 | | 1lt3 9315 |
. . . . . . . . . . . 12
⊢ 1 <
3 |
| 15 | 13, 14 | ltneii 8276 |
. . . . . . . . . . 11
⊢ 1 ≠
3 |
| 16 | 15 | neii 2404 |
. . . . . . . . . 10
⊢ ¬ 1
= 3 |
| 17 | 10 | adantr 276 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ 𝐵 = 𝐶) ∧ 𝐴 = 𝐵) → {𝐴, 𝐵, 𝐶} = {𝐴, 𝐵}) |
| 18 | | dfsn2 3683 |
. . . . . . . . . . . . . . 15
⊢ {𝐴} = {𝐴, 𝐴} |
| 19 | | simpr 110 |
. . . . . . . . . . . . . . . 16
⊢ (((𝜑 ∧ 𝐵 = 𝐶) ∧ 𝐴 = 𝐵) → 𝐴 = 𝐵) |
| 20 | 19 | preq2d 3755 |
. . . . . . . . . . . . . . 15
⊢ (((𝜑 ∧ 𝐵 = 𝐶) ∧ 𝐴 = 𝐵) → {𝐴, 𝐴} = {𝐴, 𝐵}) |
| 21 | 18, 20 | eqtrid 2276 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ 𝐵 = 𝐶) ∧ 𝐴 = 𝐵) → {𝐴} = {𝐴, 𝐵}) |
| 22 | 17, 21 | eqtr4d 2267 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ 𝐵 = 𝐶) ∧ 𝐴 = 𝐵) → {𝐴, 𝐵, 𝐶} = {𝐴}) |
| 23 | 22 | fveq2d 5643 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝐵 = 𝐶) ∧ 𝐴 = 𝐵) → (♯‘{𝐴, 𝐵, 𝐶}) = (♯‘{𝐴})) |
| 24 | | hashtpglem.a |
. . . . . . . . . . . . . 14
⊢ (𝜑 → 𝐴 ∈ 𝑈) |
| 25 | | hashsng 11061 |
. . . . . . . . . . . . . 14
⊢ (𝐴 ∈ 𝑈 → (♯‘{𝐴}) = 1) |
| 26 | 24, 25 | syl 14 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (♯‘{𝐴}) = 1) |
| 27 | 26 | ad2antrr 488 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝐵 = 𝐶) ∧ 𝐴 = 𝐵) → (♯‘{𝐴}) = 1) |
| 28 | 23, 27 | eqtrd 2264 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝐵 = 𝐶) ∧ 𝐴 = 𝐵) → (♯‘{𝐴, 𝐵, 𝐶}) = 1) |
| 29 | 28 | eqeq1d 2240 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝐵 = 𝐶) ∧ 𝐴 = 𝐵) → ((♯‘{𝐴, 𝐵, 𝐶}) = 3 ↔ 1 = 3)) |
| 30 | 16, 29 | mtbiri 681 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝐵 = 𝐶) ∧ 𝐴 = 𝐵) → ¬ (♯‘{𝐴, 𝐵, 𝐶}) = 3) |
| 31 | 12, 30 | pm2.65da 667 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝐵 = 𝐶) → ¬ 𝐴 = 𝐵) |
| 32 | 31 | neqned 2409 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝐵 = 𝐶) → 𝐴 ≠ 𝐵) |
| 33 | | hashtpglem.b |
. . . . . . . . 9
⊢ (𝜑 → 𝐵 ∈ 𝑉) |
| 34 | | hashprg 11073 |
. . . . . . . . 9
⊢ ((𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉) → (𝐴 ≠ 𝐵 ↔ (♯‘{𝐴, 𝐵}) = 2)) |
| 35 | 24, 33, 34 | syl2anc 411 |
. . . . . . . 8
⊢ (𝜑 → (𝐴 ≠ 𝐵 ↔ (♯‘{𝐴, 𝐵}) = 2)) |
| 36 | 35 | adantr 276 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝐵 = 𝐶) → (𝐴 ≠ 𝐵 ↔ (♯‘{𝐴, 𝐵}) = 2)) |
| 37 | 32, 36 | mpbid 147 |
. . . . . 6
⊢ ((𝜑 ∧ 𝐵 = 𝐶) → (♯‘{𝐴, 𝐵}) = 2) |
| 38 | 11, 37 | eqtrd 2264 |
. . . . 5
⊢ ((𝜑 ∧ 𝐵 = 𝐶) → (♯‘{𝐴, 𝐵, 𝐶}) = 2) |
| 39 | 38 | eqeq1d 2240 |
. . . 4
⊢ ((𝜑 ∧ 𝐵 = 𝐶) → ((♯‘{𝐴, 𝐵, 𝐶}) = 3 ↔ 2 = 3)) |
| 40 | 6, 39 | mtbiri 681 |
. . 3
⊢ ((𝜑 ∧ 𝐵 = 𝐶) → ¬ (♯‘{𝐴, 𝐵, 𝐶}) = 3) |
| 41 | 2, 40 | pm2.65da 667 |
. 2
⊢ (𝜑 → ¬ 𝐵 = 𝐶) |
| 42 | 41 | neqned 2409 |
1
⊢ (𝜑 → 𝐵 ≠ 𝐶) |