Theorem: ProbabilityTheory.kernel.comapRight_compProd_id_prod
File: Mathlib/Probability/Kernel/Composition.lean

tactic: ext a t ht
state_before: α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
⊢ comapRight (κ ⊗ₖ η) ⋯ = κ ⊗ₖ comapRight η hf
state_after: case h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
⊢ ((comapRight (κ ⊗ₖ η) ⋯) a) t = ((κ ⊗ₖ comapRight η hf) a) t

tactic: rw [comapRight_apply' _ _ _ ht, compProd_apply, compProd_apply _ _ _ ht]
state_before: case h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
⊢ ((comapRight (κ ⊗ₖ η) ⋯) a) t = ((κ ⊗ₖ comapRight η hf) a) t
state_after: case h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
⊢ ∫⁻ (b : β), (η (a, b)) {c | (b, c) ∈ (fun x => (id x.1, f x.2)) '' t} ∂κ a =
    ∫⁻ (b : β), ((comapRight η hf) (a, b)) {c | (b, c) ∈ t} ∂κ a

case h.h.hs
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
⊢ MeasurableSet ((fun x => (id x.1, f x.2)) '' t)

tactic: swap
state_before: case h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
⊢ ∫⁻ (b : β), (η (a, b)) {c | (b, c) ∈ (fun x => (id x.1, f x.2)) '' t} ∂κ a =
    ∫⁻ (b : β), ((comapRight η hf) (a, b)) {c | (b, c) ∈ t} ∂κ a

case h.h.hs
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
⊢ MeasurableSet ((fun x => (id x.1, f x.2)) '' t)
state_after: case h.h.hs
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
⊢ MeasurableSet ((fun x => (id x.1, f x.2)) '' t)

case h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
⊢ ∫⁻ (b : β), (η (a, b)) {c | (b, c) ∈ (fun x => (id x.1, f x.2)) '' t} ∂κ a =
    ∫⁻ (b : β), ((comapRight η hf) (a, b)) {c | (b, c) ∈ t} ∂κ a

tactic: refine lintegral_congr (fun b ↦ ?_)
state_before: case h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
⊢ ∫⁻ (b : β), (η (a, b)) {c | (b, c) ∈ (fun x => (id x.1, f x.2)) '' t} ∂κ a =
    ∫⁻ (b : β), ((comapRight η hf) (a, b)) {c | (b, c) ∈ t} ∂κ a
state_after: case h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
⊢ (η (a, b)) {c | (b, c) ∈ (fun x => (id x.1, f x.2)) '' t} = ((comapRight η hf) (a, b)) {c | (b, c) ∈ t}

tactic: simp only [id_eq, Set.mem_image, Prod.mk.injEq, Prod.exists]
state_before: case h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
⊢ (η (a, b)) {c | (b, c) ∈ (fun x => (id x.1, f x.2)) '' t} = ((comapRight η hf) (a, b)) {c | (b, c) ∈ t}
state_after: case h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
⊢ (η (a, b)) {c | ∃ a b_1, (a, b_1) ∈ t ∧ a = b ∧ f b_1 = c} = ((comapRight η hf) (a, b)) {c | (b, c) ∈ t}

tactic: rw [comapRight_apply']
state_before: case h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
⊢ (η (a, b)) {c | ∃ a b_1, (a, b_1) ∈ t ∧ a = b ∧ f b_1 = c} = ((comapRight η hf) (a, b)) {c | (b, c) ∈ t}
state_after: case h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
⊢ (η (a, b)) {c | ∃ a b_1, (a, b_1) ∈ t ∧ a = b ∧ f b_1 = c} = (η (a, b)) (f '' {c | (b, c) ∈ t})

case h.h.ht
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
⊢ MeasurableSet {c | (b, c) ∈ t}

tactic: swap
state_before: case h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
⊢ (η (a, b)) {c | ∃ a b_1, (a, b_1) ∈ t ∧ a = b ∧ f b_1 = c} = (η (a, b)) (f '' {c | (b, c) ∈ t})

case h.h.ht
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
⊢ MeasurableSet {c | (b, c) ∈ t}
state_after: case h.h.ht
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
⊢ MeasurableSet {c | (b, c) ∈ t}

case h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
⊢ (η (a, b)) {c | ∃ a b_1, (a, b_1) ∈ t ∧ a = b ∧ f b_1 = c} = (η (a, b)) (f '' {c | (b, c) ∈ t})

tactic: congr with x
state_before: case h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
⊢ (η (a, b)) {c | ∃ a b_1, (a, b_1) ∈ t ∧ a = b ∧ f b_1 = c} = (η (a, b)) (f '' {c | (b, c) ∈ t})
state_after: case h.h.h.e_6.h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
x : γ
⊢ x ∈ {c | ∃ a b_1, (a, b_1) ∈ t ∧ a = b ∧ f b_1 = c} ↔ x ∈ f '' {c | (b, c) ∈ t}

tactic: simp only [Set.mem_setOf_eq, Set.mem_image]
state_before: case h.h.h.e_6.h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
x : γ
⊢ x ∈ {c | ∃ a b_1, (a, b_1) ∈ t ∧ a = b ∧ f b_1 = c} ↔ x ∈ f '' {c | (b, c) ∈ t}
state_after: case h.h.h.e_6.h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
x : γ
⊢ (∃ a b_1, (a, b_1) ∈ t ∧ a = b ∧ f b_1 = x) ↔ ∃ x_1, (b, x_1) ∈ t ∧ f x_1 = x

tactic: constructor
state_before: case h.h.h.e_6.h.h
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
x : γ
⊢ (∃ a b_1, (a, b_1) ∈ t ∧ a = b ∧ f b_1 = x) ↔ ∃ x_1, (b, x_1) ∈ t ∧ f x_1 = x
state_after: case h.h.h.e_6.h.h.mp
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
x : γ
⊢ (∃ a b_1, (a, b_1) ∈ t ∧ a = b ∧ f b_1 = x) → ∃ x_1, (b, x_1) ∈ t ∧ f x_1 = x

case h.h.h.e_6.h.h.mpr
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
x : γ
⊢ (∃ x_1, (b, x_1) ∈ t ∧ f x_1 = x) → ∃ a b_1, (a, b_1) ∈ t ∧ a = b ∧ f b_1 = x

tactic: exact (MeasurableEmbedding.id.prod_mk hf).measurableSet_image.mpr ht
state_before: case h.h.hs
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
⊢ MeasurableSet ((fun x => (id x.1, f x.2)) '' t)
state_after: no goals

tactic: exact measurable_prod_mk_left ht
state_before: case h.h.ht
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
⊢ MeasurableSet {c | (b, c) ∈ t}
state_after: no goals

tactic: rintro ⟨b', c, h, rfl, rfl⟩
state_before: case h.h.h.e_6.h.h.mp
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
x : γ
⊢ (∃ a b_1, (a, b_1) ∈ t ∧ a = b ∧ f b_1 = x) → ∃ x_1, (b, x_1) ∈ t ∧ f x_1 = x
state_after: case h.h.h.e_6.h.h.mp.intro.intro.intro.intro
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b' : β
c : δ
h : (b', c) ∈ t
⊢ ∃ x, (b', x) ∈ t ∧ f x = f c

tactic: exact ⟨c, h, rfl⟩
state_before: case h.h.h.e_6.h.h.mp.intro.intro.intro.intro
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b' : β
c : δ
h : (b', c) ∈ t
⊢ ∃ x, (b', x) ∈ t ∧ f x = f c
state_after: no goals

tactic: rintro ⟨c, h, rfl⟩
state_before: case h.h.h.e_6.h.h.mpr
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
x : γ
⊢ (∃ x_1, (b, x_1) ∈ t ∧ f x_1 = x) → ∃ a b_1, (a, b_1) ∈ t ∧ a = b ∧ f b_1 = x
state_after: case h.h.h.e_6.h.h.mpr.intro.intro
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
c : δ
h : (b, c) ∈ t
⊢ ∃ a b_1, (a, b_1) ∈ t ∧ a = b ∧ f b_1 = f c

tactic: exact ⟨b, c, h, rfl, rfl⟩
state_before: case h.h.h.e_6.h.h.mpr.intro.intro
α : Type u_1
β : Type u_2
ι : Type u_3
mα : MeasurableSpace α
mβ : MeasurableSpace β
γ : Type u_4
mγ : MeasurableSpace γ
s : Set (β × γ)
δ : Type u_5
mδ : MeasurableSpace δ
κ : ↥(kernel α β)
inst✝¹ : IsSFiniteKernel κ
η : ↥(kernel (α × β) γ)
inst✝ : IsSFiniteKernel η
f : δ → γ
hf : MeasurableEmbedding f
a : α
t : Set (β × δ)
ht : MeasurableSet t
b : β
c : δ
h : (b, c) ∈ t
⊢ ∃ a b_1, (a, b_1) ∈ t ∧ a = b ∧ f b_1 = f c
state_after: no goals