Theorem: SciLean.HasSemiAdjoint.Prod.fst.arg_self.HasSemiAdjoint_rule
Proof state before:
K✝ : Type ?u.25914
inst✝¹⁷ : RCLike K✝
X✝ : Type ?u.25920
inst✝¹⁶ : SemiInnerProductSpace K✝ X✝
Y✝ : Type ?u.25933
inst✝¹⁵ : SemiInnerProductSpace K✝ Y✝
Z✝ : Type ?u.25944
inst✝¹⁴ : SemiInnerProductSpace K✝ Z✝
W✝ : Type ?u.25955
inst✝¹³ : SemiInnerProductSpace K✝ W✝
ι✝ : Type ?u.25966
inst✝¹² : IndexType ι✝
inst✝¹¹ : LawfulIndexType ι✝
inst✝¹⁰ : DecidableEq ι✝
E✝ : ι✝ → Type ?u.25993
inst✝⁹ : (i : ι✝) → SemiInnerProductSpace K✝ (E✝ i)
K : Type u_3
inst✝⁸ : RCLike K
X : Type u_4
inst✝⁷ : SemiInnerProductSpace K X
Y : Type u_1
inst✝⁶ : SemiInnerProductSpace K Y
Z : Type u_2
inst✝⁵ : SemiInnerProductSpace K Z
W : Type ?u.26050
inst✝⁴ : SemiInnerProductSpace K W
ι : Type ?u.26061
inst✝³ : IndexType ι
inst✝² : LawfulIndexType ι
inst✝¹ : DecidableEq ι
E : ι → Type ?u.26088
inst✝ : (i : ι) → SemiInnerProductSpace K (E i)
f : X → Y × Z
hf : HasSemiAdjoint K f
x✝ : X
y✝ : Y
a✝ : TestFunction x✝
⊢ ⟪y✝, (f x✝).1⟫_K = ⟪(fun y => semiAdjoint K f (y, 0)) y✝, x✝⟫_K
Tactic:
rw[semiAdjoint_move]
Proof state after:
K✝ : Type ?u.25914
inst✝¹⁷ : RCLike K✝
X✝ : Type ?u.25920
inst✝¹⁶ : SemiInnerProductSpace K✝ X✝
Y✝ : Type ?u.25933
inst✝¹⁵ : SemiInnerProductSpace K✝ Y✝
Z✝ : Type ?u.25944
inst✝¹⁴ : SemiInnerProductSpace K✝ Z✝
W✝ : Type ?u.25955
inst✝¹³ : SemiInnerProductSpace K✝ W✝
ι✝ : Type ?u.25966
inst✝¹² : IndexType ι✝
inst✝¹¹ : LawfulIndexType ι✝
inst✝¹⁰ : DecidableEq ι✝
E✝ : ι✝ → Type ?u.25993
inst✝⁹ : (i : ι✝) → SemiInnerProductSpace K✝ (E✝ i)
K : Type u_3
inst✝⁸ : RCLike K
X : Type u_4
inst✝⁷ : SemiInnerProductSpace K X
Y : Type u_1
inst✝⁶ : SemiInnerProductSpace K Y
Z : Type u_2
inst✝⁵ : SemiInnerProductSpace K Z
W : Type ?u.26050
inst✝⁴ : SemiInnerProductSpace K W
ι : Type ?u.26061
inst✝³ : IndexType ι
inst✝² : LawfulIndexType ι
inst✝¹ : DecidableEq ι
E : ι → Type ?u.26088
inst✝ : (i : ι) → SemiInnerProductSpace K (E i)
f : X → Y × Z
hf : HasSemiAdjoint K f
x✝ : X
y✝ : Y
a✝ : TestFunction x✝
⊢ ⟪y✝, (f x✝).1⟫_K = ⟪(y✝, 0), f x✝⟫_K

case hx
K✝ : Type ?u.25914
inst✝¹⁷ : RCLike K✝
X✝ : Type ?u.25920
inst✝¹⁶ : SemiInnerProductSpace K✝ X✝
Y✝ : Type ?u.25933
inst✝¹⁵ : SemiInnerProductSpace K✝ Y✝
Z✝ : Type ?u.25944
inst✝¹⁴ : SemiInnerProductSpace K✝ Z✝
W✝ : Type ?u.25955
inst✝¹³ : SemiInnerProductSpace K✝ W✝
ι✝ : Type ?u.25966
inst✝¹² : IndexType ι✝
inst✝¹¹ : LawfulIndexType ι✝
inst✝¹⁰ : DecidableEq ι✝
E✝ : ι✝ → Type ?u.25993
inst✝⁹ : (i : ι✝) → SemiInnerProductSpace K✝ (E✝ i)
K : Type u_3
inst✝⁸ : RCLike K
X : Type u_4
inst✝⁷ : SemiInnerProductSpace K X
Y : Type u_1
inst✝⁶ : SemiInnerProductSpace K Y
Z : Type u_2
inst✝⁵ : SemiInnerProductSpace K Z
W : Type ?u.26050
inst✝⁴ : SemiInnerProductSpace K W
ι : Type ?u.26061
inst✝³ : IndexType ι
inst✝² : LawfulIndexType ι
inst✝¹ : DecidableEq ι
E : ι → Type ?u.26088
inst✝ : (i : ι) → SemiInnerProductSpace K (E i)
f : X → Y × Z
hf : HasSemiAdjoint K f
x✝ : X
y✝ : Y
a✝ : TestFunction x✝
⊢ TestFunction x✝

case hf
K✝ : Type ?u.25914
inst✝¹⁷ : RCLike K✝
X✝ : Type ?u.25920
inst✝¹⁶ : SemiInnerProductSpace K✝ X✝
Y✝ : Type ?u.25933
inst✝¹⁵ : SemiInnerProductSpace K✝ Y✝
Z✝ : Type ?u.25944
inst✝¹⁴ : SemiInnerProductSpace K✝ Z✝
W✝ : Type ?u.25955
inst✝¹³ : SemiInnerProductSpace K✝ W✝
ι✝ : Type ?u.25966
inst✝¹² : IndexType ι✝
inst✝¹¹ : LawfulIndexType ι✝
inst✝¹⁰ : DecidableEq ι✝
E✝ : ι✝ → Type ?u.25993
inst✝⁹ : (i : ι✝) → SemiInnerProductSpace K✝ (E✝ i)
K : Type u_3
inst✝⁸ : RCLike K
X : Type u_4
inst✝⁷ : SemiInnerProductSpace K X
Y : Type u_1
inst✝⁶ : SemiInnerProductSpace K Y
Z : Type u_2
inst✝⁵ : SemiInnerProductSpace K Z
W : Type ?u.26050
inst✝⁴ : SemiInnerProductSpace K W
ι : Type ?u.26061
inst✝³ : IndexType ι
inst✝² : LawfulIndexType ι
inst✝¹ : DecidableEq ι
E : ι → Type ?u.26088
inst✝ : (i : ι) → SemiInnerProductSpace K (E i)
f : X → Y × Z
hf : HasSemiAdjoint K f
x✝ : X
y✝ : Y
a✝ : TestFunction x✝
⊢ HasSemiAdjoint K f