diff options
Diffstat (limited to 'mltt/core/goals.ML')
-rw-r--r-- | mltt/core/goals.ML | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/mltt/core/goals.ML b/mltt/core/goals.ML index 4d03133..23a6c28 100644 --- a/mltt/core/goals.ML +++ b/mltt/core/goals.ML @@ -189,6 +189,9 @@ fun gen_schematic_theorem if defn then single (Proof_Display.print_results do_print pos lthy'' ((kind, Binding.name_of name_def), [("", defs)])) + else if not long andalso not substmts then + single (Proof_Display.print_results do_print pos lthy'' + ((kind, Binding.name_of name), map (fn (_, ths) => ("", ths)) res')) else (if long then Proof_Display.print_results do_print pos lthy'' |