∀ {α : Type u_2} {β : Type u_1} (R : α → β → Prop) (a : α) (b : β)
  (motive : (∃ b_1 ∈ Computation.pure b, R a b_1) → Prop) (x : ∃ b_1 ∈ Computation.pure b, R a b_1),
  (∀ (b' : β) (mb : b' ∈ Computation.pure b) (h : R a b'), motive ⋯) → motive x