English
Similarly, ergodicity for the opposite action with right invariance yields ErgodicSMul.
Русский
Аналогично эргодичности для противоположного действия и правой инвариантности даёт Эргодичность.
LaTeX
$$$[μ.IsMulRightInvariant] \Rightarrow ErgodicSMul MulOpposite G G μ$$$
Lean4
@[to_additive]
instance [μ.IsMulRightInvariant] : ErgodicSMul Gᵐᵒᵖ G μ :=
by
refine ⟨fun {s} hsm hs ↦ ?_⟩
suffices (∃ᵐ x ∂μ, x ∈ s) → ∀ᵐ x ∂μ, x ∈ s
by
simp only [eventuallyConst_set, ← not_frequently]
exact or_not_of_imp this
intro hμs
obtain ⟨a, has, ha⟩ : ∃ a ∈ s, ∀ᵐ b ∂μ, (a * b ∈ s ↔ a ∈ s) :=
by
refine (hμs.and_eventually ?_).exists
rw [ae_ae_comm]
· exact ae_of_all _ fun b ↦ (hs ⟨b⟩).mem_iff
· exact ((hsm.preimage <| measurable_fst.mul measurable_snd).mem.iff (hsm.preimage measurable_fst).mem).setOf
simpa [has] using (quasiMeasurePreserving_mul_left μ a⁻¹).ae ha