Theorem: SciLean.revDeriv2.let_rule
Proof state before:
case h.h
K I : Type
inst✝²¹ : RCLike K
W : Type
inst✝²⁰ : SemiInnerProductSpace K W
X : Type
inst✝¹⁹ : SemiInnerProductSpace K X
Y : Type
inst✝¹⁸ : SemiInnerProductSpace K Y
Z : Type
inst✝¹⁷ : SemiInnerProductSpace K Z
ι : Type
inst✝¹⁶ : IndexType ι
inst✝¹⁵ : LawfulIndexType ι
inst✝¹⁴ : DecidableEq ι
E : Type
EI : I → Type
inst✝¹³ : StructType E I EI
inst✝¹² : IndexType I
inst✝¹¹ : LawfulIndexType I
inst✝¹⁰ : DecidableEq I
inst✝⁹ : SemiInnerProductSpace K E
inst✝⁸ : (i : I) → SemiInnerProductSpace K (EI i)
XI : I → Type
inst✝⁷ : StructType X I XI
inst✝⁶ : (i : I) → SemiInnerProductSpace K (XI i)
YI : I → Type
inst✝⁵ : StructType Y I YI
inst✝⁴ : (i : I) → SemiInnerProductSpace K (YI i)
ZI : I → Type
inst✝³ : StructType Z I ZI
inst✝² : (i : I) → SemiInnerProductSpace K (ZI i)
WI : I → Type
inst✝¹ : StructType W I WI
inst✝ : (i : I) → SemiInnerProductSpace K (WI i)
f : W → X → Y → Z
g : W → X → Y
hf : HasAdjDiff K fun x => f x.1 x.2.1 x.2.2
hg : HasAdjDiff K fun x => g x.1 x.2
x : W
y : X
⊢ ((fun w x =>
          let y := g w x;
          f w x y)
        x y,
      fun dy =>
      match (motive := W × X → W → W × X)
        semiAdjoint K
          (cderiv K
            (fun x =>
              match x with
              | (w, x) =>
                (fun w x =>
                    let y := g w x;
                    f w x y)
                  w x)
            (x, y))
          dy with
      | (dw, dx) => fun dw' => (dw' + dw, dx)) =
    let ydg :=
      ((fun wx x => g wx.1 wx.2) (x, y) (), fun dy =>
        match (motive := (W × X) × Unit → W × X → (W × X) × Unit)
          semiAdjoint K
            (cderiv K
              (fun x =>
                match x with
                | (w, x) => (fun wx x => g wx.1 wx.2) w x)
              ((x, y), ()))
            dy with
        | (dw, dx) => fun dw' => (dw' + dw, dx));
    let zdf :=
      ((fun w xy => f w xy.1 xy.2) x (y, ydg.1), fun dy =>
        match (motive := W × X × Y → W → W × X × Y)
          semiAdjoint K
            (cderiv K
              (fun x =>
                match x with
                | (w, x) => (fun w xy => f w xy.1 xy.2) w x)
              (x, y, ydg.1))
            dy with
        | (dw, dx) => fun dw' => (dw' + dw, dx));
    (zdf.1, fun dz dx =>
      let dxyz := zdf.2 dz dx;
      let dxy := ydg.2 dxyz.2.2 (dxyz.1, dxyz.2.1);
      dxy.1)
Tactic:
simp (config:={zeta:=false})
Proof state after:
case h.h
K I : Type
inst✝²¹ : RCLike K
W : Type
inst✝²⁰ : SemiInnerProductSpace K W
X : Type
inst✝¹⁹ : SemiInnerProductSpace K X
Y : Type
inst✝¹⁸ : SemiInnerProductSpace K Y
Z : Type
inst✝¹⁷ : SemiInnerProductSpace K Z
ι : Type
inst✝¹⁶ : IndexType ι
inst✝¹⁵ : LawfulIndexType ι
inst✝¹⁴ : DecidableEq ι
E : Type
EI : I → Type
inst✝¹³ : StructType E I EI
inst✝¹² : IndexType I
inst✝¹¹ : LawfulIndexType I
inst✝¹⁰ : DecidableEq I
inst✝⁹ : SemiInnerProductSpace K E
inst✝⁸ : (i : I) → SemiInnerProductSpace K (EI i)
XI : I → Type
inst✝⁷ : StructType X I XI
inst✝⁶ : (i : I) → SemiInnerProductSpace K (XI i)
YI : I → Type
inst✝⁵ : StructType Y I YI
inst✝⁴ : (i : I) → SemiInnerProductSpace K (YI i)
ZI : I → Type
inst✝³ : StructType Z I ZI
inst✝² : (i : I) → SemiInnerProductSpace K (ZI i)
WI : I → Type
inst✝¹ : StructType W I WI
inst✝ : (i : I) → SemiInnerProductSpace K (WI i)
f : W → X → Y → Z
g : W → X → Y
hf : HasAdjDiff K fun x => f x.1 x.2.1 x.2.2
hg : HasAdjDiff K fun x => g x.1 x.2
x : W
y : X
⊢ (let y_1 := g x y;
      f x y y_1,
      fun dy dw' =>
      (dw' +
          (semiAdjoint K
              (cderiv K
                (fun x =>
                  let y := g x.1 x.2;
                  f x.1 x.2 y)
                (x, y))
              dy).1,
        (semiAdjoint K
            (cderiv K
              (fun x =>
                let y := g x.1 x.2;
                f x.1 x.2 y)
              (x, y))
            dy).2)) =
    let ydg :=
      (g x y, fun dy dw' =>
        (dw' + (semiAdjoint K (cderiv K (fun x => g x.1.1 x.1.2) ((x, y), ())) dy).1,
          (semiAdjoint K (cderiv K (fun x => g x.1.1 x.1.2) ((x, y), ())) dy).2));
    let zdf :=
      (f x y ydg.1, fun dy dw' =>
        (dw' + (semiAdjoint K (cderiv K (fun x => f x.1 x.2.1 x.2.2) (x, y, ydg.1)) dy).1,
          (semiAdjoint K (cderiv K (fun x => f x.1 x.2.1 x.2.2) (x, y, ydg.1)) dy).2));
    (zdf.1, fun dz dx =>
      let dxyz := zdf.2 dz dx;
      let dxy := ydg.2 dxyz.2.2 (dxyz.1, dxyz.2.1);
      dxy.1)