Metamath Proof Explorer


Theorem cutlt

Description: Eliminating all elements below a given element of a cut does not affect the cut. (Contributed by Scott Fenton, 13-Mar-2025)

Ref Expression
Hypotheses cutlt.1 ⊢ φ → L ≪ s R
cutlt.2 ⊢ φ → A = L | s R
cutlt.3 ⊢ φ → X ∈ L
Assertion cutlt ⊢ φ → A = X ∪ y ∈ L | X < s y | s R

Proof

Step Hyp Ref Expression
1 cutlt.1 ⊢ φ → L ≪ s R
2 cutlt.2 ⊢ φ → A = L | s R
3 cutlt.3 ⊢ φ → X ∈ L
4 sltsss1 ⊢ L ≪ s R → L ⊆ No
5 1 4 syl ⊢ φ → L ⊆ No
6 5 3 sseldd ⊢ φ → X ∈ No
7 snelpwi ⊢ X ∈ No → X ∈ 𝒫 No
8 6 7 syl ⊢ φ → X ∈ 𝒫 No
9 sltsex1 ⊢ L ≪ s R → L ∈ V
10 rabexg ⊢ L ∈ V → y ∈ L | X < s y ∈ V
11 1 9 10 3syl ⊢ φ → y ∈ L | X < s y ∈ V
12 ssrab2 ⊢ y ∈ L | X < s y ⊆ L
13 12 5 sstrid ⊢ φ → y ∈ L | X < s y ⊆ No
14 11 13 elpwd ⊢ φ → y ∈ L | X < s y ∈ 𝒫 No
15 pwuncl ⊢ X ∈ 𝒫 No ∧ y ∈ L | X < s y ∈ 𝒫 No → X ∪ y ∈ L | X < s y ∈ 𝒫 No
16 8 14 15 syl2anc ⊢ φ → X ∪ y ∈ L | X < s y ∈ 𝒫 No
17 sltsex2 ⊢ L ≪ s R → R ∈ V
18 1 17 syl ⊢ φ → R ∈ V
19 sltsss2 ⊢ L ≪ s R → R ⊆ No
20 1 19 syl ⊢ φ → R ⊆ No
21 18 20 elpwd ⊢ φ → R ∈ 𝒫 No
22 snidg ⊢ X ∈ L → X ∈ X
23 elun1 ⊢ X ∈ X → X ∈ X ∪ y ∈ L | X < s y
24 3 22 23 3syl ⊢ φ → X ∈ X ∪ y ∈ L | X < s y
25 24 adantr ⊢ φ ∧ a ∈ L → X ∈ X ∪ y ∈ L | X < s y
26 breq2 ⊢ b = X → a ≤ s b ↔ a ≤ s X
27 26 rspcev ⊢ X ∈ X ∪ y ∈ L | X < s y ∧ a ≤ s X → ∃ b ∈ X ∪ y ∈ L | X < s y a ≤ s b
28 25 27 sylan ⊢ φ ∧ a ∈ L ∧ a ≤ s X → ∃ b ∈ X ∪ y ∈ L | X < s y a ≤ s b
29 28 ex ⊢ φ ∧ a ∈ L → a ≤ s X → ∃ b ∈ X ∪ y ∈ L | X < s y a ≤ s b
30 6 adantr ⊢ φ ∧ a ∈ L → X ∈ No
31 5 sselda ⊢ φ ∧ a ∈ L → a ∈ No
32 ltnles ⊢ X ∈ No ∧ a ∈ No → X < s a ↔ ¬ a ≤ s X
33 30 31 32 syl2anc ⊢ φ ∧ a ∈ L → X < s a ↔ ¬ a ≤ s X
34 breq2 ⊢ y = a → X < s y ↔ X < s a
35 34 elrab ⊢ a ∈ y ∈ L | X < s y ↔ a ∈ L ∧ X < s a
36 elun2 ⊢ a ∈ y ∈ L | X < s y → a ∈ X ∪ y ∈ L | X < s y
37 35 36 sylbir ⊢ a ∈ L ∧ X < s a → a ∈ X ∪ y ∈ L | X < s y
38 lesid ⊢ a ∈ No → a ≤ s a
39 31 38 syl ⊢ φ ∧ a ∈ L → a ≤ s a
40 39 adantrr ⊢ φ ∧ a ∈ L ∧ X < s a → a ≤ s a
41 breq2 ⊢ b = a → a ≤ s b ↔ a ≤ s a
42 41 rspcev ⊢ a ∈ X ∪ y ∈ L | X < s y ∧ a ≤ s a → ∃ b ∈ X ∪ y ∈ L | X < s y a ≤ s b
43 37 40 42 syl2an2 ⊢ φ ∧ a ∈ L ∧ X < s a → ∃ b ∈ X ∪ y ∈ L | X < s y a ≤ s b
44 43 expr ⊢ φ ∧ a ∈ L → X < s a → ∃ b ∈ X ∪ y ∈ L | X < s y a ≤ s b
45 33 44 sylbird ⊢ φ ∧ a ∈ L → ¬ a ≤ s X → ∃ b ∈ X ∪ y ∈ L | X < s y a ≤ s b
46 29 45 pm2.61d ⊢ φ ∧ a ∈ L → ∃ b ∈ X ∪ y ∈ L | X < s y a ≤ s b
47 46 ralrimiva ⊢ φ → ∀ a ∈ L ∃ b ∈ X ∪ y ∈ L | X < s y a ≤ s b
48 ssidd ⊢ φ → R ⊆ R
49 20 48 coiniss ⊢ φ → ∀ a ∈ R ∃ b ∈ R b ≤ s a
50 3 snssd ⊢ φ → X ⊆ L
51 12 a1i ⊢ φ → y ∈ L | X < s y ⊆ L
52 50 51 unssd ⊢ φ → X ∪ y ∈ L | X < s y ⊆ L
53 5 52 cofss ⊢ φ → ∀ a ∈ X ∪ y ∈ L | X < s y ∃ b ∈ L a ≤ s b
54 1 16 21 47 49 53 49 cofcut2d ⊢ φ → L | s R = X ∪ y ∈ L | X < s y | s R
55 2 54 eqtrd ⊢ φ → A = X ∪ y ∈ L | X < s y | s R