diff --git a/Physlib/SpaceAndTime/Space/ConstantSliceDist.lean b/Physlib/SpaceAndTime/Space/ConstantSliceDist.lean index 48b9999f0..7449bfe81 100644 --- a/Physlib/SpaceAndTime/Space/ConstantSliceDist.lean +++ b/Physlib/SpaceAndTime/Space/ConstantSliceDist.lean @@ -171,7 +171,6 @@ lemma schwartzMap_integrable_slice_symm {d : โ„•} (i : Fin d.succ) (ฮท : ๐“ข(Sp ยท fun_prop ยท simp -set_option maxSynthPendingDepth 10000 in lemma schwartzMap_fderiv_integrable_slice_symm {d : โ„•} (ฮท : ๐“ข(Space d.succ, โ„)) (x : Space d) (i : Fin d.succ) : Integrable (fun r => fderiv โ„ (fun x => ฮท (((slice i).symm (r, x)))) x) volume := by diff --git a/Physlib/SpaceAndTime/Space/Module.lean b/Physlib/SpaceAndTime/Space/Module.lean index 50117b0ac..9d08b88b5 100644 --- a/Physlib/SpaceAndTime/Space/Module.lean +++ b/Physlib/SpaceAndTime/Space/Module.lean @@ -253,6 +253,14 @@ instance {d} : InnerProductSpace โ„ (Space d) where simpa only [smul_vadd_zero, inner_vadd_zero, conj_trivial] using InnerProductSpace.smul_left v1 v2 a +/-- The normed space structure on `Space d`, registered directly. It is definitionally the + one underlying the inner product space structure, but registering it as its own instance is + needed for typeclass search to find the operator-norm structure on `Space d โ†’L[โ„] โ„` + (for example `NormSMulClass โ„ (Space d โ†’L[โ„] โ„)`), which is not found when + `NormedSpace โ„ (Space d)` arises only as a nested subgoal through + `InnerProductSpace.toNormedSpace`. -/ +noncomputable instance {d} : NormedSpace โ„ (Space d) := InnerProductSpace.toNormedSpace + lemma norm_smul_sphere {d : โ„•} (n : โ†‘(Metric.sphere (0 : Space d) 1)) {r : โ„} (hr : 0 โ‰ค r) : โ€–(r โ€ข (n : Space d))โ€– = r := by diff --git a/Physlib/SpaceAndTime/TimeAndSpace/ConstantTimeDist.lean b/Physlib/SpaceAndTime/TimeAndSpace/ConstantTimeDist.lean index a0e8f1260..e8e2b0994 100644 --- a/Physlib/SpaceAndTime/TimeAndSpace/ConstantTimeDist.lean +++ b/Physlib/SpaceAndTime/TimeAndSpace/ConstantTimeDist.lean @@ -292,7 +292,6 @@ lemma time_integral_differentiable {d : โ„•} (ฮท : ๐“ข(Time ร— Space d, โ„)) : -/ -set_option maxSynthPendingDepth 10000 in @[fun_prop] lemma integrable_fderiv_space {d : โ„•} (ฮท : ๐“ข(Time ร— Space d, โ„)) (x : Space d) : Integrable (fun t => fderiv โ„ (fun x => ฮท (t, x)) x) volume := by