def
definition
preference
show as:
view math explainer →
open explainer
Read the cached plain-language explainer.
open lean source
IndisputableMonolith.Aesthetics.SymmetryGroupPreference on GitHub at line 260.
browse module
All declarations in this module, on Recognition.
explainer page
depends on
used by
-
Jcost_anti_mono_on_unit_interval -
preference_anti_mono_in_orbits -
preference_p6m_eq_zero -
preference_p6m_max -
symmetryGroupPreferenceCert -
SymmetryGroupPreferenceCert -
wallpaperJ_mono_in_orbits -
proportionCost_nonneg -
abileneCollectiveJCost_succ -
perAgentJCost_pos -
predicts -
Pref -
Composable -
CostModel -
prefer_by_cq -
prefer_trans -
ideal_iff_good
formal source
257
258/-- Aesthetic preference is the negation of J-cost: higher preference =
259lower cost. -/
260def preference (g : WallpaperGroup) : ℝ := - wallpaperJ g
261
262theorem preference_p6m_eq_zero : preference .p6m = 0 := by
263 unfold preference
264 rw [wallpaperJ_p6m_eq_zero]
265 ring
266
267/-- **THEOREM.** `p6m` is the universally maximally preferred
268wallpaper group under the J-cost-derived preference functional. -/
269theorem preference_p6m_max (g : WallpaperGroup) :
270 preference g ≤ preference .p6m := by
271 unfold preference
272 rw [wallpaperJ_p6m_eq_zero]
273 have := wallpaperJ_nonneg g
274 linarith
275
276/-- Anti-monotone in orbits: if `orbitCount g ≤ orbitCount h`, then
277preference for `g` is at most preference for `h`. -/
278theorem preference_anti_mono_in_orbits {g h : WallpaperGroup}
279 (hgh : orbitCount g ≤ orbitCount h) :
280 preference g ≤ preference h := by
281 unfold preference
282 have := wallpaperJ_mono_in_orbits hgh
283 linarith
284
285/-! ## §5. Master certificate -/
286
287/-- **SYMMETRY GROUP PREFERENCE MASTER CERTIFICATE.** Eight clauses
288backing the J-cost-driven cross-cultural preference prediction. All
289fields derived from `Cost.Jcost`, not asserted as orbit-count
290arithmetic.