def StateRefT' (ω : Type) (σ : Type) (m : Type → Type) (α : Type) : Type

Equations

• StateRefT' ω σ m α = ReaderT (ST.Ref ω σ) m α

Instances For

• Lean.Compiler.LCNF.instMonadCodeBindStateRefT'OfSTWorld
• Lean.MetavarContext.instMonadMCtxStateRefT'ST
• Lean.instMonadAlwaysExceptStateRefT'
• Lean.instMonadMCtxStateRefT'MetavarContextST
• Lean.instMonadRecDepthStateRefT'OfMonad
• Lean.instMonadRuntimeExceptionStateRefT'
• StateRefT'.instAlternativeOfMonad
• StateRefT'.instMonad
• StateRefT'.instMonadExceptOf
• StateRefT'.instMonadFunctor
• StateRefT'.instMonadLift
• StateRefT'.instMonadStateOfOfMonadLiftTST
• instLawfulMonadStateRefT'
• instMonadControlStateRefT'
• instMonadFinallyStateRefT'OfMonad

Recall that StateRefT is a macro that infers ω from the m.

@[inline]

def StateRefT'.run {ω : Type} {σ : Type} {m : Type → Type} [Monad m] [MonadLiftT (ST ω) m] {α : Type} (x : StateRefT' ω σ m α) (s : σ) : m (α × σ)

Equations

• x.run s = do let ref ← ST.mkRef s let a ← x ref let s ← ref.get pure (a, s)

@[inline]

def StateRefT'.run' {ω : Type} {σ : Type} {m : Type → Type} [Monad m] [MonadLiftT (ST ω) m] {α : Type} (x : StateRefT' ω σ m α) (s : σ) : m α

Equations

• x.run' s = do let __discr ← x.run s match __discr with | (a, snd) => pure a

@[inline]

def StateRefT'.lift {ω : Type} {σ : Type} {m : Type → Type} {α : Type} (x : m α) : StateRefT' ω σ m α

Equations

• StateRefT'.lift x✝ x = x✝

instance StateRefT'.instMonad {ω : Type} {σ : Type} {m : Type → Type} [Monad m] : Monad (StateRefT' ω σ m)

Equations

• StateRefT'.instMonad = inferInstanceAs (Monad (ReaderT (ST.Ref ω σ) m))

instance StateRefT'.instMonadLift {ω : Type} {σ : Type} {m : Type → Type} : MonadLift m (StateRefT' ω σ m)

Equations

• StateRefT'.instMonadLift = { monadLift := fun {α : Type} => StateRefT'.lift }

instance StateRefT'.instMonadFunctor {ω : Type} (σ : Type) (m : Type → Type) : MonadFunctor m (StateRefT' ω σ m)

Equations

• StateRefT'.instMonadFunctor σ m = inferInstanceAs (MonadFunctor m (ReaderT (ST.Ref ω σ) m))

instance StateRefT'.instAlternativeOfMonad {ω : Type} {σ : Type} {m : Type → Type} [Alternative m] [Monad m] : Alternative (StateRefT' ω σ m)

Equations

• StateRefT'.instAlternativeOfMonad = inferInstanceAs (Alternative (ReaderT (ST.Ref ω σ) m))

@[inline]

def StateRefT'.get {ω : Type} {σ : Type} {m : Type → Type} [MonadLiftT (ST ω) m] : StateRefT' ω σ m σ

Equations

• StateRefT'.get ref = ref.get

@[inline]

def StateRefT'.set {ω : Type} {σ : Type} {m : Type → Type} [MonadLiftT (ST ω) m] (s : σ) : StateRefT' ω σ m PUnit

Equations

• StateRefT'.set s ref = ref.set s

@[inline]

def StateRefT'.modifyGet {ω : Type} {σ : Type} {m : Type → Type} {α : Type} [MonadLiftT (ST ω) m] (f : σ → α × σ) : StateRefT' ω σ m α

Equations

• StateRefT'.modifyGet f ref = ref.modifyGet f

instance StateRefT'.instMonadStateOfOfMonadLiftTST {ω : Type} {σ : Type} {m : Type → Type} [MonadLiftT (ST ω) m] : MonadStateOf σ (StateRefT' ω σ m)

Equations

• StateRefT'.instMonadStateOfOfMonadLiftTST = { get := StateRefT'.get, set := StateRefT'.set, modifyGet := fun {α : Type} => StateRefT'.modifyGet }

@[always_inline]

instance StateRefT'.instMonadExceptOf {ω : Type} {σ : Type} {m : Type → Type} (ε : Type u_1) [MonadExceptOf ε m] : MonadExceptOf ε (StateRefT' ω σ m)

Equations

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

instance instMonadControlStateRefT' (ω : Type) (σ : Type) (m : Type → Type) : MonadControl m (StateRefT' ω σ m)

Equations

• instMonadControlStateRefT' ω σ m = inferInstanceAs (MonadControl m (ReaderT (ST.Ref ω σ) m))

instance instMonadFinallyStateRefT'OfMonad {m : Type → Type} {ω : Type} {σ : Type} [MonadFinally m] [Monad m] : MonadFinally (StateRefT' ω σ m)

Equations

• instMonadFinallyStateRefT'OfMonad = inferInstanceAs (MonadFinally (ReaderT (ST.Ref ω σ) m))