Metamath Proof Explorer


Theorem lesubsubs3bd

Description: Equivalence for the surreal less-than or equal relationship between differences. (Contributed by Scott Fenton, 7-Mar-2025)

Ref Expression
Hypotheses ltsubsubsbd.1 ⊢ ( 𝜑 → 𝐴 ∈ No )
ltsubsubsbd.2 ⊢ ( 𝜑 → 𝐵 ∈ No )
ltsubsubsbd.3 ⊢ ( 𝜑 → 𝐶 ∈ No )
ltsubsubsbd.4 ⊢ ( 𝜑 → 𝐷 ∈ No )
Assertion lesubsubs3bd ( 𝜑 → ( ( 𝐴 -s 𝐶 ) ≤s ( 𝐵 -s 𝐷 ) ↔ ( 𝐷 -s 𝐶 ) ≤s ( 𝐵 -s 𝐴 ) ) )

Proof

Step Hyp Ref Expression
1 ltsubsubsbd.1 ⊢ ( 𝜑 → 𝐴 ∈ No )
2 ltsubsubsbd.2 ⊢ ( 𝜑 → 𝐵 ∈ No )
3 ltsubsubsbd.3 ⊢ ( 𝜑 → 𝐶 ∈ No )
4 ltsubsubsbd.4 ⊢ ( 𝜑 → 𝐷 ∈ No )
5 2 1 4 3 ltsubsubsbd ⊢ ( 𝜑 → ( ( 𝐵 -s 𝐷 ) <s ( 𝐴 -s 𝐶 ) ↔ ( 𝐵 -s 𝐴 ) <s ( 𝐷 -s 𝐶 ) ) )
6 5 notbid ⊢ ( 𝜑 → ( ¬ ( 𝐵 -s 𝐷 ) <s ( 𝐴 -s 𝐶 ) ↔ ¬ ( 𝐵 -s 𝐴 ) <s ( 𝐷 -s 𝐶 ) ) )
7 1 3 subscld ⊢ ( 𝜑 → ( 𝐴 -s 𝐶 ) ∈ No )
8 2 4 subscld ⊢ ( 𝜑 → ( 𝐵 -s 𝐷 ) ∈ No )
9 lenlts ⊢ ( ( ( 𝐴 -s 𝐶 ) ∈ No ∧ ( 𝐵 -s 𝐷 ) ∈ No ) → ( ( 𝐴 -s 𝐶 ) ≤s ( 𝐵 -s 𝐷 ) ↔ ¬ ( 𝐵 -s 𝐷 ) <s ( 𝐴 -s 𝐶 ) ) )
10 7 8 9 syl2anc ⊢ ( 𝜑 → ( ( 𝐴 -s 𝐶 ) ≤s ( 𝐵 -s 𝐷 ) ↔ ¬ ( 𝐵 -s 𝐷 ) <s ( 𝐴 -s 𝐶 ) ) )
11 4 3 subscld ⊢ ( 𝜑 → ( 𝐷 -s 𝐶 ) ∈ No )
12 2 1 subscld ⊢ ( 𝜑 → ( 𝐵 -s 𝐴 ) ∈ No )
13 lenlts ⊢ ( ( ( 𝐷 -s 𝐶 ) ∈ No ∧ ( 𝐵 -s 𝐴 ) ∈ No ) → ( ( 𝐷 -s 𝐶 ) ≤s ( 𝐵 -s 𝐴 ) ↔ ¬ ( 𝐵 -s 𝐴 ) <s ( 𝐷 -s 𝐶 ) ) )
14 11 12 13 syl2anc ⊢ ( 𝜑 → ( ( 𝐷 -s 𝐶 ) ≤s ( 𝐵 -s 𝐴 ) ↔ ¬ ( 𝐵 -s 𝐴 ) <s ( 𝐷 -s 𝐶 ) ) )
15 6 10 14 3bitr4d ⊢ ( 𝜑 → ( ( 𝐴 -s 𝐶 ) ≤s ( 𝐵 -s 𝐷 ) ↔ ( 𝐷 -s 𝐶 ) ≤s ( 𝐵 -s 𝐴 ) ) )