@@ -92,7 +92,7 @@ variable {P : Extension.{u} R S} {Q : Extension.{u} R T} (f : P.Hom Q)
9292
9393/-- If `P → Q` is formally étale, then `T ⊗ₛ (S ⊗ₚ Ω[P/R]) ≃ T ⊗_Q Ω[Q/R]`. -/
9494noncomputable
95- def tensorCotangentSpace
95+ def tensorCotangentSpaceOfFormallyEtale
9696 (H : f.toRingHom.FormallyEtale) :
9797 T ⊗[S] P.CotangentSpace ≃ₗ[T] Q.CotangentSpace :=
9898 letI := f.toRingHom.toAlgebra
@@ -230,8 +230,8 @@ def tensorCotangent [alg : Algebra P.Ring Q.Ring] (halg : algebraMap P.Ring Q.Ri
230230
231231/-- If `J ≃ Q ⊗ₚ I`, `S → T` is flat and `P → Q` is formally étale, then `T ⊗ H¹(L_P) ≃ H¹(L_Q)`. -/
232232noncomputable
233- def tensorH1Cotangent [alg : Algebra P.Ring Q.Ring] (halg : algebraMap P.Ring Q.Ring = f.toRingHom)
234- [Module.Flat S T]
233+ def tensorH1CotangentOfFormallyEtale [alg : Algebra P.Ring Q.Ring]
234+ (halg : algebraMap P.Ring Q.Ring = f.toRingHom) [Module.Flat S T]
235235 (H₁ : f.toRingHom.FormallyEtale)
236236 (H₂ : Function.Bijective ((f.mapKer halg).liftBaseChange Q.Ring)) :
237237 T ⊗[S] P.H1Cotangent ≃ₗ[T] Q.H1Cotangent := by
@@ -252,7 +252,7 @@ def tensorH1Cotangent [alg : Algebra P.Ring Q.Ring] (halg : algebraMap P.Ring Q.
252252 have : Function.Exact (h1Cotangentι.baseChange T) (P.cotangentComplex.baseChange T) :=
253253 Module.Flat.lTensor_exact T (LinearMap.exact_subtype_ker_map _)
254254 obtain ⟨a, ha⟩ := (this ((Extension.tensorCotangent f halg H₂).symm x.1 )).mp (by
255- apply (Extension.tensorCotangentSpace f H₁).injective
255+ apply (Extension.tensorCotangentSpaceOfFormallyEtale f H₁).injective
256256 rw [LinearEquiv.map_zero, ← x.2 ]
257257 have : (CotangentSpace.map f).liftBaseChange T ∘ₗ P.cotangentComplex.baseChange T =
258258 Q.cotangentComplex ∘ₗ (Cotangent.map f).liftBaseChange T := by
@@ -308,7 +308,8 @@ def tensorH1CotangentOfIsLocalization (M : Submonoid S) [IsLocalization M T] :
308308 rw [isLocalizedModule_iff_isLocalization]
309309 convert ‹IsLocalization M T› using 1
310310 exact Submonoid.map_comap_eq_of_surjective P.algebraMap_surjective _
311- refine Extension.tensorH1Cotangent f rfl ?_ ?_ ≪≫ₗ Extension.equivH1CotangentOfFormallySmooth _
311+ refine Extension.tensorH1CotangentOfFormallyEtale f rfl ?_ ?_ ≪≫ₗ
312+ Extension.equivH1CotangentOfFormallySmooth _
312313 · exact RingHom.formallyEtale_algebraMap.mpr
313314 (FormallyEtale.of_isLocalization (M := M') (Rₘ := Localization M'))
314315 · let F : P.ker →ₗ[P.Ring] RingHom.ker fQ := f.mapKer rfl
@@ -345,7 +346,7 @@ lemma tensorH1CotangentOfIsLocalization_toLinearMap
345346 simp only [AlgebraTensorModule.curry_apply, curry_apply, LinearMap.coe_restrictScalars,
346347 LinearEquiv.coe_coe, LinearMap.liftBaseChange_tmul, one_smul]
347348 simp only [tensorH1CotangentOfIsLocalization, Generators.toExtension_Ring,
348- Extension.tensorH1Cotangent ,
349+ Extension.tensorH1CotangentOfFormallyEtale ,
349350 LinearEquiv.ofBijective_apply, LinearMap.liftBaseChange_tmul, one_smul,
350351 Extension.equivH1CotangentOfFormallySmooth, LinearEquiv.trans_apply]
351352 letI P : Extension R S := (Generators.self R S).toExtension
0 commit comments