28 lines
750 B
Plaintext
28 lines
750 B
Plaintext
|
import Mathlib.Data.Real.Basic
|
|||
|
|
|
|||
|
|
namespace Real
|
|||
|
|
|
|||
|
|
/--
|
|||
|
|
The Minkowski sum of two sets `s` and `t` is the set
|
|||
|
|
`s + t = { a + b : a ∈ s, b ∈ t }`.
|
|||
|
|
-/
|
|||
|
|
def minkowski_sum (s t : Set ℝ) :=
|
|||
|
|
{ x | ∃ a ∈ s, ∃ b ∈ t, x = a + b }
|
|||
|
|
|
|||
|
|
/--
|
|||
|
|
The sum of two sets is nonempty if and only if the summands are nonempty.
|
|||
|
|
-/
|
|||
|
|
def nonempty_minkowski_sum_iff_nonempty_add_nonempty {s t : Set ℝ}
|
|||
|
|
: (minkowski_sum s t).Nonempty ↔ s.Nonempty ∧ t.Nonempty := by
|
|||
|
|
apply Iff.intro
|
|||
|
|
· intro h
|
|||
|
|
have ⟨x, hx⟩ := h
|
|||
|
|
have ⟨a, ⟨ha, ⟨b, ⟨hb, _⟩⟩⟩⟩ := hx
|
|||
|
|
apply And.intro
|
|||
|
|
· exact ⟨a, ha⟩
|
|||
|
|
· exact ⟨b, hb⟩
|
|||
|
|
· intro ⟨⟨a, ha⟩, ⟨b, hb⟩⟩
|
|||
|
|
exact ⟨a + b, ⟨a, ⟨ha, ⟨b, ⟨hb, rfl⟩⟩⟩⟩⟩
|
|||
|
|
|
|||
|
|
end Real
|