OAI/MathematicalPhysics/NavierStokes/ForcedComputation/Flow/PlanarCutoff.lean
12 declarations, 0 contain sorry, 0 declared as axioms
Explicit rational collars for compact planar Hamiltonian pulses.
- def
OAI.ForcedComputation.PlanarHamiltonian.rectangleCutoffline 15 - def
OAI.ForcedComputation.PlanarHamiltonian.rectangleCollarline 23 - def
OAI.ForcedComputation.PlanarHamiltonian.rectanglePlateauline 26 - theorem
OAI.ForcedComputation.PlanarHamiltonian.rectangleCutoff_smoothline 29 - theorem
OAI.ForcedComputation.PlanarHamiltonian.rectanglePlateau_openline 34 - theorem
OAI.ForcedComputation.PlanarHamiltonian.mem_rectanglePlateauline 46 - theorem
OAI.ForcedComputation.PlanarHamiltonian.rectangleCutoff_oneline 52 - theorem
OAI.ForcedComputation.PlanarHamiltonian.rectangleCutoff_one_nearline 65 - theorem
OAI.ForcedComputation.PlanarHamiltonian.rectangleCutoff_supportline 70 - theorem
OAI.ForcedComputation.PlanarHamiltonian.rectangleCollar_compactline 95 - theorem
OAI.ForcedComputation.PlanarHamiltonian.rectangleCutoff_compactSupportline 105 - theorem
OAI.ForcedComputation.PlanarHamiltonian.rectangle_field_propertiesline 114Source documentation
A polynomial Hamiltonian cut off by this explicit collar gives a smooth, compact, divergence-free, mean-zero planar field with the exact local motion.
theorem rectangle_field_properties {R : RationalBox 2} {δ : ℚ} (hδ : 0 < δ) {H : Plane → ℝ} (hH : ContDiff ℝ ∞ H) : ContDiff ℝ ∞ (field (fun x => rectangleCutoff R δ x * H x)) ∧ HasCompactSupport (field (fun x => rectangleCutoff R δ x * H x)) ∧ (∀ x, divergence (field (fun x => rectangleCutoff R δ x * H x)) x = 0) ∧ (∫ x, field (fun y => rectangleCutoff R δ y * H y) x) = 0 ∧ (∀ x ∈ R.carrier, field (fun y => rectangleCutoff R δ y * H y) x = field H x) := by …Mentions: OAI.ForcedComputation.PlanarHamiltonian.field, OAI.ForcedComputation.PlanarHamiltonian.rectangleCutoff, OAI.ForcedComputation.PlanarHamiltonian.divergence