consThermENotes :: [Sentence]
consThermENotes = map foldlSent [
  [S "The above", phrase equation, S "gives the", phrase lawConsEnergy,
   S "for", phrase transient, phrase heatTrans, S "in a given material"],
  [S "For this", phrase equation, S "to apply" `sC` S "other forms" `sOf`
   phrase energy `sC` S "such as", phrase mechEnergy `sC` S "are assumed",
   S "to be negligible" `inThe` phrase system, sParen (makeRef2S assumpTEO)]]
consThermENotes :: [Sentence]
consThermENotes = map foldlSent [
  [S "The above", phrase equation, S "gives the", phrase lawConsEnergy,
   S "for", phrase transient, phrase heatTrans, S "in a given material"],
  [S "For this", phrase equation, S "to apply" `sC` S "other forms" `sOf`
   phrase energy `sC` S "such as", phrase mechEnergy `sC` S "are assumed",
   S "to be negligible" `inThe` phrase system, sParen (makeRef2S assumpTEO)]]
consThermENotes = map foldlSent [
  [S "The above", phrase equation, S "gives the", phrase lawConsEnergy,
   S "for", phrase transient, phrase heatTrans, S "in a given material"],
  [S "For this", phrase equation, S "to apply" `sC` S "other forms" `sOf`
   phrase energy `sC` S "such as", phrase mechEnergy `sC` S "are assumed",
   S "to be negligible" `inThe` phrase system, sParen (makeRef2S assumpTEO)]]