Постройте два уравнения на одном графике в Mathematica

Я хочу построить два уравнения на одном графике, используя Mathematica. Тем не менее, я понятия не имею, как это сделать. Мне нужно добавить это уравнение (k^2 + Log[0.75]) к графику. Затем покажите точку, где кривые встречаются друг с другом. Пожалуйста помоги! Вот мой код:

eqn[d_Integer?NonNegative, r_, B_, nmax_Integer?Positive] := 
Sum[Exp[-n*\[Lambda]]*(1 - r)^
 n Exp[
  n*k^2 - k^2*B (HarmonicNumber[n + d] - HarmonicNumber[d])], {n, 
 1, nmax}] == -1 + Exp[\[Lambda]]/r;
BValues = {0, 0.5, 5};

Block[{$MaxExtraPrecision = 500}, 
ContourPlot[
Evaluate@Table[eqn[10, 0.25, B, 100], {B, BValues}], {k, 1/20, 
 2}, {\[Lambda], -1, 3.5}, 
 FrameLabel -> (Style[#, 14] & /@ {k, Subscript[\[Lambda], r]}), 
  RotateLabel -> False, PlotPoints -> 100, MaxRecursion -> 4, 
    AspectRatio -> 1/GoldenRatio, 
     PlotLegends -> 
      Placed[LineLegend[N@BValues, LegendLabel -> "B  = "], {.1, .6}], 
   GridLines -> {None, {0}}, 
   GridLinesStyle -> Directive[Gray, AbsoluteThickness[1], Dashed]]]