ext
α : Type u_1
Ω : Type u_2
inst✝ : MeasurableSpace Ω
X Y : Ω → Set α
μ : Measure Ω
p q : ℝ≥0
hX : IsBernoulliSeq X p μ
hY : IsBernoulliSeq Y q μ
a : α
⊢ {ω | a ∈ X ω} = (fun ω => a ∈ X ω) ⁻¹' {True}
case h
α : Type u_1
Ω : Type u_2
inst✝ : MeasurableSpace Ω
X Y : Ω → Set α
μ : Measure Ω
p q : ℝ≥0
hX : IsBernoulliSeq X p μ
hY : IsBernoulliSeq Y q μ
a : α
x✝ : Ω
⊢ x✝ ∈ {ω | a ∈ X ω} ↔ x✝ ∈ (fun ω => a ∈ X ω) ⁻¹' {True}