diff options
| author | Josh Chen | 2020-07-21 02:16:14 +0200 |
|---|---|---|
| committer | GitHub | 2020-07-21 02:16:14 +0200 |
| commit | dfd241b2d85fc5a4ad4d7ddd64adf0138b05f083 (patch) | |
| tree | b4c4280b1bc4426059ddd184a2258d15d20a0bab /spartan/core/elimination.ML | |
| parent | 6aaf4d5b28a5284b3b02fa5c410d2d83a711840b (diff) | |
| parent | 12eed8685674b7d5ff7bc45a44a061e01f99ce5f (diff) | |
Merge pull request #8 from jaycech3n/dev
Merge big diff on dev
Diffstat (limited to '')
| -rw-r--r-- | spartan/core/elimination.ML | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/spartan/core/elimination.ML b/spartan/core/elimination.ML index 11b3af9..cd4e414 100644 --- a/spartan/core/elimination.ML +++ b/spartan/core/elimination.ML @@ -34,13 +34,13 @@ fun register_rule tms rl = in Rules.map (Termtab.update (hd, (rl, map (#1 o dest_Var) tms))) end -(* [elims] attribute *) +(* [elim] attribute *) val _ = Theory.setup ( - Attrib.setup \<^binding>\<open>elims\<close> + Attrib.setup \<^binding>\<open>elim\<close> (Scan.repeat Args.term_pattern >> (Thm.declaration_attribute o register_rule)) "" - #> Global_Theory.add_thms_dynamic (\<^binding>\<open>elims\<close>, + #> Global_Theory.add_thms_dynamic (\<^binding>\<open>elim\<close>, fn context => (map #1 (rules (Context.proof_of context)))) ) |