2023-04-28 13:35:58 +00:00
|
|
|
|
import Mathlib.Data.List.Sort
|
|
|
|
|
|
2023-04-20 19:19:56 +00:00
|
|
|
|
import Bookshelf.List.Basic
|
|
|
|
|
import Bookshelf.Real.Set.Interval
|
2023-04-18 17:29:19 +00:00
|
|
|
|
|
|
|
|
|
namespace Real
|
|
|
|
|
|
2023-04-28 13:35:58 +00:00
|
|
|
|
open List
|
|
|
|
|
|
2023-04-18 17:29:19 +00:00
|
|
|
|
/--
|
|
|
|
|
A `Partition` is some finite subset of `[a, b]` containing points `a` and `b`.
|
|
|
|
|
|
|
|
|
|
It is assumed that the points of the `Partition` are distinct and sorted. The
|
|
|
|
|
use of a `List` ensures finite-ness.
|
|
|
|
|
-/
|
|
|
|
|
structure Partition where
|
|
|
|
|
xs : List ℝ
|
2023-04-28 13:35:58 +00:00
|
|
|
|
sorted : Sorted LT.lt xs
|
2023-04-18 17:29:19 +00:00
|
|
|
|
has_min_length : xs.length ≥ 2
|
|
|
|
|
|
2023-04-28 13:35:58 +00:00
|
|
|
|
/--
|
|
|
|
|
The length of any list associated with a `Partition` is `> 0`.
|
|
|
|
|
-/
|
|
|
|
|
private lemma length_gt_zero (p : Partition) : p.xs.length > 0 :=
|
2023-04-18 17:29:19 +00:00
|
|
|
|
calc p.xs.length
|
|
|
|
|
_ ≥ 2 := p.has_min_length
|
|
|
|
|
_ > 0 := by simp
|
|
|
|
|
|
2023-04-28 13:35:58 +00:00
|
|
|
|
/--
|
|
|
|
|
The length of any list associated with a `Partition` is `≠ 0`.
|
|
|
|
|
-/
|
|
|
|
|
instance (p : Partition) : NeZero (length p.xs) where
|
|
|
|
|
out := LT.lt.ne' (length_gt_zero p)
|
|
|
|
|
|
|
|
|
|
namespace Partition
|
|
|
|
|
|
2023-04-18 17:29:19 +00:00
|
|
|
|
/--
|
|
|
|
|
The left-most subdivision point of the `Partition`.
|
|
|
|
|
-/
|
2023-04-24 18:59:11 +00:00
|
|
|
|
def left (p : Partition) : ℝ :=
|
2023-04-28 13:35:58 +00:00
|
|
|
|
p.xs.head (neq_nil_iff_length_gt_zero.mpr (length_gt_zero p))
|
2023-04-18 17:29:19 +00:00
|
|
|
|
|
|
|
|
|
/--
|
|
|
|
|
The right-most subdivision point of the `Partition`.
|
|
|
|
|
-/
|
2023-04-24 18:59:11 +00:00
|
|
|
|
def right (p : Partition) : ℝ :=
|
2023-04-28 13:35:58 +00:00
|
|
|
|
p.xs.getLast (neq_nil_iff_length_gt_zero.mpr (length_gt_zero p))
|
2023-04-18 17:29:19 +00:00
|
|
|
|
|
|
|
|
|
/--
|
|
|
|
|
Define `∈` syntax for a `Partition`. We say a real is a member of a partition
|
|
|
|
|
provided it lies somewhere in closed interval `[a, b]`.
|
|
|
|
|
-/
|
|
|
|
|
instance : Membership ℝ Partition where
|
2023-04-24 18:59:11 +00:00
|
|
|
|
mem (x : ℝ) (p : Partition) := p.left ≤ x ∧ x ≤ p.right
|
|
|
|
|
|
2023-04-27 21:06:17 +00:00
|
|
|
|
/--
|
|
|
|
|
Every subdivision point is `≥` the left-most point of the partition.
|
|
|
|
|
-/
|
|
|
|
|
theorem subdivision_point_geq_left {p : Partition} (h : x ∈ p.xs)
|
|
|
|
|
: p.left ≤ x := by
|
2023-04-28 13:35:58 +00:00
|
|
|
|
unfold left
|
|
|
|
|
rw [head_eq_get_zero (exists_mem_iff_neq_nil.mp ⟨x, h⟩)]
|
|
|
|
|
have ⟨i, hi⟩ := mem_iff_exists_get.mp h
|
|
|
|
|
conv => rhs; rw [← hi]
|
|
|
|
|
by_cases hz : i = (0 : Fin (length p.xs))
|
|
|
|
|
· rw [hz]
|
|
|
|
|
simp
|
|
|
|
|
· refine le_of_lt (Sorted.rel_get_of_lt p.sorted ?_)
|
|
|
|
|
rwa [← ne_eq, ← Fin.pos_iff_ne_zero i] at hz
|
2023-04-27 21:06:17 +00:00
|
|
|
|
|
|
|
|
|
/--
|
|
|
|
|
Every subdivision point is `≤` the right-most point of the partition.
|
|
|
|
|
-/
|
|
|
|
|
theorem subdivision_point_leq_right {p : Partition} (h : x ∈ p.xs)
|
2023-04-28 13:35:58 +00:00
|
|
|
|
: x ≤ p.right := by
|
|
|
|
|
unfold right
|
|
|
|
|
have hx := exists_mem_iff_neq_nil.mp ⟨x, h⟩
|
|
|
|
|
rw [getLast_eq_get_length_sub_one hx]
|
|
|
|
|
have ⟨i, hi⟩ := mem_iff_exists_get.mp h
|
|
|
|
|
conv => lhs; rw [← hi]
|
|
|
|
|
have ⟨_, ⟨_, hs⟩⟩ := self_neq_nil_imp_exists_mem.mp hx
|
|
|
|
|
by_cases hz : i = ⟨p.xs.length - 1, by rw [hs]; simp⟩
|
|
|
|
|
· rw [hz]
|
|
|
|
|
· refine le_of_lt (Sorted.rel_get_of_lt p.sorted ?_)
|
|
|
|
|
rw [← ne_eq, Fin.ne_iff_vne] at hz
|
|
|
|
|
rw [Fin.lt_iff_val_lt_val]
|
|
|
|
|
exact lt_of_le_of_ne (le_tsub_of_add_le_right i.2) hz
|
2023-04-27 21:06:17 +00:00
|
|
|
|
|
2023-04-24 18:59:11 +00:00
|
|
|
|
/--
|
|
|
|
|
Every subdivision point of a `Partition` is itself a member of the `Partition`.
|
|
|
|
|
-/
|
|
|
|
|
theorem subdivision_point_mem_partition {p : Partition} (h : x ∈ p.xs)
|
2023-04-27 21:06:17 +00:00
|
|
|
|
: x ∈ p := ⟨subdivision_point_geq_left h, subdivision_point_leq_right h⟩
|
2023-04-18 17:29:19 +00:00
|
|
|
|
|
|
|
|
|
end Partition
|
|
|
|
|
|
2023-04-22 19:11:50 +00:00
|
|
|
|
end Real
|