Theorem: getThe.arg.HasAdjDiffValM_rule (SciLean/Core/Monads/StateT.lean)

State before:
K : Type
inst✝⁹ : RCLike K
m : Type → Type
m' : outParam (Type → Type)
inst✝⁸ : Monad m
inst✝⁷ : Monad m'
inst✝⁶ : RevDerivMonad K m m'
inst✝⁵ : LawfulMonad m
inst✝⁴ : LawfulMonad m'
S : Type
inst✝³ : SemiInnerProductSpace K S
X : Type ?u.200492
inst✝² : SemiInnerProductSpace K X
Y : Type ?u.200503
inst✝¹ : SemiInnerProductSpace K Y
Z : Type ?u.200514
inst✝ : SemiInnerProductSpace K Z
⊢ HasAdjDiffValM K (getThe S)
Tactic:
simp[getThe, MonadStateOf.get, StateT.get,HasAdjDiffValM,HasAdjDiffM]
State after:
K : Type
inst✝⁹ : RCLike K
m : Type → Type
m' : outParam (Type → Type)
inst✝⁸ : Monad m
inst✝⁷ : Monad m'
inst✝⁶ : RevDerivMonad K m m'
inst✝⁵ : LawfulMonad m
inst✝⁴ : LawfulMonad m'
S : Type
inst✝³ : SemiInnerProductSpace K S
X : Type ?u.200492
inst✝² : SemiInnerProductSpace K X
Y : Type ?u.200503
inst✝¹ : SemiInnerProductSpace K Y
Z : Type ?u.200514
inst✝ : SemiInnerProductSpace K Z
⊢ HasAdjDiffM K fun xs => pure (xs.2, xs.2)

State before:
K : Type
inst✝⁹ : RCLike K
m : Type → Type
m' : outParam (Type → Type)
inst✝⁸ : Monad m
inst✝⁷ : Monad m'
inst✝⁶ : RevDerivMonad K m m'
inst✝⁵ : LawfulMonad m
inst✝⁴ : LawfulMonad m'
S : Type
inst✝³ : SemiInnerProductSpace K S
X : Type ?u.200492
inst✝² : SemiInnerProductSpace K X
Y : Type ?u.200503
inst✝¹ : SemiInnerProductSpace K Y
Z : Type ?u.200514
inst✝ : SemiInnerProductSpace K Z
⊢ HasAdjDiffM K fun xs => pure (xs.2, xs.2)
Tactic:
fun_prop
State after:
no goals