Theoretical Physics VI-Thermodynamics Sheet 13

Problem 13.1

D[Cosh[a B0] + Sqrt[Cosh[a B0]^2  - 2 Exp[-b] Sinh[b]], 
      B0]

FullSimplify[
      a Sinh[a B0] + ((a Cosh[a B0] Sinh[
                  a B0])/(Sqrt[Cosh[a B0]^2 - 2 (E^(-b)) Sinh[b]]))/(Exp[
                b/2] (Cosh[a B0] + 
                  Sqrt[Cosh[a B0]^2  - 
                      2 Exp[-b] Sinh[b]]))]