Chapter 15 algebra: positivity and breakpoint agreement for the two-centre relabelling path
ProvedBookSixth.pair_relabel_line_gap_algebraElementary algebra for the two-centre relabelling path of Chapter 15. Write , and for the left and right endpoints of the moving middle interval, and and for the interior gap and the gap after time . This record isolates the purely algebraic core needed to build the piecewise-linear path of homeomorphisms of that carries the two ordered centres and onto and . It states: is continuous with , and ; both gaps are strictly positive whenever ; the moving gap satisfies the exact identity , so the motion closes the slack linearly and never collapses the gap; and the four breakpoint agreement identities that make the forward and backward piecewise-linear maps agree where their pieces meet. Every clause is an equality or a positivity fact about explicit real expressions, so the record is independent of any topological content and can be imported by the later reduction that supplies continuity, the two-sided inverse, and the endpoint laws.
import Mathlib
theorem BookSixth.pair_relabel_line_gap_algebra :
(Continuous (fun t : ℝ => max 0 (min t 1))) ∧
((max 0 (min 0 1)) = 0) ∧
((max 0 (min 1 1)) = 1) ∧
(∀ t : ℝ, 0 ≤ max 0 (min t 1)) ∧
(∀ t : ℝ, max 0 (min t 1) ≤ 1) ∧
(∀ {a b : ℝ}, 3 ≤ b - a → 0 < b - a - 2) ∧
(∀ {a b : ℝ}, 3 ≤ b - a → ∀ t : ℝ,
0 < (b - 1 + (3 - b) * max 0 (min t 1)) - (a + 1 - a * max 0 (min t 1))) ∧
(∀ a b t : ℝ,
(b - 1 + (3 - b) * max 0 (min t 1)) - (a + 1 - a * max 0 (min t 1))
= 1 + (b - a - 3) * (1 - max 0 (min t 1))) ∧
(∀ {a b : ℝ}, 3 ≤ b - a → ∀ t : ℝ,
a + 1 - a * max 0 (min t 1)
= (a + 1 - a * max 0 (min t 1))
+ ((a + 1 - (a + 1)) * ((b - 1 + (3 - b) * max 0 (min t 1))
- (a + 1 - a * max 0 (min t 1))) / (b - a - 2))) ∧
(∀ {a b : ℝ}, 3 ≤ b - a → ∀ t : ℝ,
(a + 1 - a * max 0 (min t 1))
+ ((b - 1 - (a + 1)) * ((b - 1 + (3 - b) * max 0 (min t 1))
- (a + 1 - a * max 0 (min t 1))) / (b - a - 2))
= b - 1 + (3 - b) * max 0 (min t 1)) ∧
(∀ {a b : ℝ}, 3 ≤ b - a → ∀ t : ℝ,
a + 1 + (((b - 1 + (3 - b) * max 0 (min t 1))
- (a + 1 - a * max 0 (min t 1))) * (b - a - 2)
/ ((b - 1 + (3 - b) * max 0 (min t 1))
- (a + 1 - a * max 0 (min t 1))))
= (b - 1 + (3 - b) * max 0 (min t 1))
- (3 - b) * max 0 (min t 1)) ∧
(∀ {a b : ℝ}, 3 ≤ b - a → ∀ t : ℝ,
(a + 1 - a * max 0 (min t 1)) + a * max 0 (min t 1)
= a + 1 + (((a + 1 - a * max 0 (min t 1))
- (a + 1 - a * max 0 (min t 1))) * (b - a - 2)
/ ((b - 1 + (3 - b) * max 0 (min t 1))
- (a + 1 - a * max 0 (min t 1))))) := by sorry