Metamath Proof Explorer


Theorem wsuclb

Description: A well-founded successor is a lower bound on points after X . (Contributed by Scott Fenton, 16-Jun-2018) (Proof shortened by AV, 10-Oct-2021)

Ref Expression
Hypotheses wsuclb.1 ⊢ φ → R We A
wsuclb.2 ⊢ φ → R Se A
wsuclb.3 ⊢ φ → X ∈ V
wsuclb.4 ⊢ φ → Y ∈ A
wsuclb.5 ⊢ φ → X R Y
Assertion wsuclb ⊢ φ → ¬ Y R wsuc R A X

Proof

Step Hyp Ref Expression
1 wsuclb.1 ⊢ φ → R We A
2 wsuclb.2 ⊢ φ → R Se A
3 wsuclb.3 ⊢ φ → X ∈ V
4 wsuclb.4 ⊢ φ → Y ∈ A
5 wsuclb.5 ⊢ φ → X R Y
6 brcnvg ⊢ Y ∈ A ∧ X ∈ V → Y R -1 X ↔ X R Y
7 4 3 6 syl2anc ⊢ φ → Y R -1 X ↔ X R Y
8 5 7 mpbird ⊢ φ → Y R -1 X
9 elpredg ⊢ X ∈ V ∧ Y ∈ A → Y ∈ Pred R -1 A X ↔ Y R -1 X
10 3 4 9 syl2anc ⊢ φ → Y ∈ Pred R -1 A X ↔ Y R -1 X
11 8 10 mpbird ⊢ φ → Y ∈ Pred R -1 A X
12 weso ⊢ R We A → R Or A
13 1 12 syl ⊢ φ → R Or A
14 breq2 ⊢ y = Y → X R y ↔ X R Y
15 14 rspcev ⊢ Y ∈ A ∧ X R Y → ∃ y ∈ A X R y
16 4 5 15 syl2anc ⊢ φ → ∃ y ∈ A X R y
17 1 2 3 16 wsuclem ⊢ φ → ∃ a ∈ A ∀ b ∈ Pred R -1 A X ¬ b R a ∧ ∀ b ∈ A a R b → ∃ c ∈ Pred R -1 A X c R b
18 13 17 inflb ⊢ φ → Y ∈ Pred R -1 A X → ¬ Y R inf Pred R -1 A X A R
19 11 18 mpd ⊢ φ → ¬ Y R inf Pred R -1 A X A R
20 df-wsuc ⊢ wsuc R A X = inf Pred R -1 A X A R
21 20 breq2i ⊢ Y R wsuc R A X ↔ Y R inf Pred R -1 A X A R
22 19 21 sylnibr ⊢ φ → ¬ Y R wsuc R A X