latentHtENotes :: [Sentence]
latentHtENotes = map foldlSent [
  [ch latentHeat `isThe` S "change" `sIn` phrase thermalEnergy,
   sParen (phrase latentHeat +:+ phrase energy)],
  [E latHtEEqn `isThe` phrase rOfChng `sOf` ch latentHeat,
   S "with respect to", phrase time, ch tau],
  [ch time `isThe` phrase time, S "elapsed" `sC` S "as long as the",
   phrase phaseChange, S "is not complete"],
  [S "status" `ofThe'` phrase phaseChange, S "depends on the",
   phrase meltFrac, sParen (S "from" +:+ makeRef2S ddMeltFrac)],
  [atStart latentHeat :+: S "ing stops when all material has changed to the new phase"]]
latentHtENotes :: [Sentence]
latentHtENotes = map foldlSent [
  [ch latentHeat `isThe` S "change" `sIn` phrase thermalEnergy,
   sParen (phrase latentHeat +:+ phrase energy)],
  [E latHtEEqn `isThe` phrase rOfChng `sOf` ch latentHeat,
   S "with respect to", phrase time, ch tau],
  [ch time `isThe` phrase time, S "elapsed" `sC` S "as long as the",
   phrase phaseChange, S "is not complete"],
  [S "status" `ofThe'` phrase phaseChange, S "depends on the",
   phrase meltFrac, sParen (S "from" +:+ makeRef2S ddMeltFrac)],
  [atStart latentHeat :+: S "ing stops when all material has changed to the new phase"]]
latentHtENotes = map foldlSent [
  [ch latentHeat `isThe` S "change" `sIn` phrase thermalEnergy,
   sParen (phrase latentHeat +:+ phrase energy)],
  [E latHtEEqn `isThe` phrase rOfChng `sOf` ch latentHeat,
   S "with respect to", phrase time, ch tau],
  [ch time `isThe` phrase time, S "elapsed" `sC` S "as long as the",
   phrase phaseChange, S "is not complete"],
  [S "status" `ofThe'` phrase phaseChange, S "depends on the",
   phrase meltFrac, sParen (S "from" +:+ makeRef2S ddMeltFrac)],
  [atStart latentHeat :+: S "ing stops when all material has changed to the new phase"]]