{ω : Type} →
  {m : Type → Type} →
    [STWorld ω m] →
      [MonadLiftT (ST ω) m] →
        [Monad m] →
          [MonadControlT Lean.MetaM m] → [MonadLiftT Lean.MetaM m] → Lean.MVarId → (Lean.Expr → m Bool) → m Unit