congr
case h.h.h
K : Type
inst✝⁹ : RCLike K
m : Type → Type
m' : outParam (Type → Type)
inst✝⁸ : Monad m
inst✝⁷ : Monad m'
inst✝⁶ : FwdDerivMonad K m m'
inst✝⁵ : LawfulMonad m
inst✝⁴ : LawfulMonad m'
S : Type
inst✝³ : Vec K S
X : Type
inst✝² : Vec K X
Y : Type ?u.59537
inst✝¹ : Vec K Y
Z : Type ?u.59548
inst✝ : Vec K Z
f : X → S → S
ha0 : CDifferentiable K fun xs => f xs.1 xs.2
x✝² x✝¹ : X
x✝ : S × S
⊢ pure ((PUnit.unit, PUnit.unit), fwdDeriv K (fun x => f x.1 x.2) (x✝², x✝.1) (x✝¹, x✝.2)) =
    pure ((), ()) (fwdDeriv K (fun x => f x.1 x.2) (x✝², x✝.1) (x✝¹, x✝.2))
no goals