diff options
author | Josh Chen | 2020-08-05 15:21:43 +0200 |
---|---|---|
committer | Josh Chen | 2020-08-05 15:21:43 +0200 |
commit | c530305cbcafba9f66f1a55a1b5177a62f52535c (patch) | |
tree | 2c4736cf5884e53edd0b8eaebb903bb3f4857d2f /spartan/core/Spartan.thy | |
parent | 710f314a9ccb84cdd9df9bc8bf52482b8d1f5a56 (diff) |
1. fix intros method. 2. Couple extra lemmas; good small test cases for normalization in typechecking/elaboration.
Diffstat (limited to '')
-rw-r--r-- | spartan/core/Spartan.thy | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/spartan/core/Spartan.thy b/spartan/core/Spartan.thy index ea72208..7f13036 100644 --- a/spartan/core/Spartan.thy +++ b/spartan/core/Spartan.thy @@ -248,7 +248,8 @@ method_setup intros = K (CONTEXT_METHOD (fn facts => case n_opt of SOME n => CREPEAT_N n (CHEADGOAL (SIDE_CONDS 0 intro_ctac facts)) - | NONE => CREPEAT (CCHANGED (CHEADGOAL (SIDE_CONDS 0 intro_ctac facts))))))\<close> + | NONE => CCHANGED (CREPEAT (CCHANGED ( + CHEADGOAL (SIDE_CONDS 0 intro_ctac facts)))))))\<close> method_setup elim = \<open>Scan.repeat Args.term >> (fn tms => K (CONTEXT_METHOD ( |