have : ∀ p : Prop, (Finset.univ.filter fun q : Prop ↦ ¬ q ↔ p) = {¬ p} := by
  rintro p
  ext q
  by_cases p <;> by_cases q <;> simp [*]
α : Type u_1
β : Type u_2
inst✝¹ : MeasurableSpace α
inst✝ : MeasurableSpace β
f : α → β
p : ℝ≥0
hp : p ≤ 1
b : Prop
⊢ map Not (bernoulli' p hp) = bernoulli' (1 - p) ⋯
α : Type u_1
β : Type u_2
inst✝¹ : MeasurableSpace α
inst✝ : MeasurableSpace β
f : α → β
p : ℝ≥0
hp : p ≤ 1
b : Prop
this : ∀ (p : Prop), Finset.filter (fun q => ¬q ↔ p) Finset.univ = {¬p}
⊢ map Not (bernoulli' p hp) = bernoulli' (1 - p) ⋯