Resolvendo erros de build

Author: Patrick20022

Fad/Chapter5-Ex.lean

@@ -217,7 +217,7 @@ def merge₁ (f : a → a → Ordering) : List a → List a → List a
     y :: merge₁ f (x :: xs) ys
 
 open Chapter1 (wrap unwrap single until') in
-open S52 in
+open Mergesort in
 
 def sortBy (f : a → a → Ordering) : List a → List a
  | []    => []

Fad/Chapter8.lean

@@ -11,7 +11,7 @@ namespace S1
 
 /- 8.1 Minimum-height trees -/
 
-open Chapter5.S52 (halve length_halve_fst length_halve_snd pairWith)
+open Chapter5.Mergesort (halve length_halve_fst length_halve_snd pairWith)
 open Chapter1 (wrap unwrap single until' concatMap)
 open Chapter6 (foldl1)
 open Chapter7 (minWith)