simp[set, StateT.set, HasAdjDiffValM, HasAdjDiffM]
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
inst✝² : SemiInnerProductSpace K X
Y : Type ?u.238553
inst✝¹ : SemiInnerProductSpace K Y
Z : Type ?u.238564
inst✝ : SemiInnerProductSpace K Z
s : X → S
ha0 : HasAdjDiff K s
⊢ HasAdjDiffM K fun x => set (s x)
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
inst✝² : SemiInnerProductSpace K X
Y : Type ?u.238553
inst✝¹ : SemiInnerProductSpace K Y
Z : Type ?u.238564
inst✝ : SemiInnerProductSpace K Z
s : X → S
ha0 : HasAdjDiff K s
⊢ HasAdjDiffM K fun xs => pure (PUnit.unit, s xs.1)