# HG changeset patch
# User wenzelm
# Date 1635280007 -7200
# Node ID 55d4f8e1877f2301a9416a6922a1ee6474431c36
# Parent  71bafd70acbb43627511b0e4d9876934f3cc2802
tuned, continuing e955964d89cb;

diff -r 71bafd70acbb -r 55d4f8e1877f 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 *)