tuned, continuing e955964d89cb;
authorwenzelm
Tue, 26 Oct 2021 22:26:47 +0200
changeset 74596 55d4f8e1877f
parent 74595 71bafd70acbb
child 74597 ea5d28c7f5e5
tuned, continuing e955964d89cb;
src/Pure/ML/ml_thms.ML
--- a/src/Pure/ML/ml_thms.ML	Tue Oct 26 22:04:33 2021 +0200
+++ b/src/Pure/ML/ml_thms.ML	Tue Oct 26 22:26:47 2021 +0200
@@ -102,7 +102,7 @@
         val thms =
           Proof_Context.get_fact ctxt'
             (Facts.named (Proof_Context.full_name ctxt' (Binding.name Auto_Bind.thisN)));
-      in thm_binding "lemma" (length (flat propss) = 1) thms ctxt end));
+      in thm_binding "lemma" (length thms = 1) thms ctxt end));
 
 
 (* old-style theorem bindings *)