diff options
author | Josh Chen | 2021-06-28 16:06:19 +0100 |
---|---|---|
committer | Josh Chen | 2021-06-28 16:06:19 +0100 |
commit | 5655750e12d3459c1237588f8dec3fc883a966b7 (patch) | |
tree | 177e050393e23173dded08a741f2a95c56ffdf6a /mltt/core/goals.ML | |
parent | 06f38e1bad882ec85cbfd89b74feef380c8bbd69 (diff) |
1. Thm/def statement display. 2. Syntax + computation proof.
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'' |