src/Pure/global_theory.ML

--- a/src/Pure/global_theory.ML	Fri Jul 17 15:08:56 2020 +0200
+++ b/src/Pure/global_theory.ML	Fri Jul 17 15:13:03 2020 +0200
@@ -62,7 +62,7 @@
 (
   type T = Facts.T * Thm_Name.T Inttab.table lazy option;
   val empty: T = (Facts.empty, NONE);
-  fun extend (facts, _) = (facts, NONE);
+  val extend = I;
   fun merge ((facts1, _), (facts2, _)) = (Facts.merge (facts1, facts2), NONE);
 );