structure Lean.Compiler.atMostOnce.AtMostOnceData : Type

• found : Bool
• result : Bool

def Lean.Compiler.atMostOnce.Visitor : Type

Equations

• Lean.Compiler.atMostOnce.Visitor = (Lean.Compiler.atMostOnce.AtMostOnceData → Lean.Compiler.atMostOnce.AtMostOnceData)

@[inline]

def Lean.Compiler.atMostOnce.seq (f : Lean.Compiler.atMostOnce.Visitor) (g : Lean.Compiler.atMostOnce.Visitor) : Lean.Compiler.atMostOnce.Visitor

Equations

• Lean.Compiler.atMostOnce.seq f g d = match f d with | { found := found, result := false } => { found := found, result := false } | other => g other

instance Lean.Compiler.atMostOnce.instAndThenVisitor : AndThen Lean.Compiler.atMostOnce.Visitor

Equations

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

@[inline]

def Lean.Compiler.atMostOnce.skip : Lean.Compiler.atMostOnce.Visitor

Equations

• Lean.Compiler.atMostOnce.skip = id

@[inline]

def Lean.Compiler.atMostOnce.visitFVar (x : Lean.FVarId) (y : Lean.FVarId) : Lean.Compiler.atMostOnce.Visitor

Equations

• Lean.Compiler.atMostOnce.visitFVar x y { found := found, result := false } = { found := found, result := false }
• Lean.Compiler.atMostOnce.visitFVar x y { found := false, result := true } = { found := x == y, result := true }
• Lean.Compiler.atMostOnce.visitFVar x y { found := true, result := true } = { found := true, result := x != y }

def Lean.Compiler.atMostOnce.visit (x : Lean.FVarId) : Lean.Expr → Lean.Compiler.atMostOnce.Visitor

@[export lean_at_most_once]

def Lean.Compiler.atMostOnce (e : Lean.Expr) (x : Lean.FVarId) : Bool

Return true iff the free variable with id x occurs at most once in e

Equations

• Lean.Compiler.atMostOnce e x = match Lean.Compiler.atMostOnce.visit x e { found := false, result := true } with | { found := found, result := result } => result