inductive Lean.ReducibilityStatus : Type

• reducible: Lean.ReducibilityStatus
• semireducible: Lean.ReducibilityStatus
• irreducible: Lean.ReducibilityStatus

Reducibility status for a definition.

instance Lean.instInhabitedReducibilityStatus : Inhabited Lean.ReducibilityStatus

Equations

• Lean.instInhabitedReducibilityStatus = { default := Lean.ReducibilityStatus.reducible }

instance Lean.instReprReducibilityStatus : Repr Lean.ReducibilityStatus

Equations

• Lean.instReprReducibilityStatus = { reprPrec := Lean.reprReducibilityStatus✝ }

opaque Lean.reducibilityAttrs : Lean.EnumAttributes Lean.ReducibilityStatus

Environment extension for storing the reducibility attribute for definitions.

def Lean.getReducibilityStatus {m : Type → Type} [Monad m] [Lean.MonadEnv m] (declName : Lake.Name) : m Lean.ReducibilityStatus

Return the reducibility attribute for the given declaration.

Equations

• Lean.getReducibilityStatus declName = do let __do_lift ← Lean.getEnv pure (Lean.getReducibilityStatusImp __do_lift declName)

def Lean.setReducibilityStatus {m : Type → Type} [Monad m] [Lean.MonadEnv m] (declName : Lake.Name) (s : Lean.ReducibilityStatus) : m Unit

Set the reducibility attribute for the given declaration.

Equations

• Lean.setReducibilityStatus declName s = Lean.modifyEnv fun env => Lean.setReducibilityStatusImp env declName s

def Lean.setReducibleAttribute {m : Type → Type} [Monad m] [Lean.MonadEnv m] (declName : Lake.Name) : m Unit

Set the given declaration as [reducible]

Equations

• Lean.setReducibleAttribute declName = Lean.setReducibilityStatus declName Lean.ReducibilityStatus.reducible

def Lean.isReducible {m : Type → Type} [Monad m] [Lean.MonadEnv m] (declName : Lake.Name) : m Bool

Return true if the given declaration has been marked as [reducible].

Equations

• Lean.isReducible declName = do let __do_lift ← Lean.getReducibilityStatus declName match __do_lift with | Lean.ReducibilityStatus.reducible => pure true | x => pure false

def Lean.isIrreducible {m : Type → Type} [Monad m] [Lean.MonadEnv m] (declName : Lake.Name) : m Bool

Return true if the given declaration has been marked as [irreducible]

Equations

• Lean.isIrreducible declName = do let __do_lift ← Lean.getReducibilityStatus declName match __do_lift with | Lean.ReducibilityStatus.irreducible => pure true | x => pure false