∀ {α : Type u_1} {β : Type u_2} {mα : MeasurableSpace α} {mβ : MeasurableSpace β} {γ : Type u_4}
  {mγ : MeasurableSpace γ} {f : γ → β} (κ : ProbabilityTheory.Kernel α β) (hf : MeasurableEmbedding f),
  (∀ (a : α), (κ a) (Set.range f) = 1) → ProbabilityTheory.IsMarkovKernel (κ.comapRight hf)