conv => lhs; fun_trans; simp
K : Type
inst✝⁶ : RCLike K
Cont : Type
Idx Elem : outParam Type
inst✝⁵ : ArrayType Cont Idx Elem
inst✝⁴ : IndexType Idx
inst✝³ : LawfulIndexType Idx
inst✝² : DecidableEq Idx
X : Type
inst✝¹ : SemiInnerProductSpace K X
inst✝ : SemiInnerProductSpace K Elem
f : X → Idx → Elem
hf : HasAdjDiff K f
⊢ (fun x => ((fun x => ofFn (f x)) x, semiAdjoint K (cderiv K (fun x => ofFn (f x)) x))) = fun x =>
    let fdf := (f x, semiAdjoint K (cderiv K f x));
    (ofFn fdf.1, fun dcont => fdf.2 fun idx => dcont[idx])
no goals