@[inline, reducible]

unsafe abbrev Lean.Expr.FindImpl.FindM (α : Type) : Type

Equations

• Lean.Expr.FindImpl.FindM = StateT (Lean.PtrSet Lean.Expr) Id

@[inline]

unsafe def Lean.Expr.FindImpl.checkVisited (e : Lean.Expr) : OptionT Lean.Expr.FindImpl.FindM Unit

Equations

• One or more equations did not get rendered due to their size.

unsafe def Lean.Expr.FindImpl.findM? (p : Lean.Expr → Bool) (e : Lean.Expr) : OptionT Lean.Expr.FindImpl.FindM Lean.Expr

Equations

• Lean.Expr.FindImpl.findM? p e = Lean.Expr.FindImpl.findM?.visit p e

unsafe def Lean.Expr.FindImpl.findM?.visit (p : Lean.Expr → Bool) (e : Lean.Expr) : OptionT Lean.Expr.FindImpl.FindM Lean.Expr

Equations

• One or more equations did not get rendered due to their size.

unsafe def Lean.Expr.FindImpl.findUnsafe? (p : Lean.Expr → Bool) (e : Lean.Expr) : Option Lean.Expr

Equations

• Lean.Expr.FindImpl.findUnsafe? p e = Id.run (StateT.run' (Lean.Expr.FindImpl.findM? p e) Lean.mkPtrSet)

@[implemented_by Lean.Expr.FindImpl.findUnsafe?]

def Lean.Expr.find? (p : Lean.Expr → Bool) (e : Lean.Expr) : Option Lean.Expr

Equations

• One or more equations did not get rendered due to their size.
• Lean.Expr.find? p (Lean.Expr.mdata data b) = if p (Lean.Expr.mdata data b) = true then some (Lean.Expr.mdata data b) else Lean.Expr.find? p b
• Lean.Expr.find? p (Lean.Expr.app f a) = if p (Lean.Expr.app f a) = true then some (Lean.Expr.app f a) else HOrElse.hOrElse (Lean.Expr.find? p f) fun x => Lean.Expr.find? p a
• Lean.Expr.find? p (Lean.Expr.proj typeName idx b) = if p (Lean.Expr.proj typeName idx b) = true then some (Lean.Expr.proj typeName idx b) else Lean.Expr.find? p b
• Lean.Expr.find? p e = if p e = true then some e else none

def Lean.Expr.occurs (e : Lean.Expr) (t : Lean.Expr) : Bool

Return true if e occurs in t

Equations

• Lean.Expr.occurs e t = Option.isSome (Lean.Expr.find? (fun s => s == e) t)

inductive Lean.Expr.FindStep : Type

• found: Lean.Expr.FindStep

  Found desired subterm

• visit: Lean.Expr.FindStep

  Search subterms

• done: Lean.Expr.FindStep

  Do not search subterms

Return type for findExt? function argument.

unsafe def Lean.Expr.FindExtImpl.findM? (p : Lean.Expr → Lean.Expr.FindStep) (e : Lean.Expr) : OptionT Lean.Expr.FindImpl.FindM Lean.Expr

Equations

• Lean.Expr.FindExtImpl.findM? p e = Lean.Expr.FindExtImpl.findM?.visit p e

unsafe def Lean.Expr.FindExtImpl.findM?.visitApp (p : Lean.Expr → Lean.Expr.FindStep) (e : Lean.Expr) : OptionT Lean.Expr.FindImpl.FindM Lean.Expr

Equations

• One or more equations did not get rendered due to their size.

unsafe def Lean.Expr.FindExtImpl.findM?.visit (p : Lean.Expr → Lean.Expr.FindStep) (e : Lean.Expr) : OptionT Lean.Expr.FindImpl.FindM Lean.Expr

Equations

• One or more equations did not get rendered due to their size.

unsafe def Lean.Expr.FindExtImpl.findUnsafe? (p : Lean.Expr → Lean.Expr.FindStep) (e : Lean.Expr) : Option Lean.Expr

Equations

• Lean.Expr.FindExtImpl.findUnsafe? p e = Id.run (StateT.run' (Lean.Expr.FindExtImpl.findM? p e) Lean.mkPtrSet)

@[implemented_by Lean.Expr.FindExtImpl.findUnsafe?]

opaque Lean.Expr.findExt? (p : Lean.Expr → Lean.Expr.FindStep) (e : Lean.Expr) : Option Lean.Expr

Similar to find?, but p can return FindStep.done to interrupt the search on subterms. Remark: Differently from find?, we do not invoke p for partial applications of an application.