Metamath Proof Explorer


Theorem sucneqond

Description: Inequality of an ordinal set with its successor. Does not use the axiom of regularity. (Contributed by ML, 18-Oct-2020)

Ref Expression
Hypotheses sucneqond.1 ⊢ φ → X = suc ⁡ Y
sucneqond.2 ⊢ φ → Y ∈ On
Assertion sucneqond ⊢ φ → X ≠ Y

Proof

Step Hyp Ref Expression
1 sucneqond.1 ⊢ φ → X = suc ⁡ Y
2 sucneqond.2 ⊢ φ → Y ∈ On
3 sucidg ⊢ Y ∈ On → Y ∈ suc ⁡ Y
4 2 3 syl ⊢ φ → Y ∈ suc ⁡ Y
5 4 1 eleqtrrd ⊢ φ → Y ∈ X
6 onsuc ⊢ Y ∈ On → suc ⁡ Y ∈ On
7 2 6 syl ⊢ φ → suc ⁡ Y ∈ On
8 1 7 eqeltrd ⊢ φ → X ∈ On
9 eloni ⊢ X ∈ On → Ord ⁡ X
10 8 9 syl ⊢ φ → Ord ⁡ X
11 ordirr ⊢ Ord ⁡ X → ¬ X ∈ X
12 10 11 syl ⊢ φ → ¬ X ∈ X
13 eleq1 ⊢ X = Y → X ∈ X ↔ Y ∈ X
14 13 biimprd ⊢ X = Y → Y ∈ X → X ∈ X
15 14 con3d ⊢ X = Y → ¬ X ∈ X → ¬ Y ∈ X
16 12 15 syl5com ⊢ φ → X = Y → ¬ Y ∈ X
17 5 16 mt2d ⊢ φ → ¬ X = Y
18 17 neqned ⊢ φ → X ≠ Y