--- a/src/Pure/ML/ml_pp.ML Fri Sep 06 14:34:07 2024 +0200
+++ b/src/Pure/ML/ml_pp.ML Fri Sep 06 14:47:42 2024 +0200
@@ -13,7 +13,7 @@
val pp_thm: Proof.context -> thm -> Pretty.T
end;
-structure ML_PP: sig end =
+structure ML_PP: ML_PP =
struct
(* logical context *)