isFiniteKernel_of_isFiniteKernel_snd

English

fst(swapRight κ) = snd κ for κ : kernel α → β × γ.

Русский

fst(обменятьRight κ) = snd κ для κ: ядро α → β × γ.

LaTeX

$$$\\mathrm{fst}(\\mathrm{swapRight}(κ)) = \\mathrm{snd}(κ)$$$

Lean4

instance (priority := 100) isFiniteKernel_of_isFiniteKernel_snd {κ : Kernel α (β × γ)} [h : IsFiniteKernel (snd κ)] :
    IsFiniteKernel κ :=
  by
  refine ⟨(snd κ).bound, (snd κ).bound_lt_top, fun a ↦ le_trans ?_ (measure_le_bound (snd κ) a Set.univ)⟩
  rw [snd_apply' _ _ MeasurableSet.univ]
  simp

Похожие утверждения