author | wenzelm |
Tue, 26 Oct 2021 22:26:47 +0200 | |
changeset 74596 | 55d4f8e1877f |
parent 74595 | 71bafd70acbb |
child 74597 | ea5d28c7f5e5 |
--- 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 *)