diff options
| author | Josh Chen | 2020-05-22 15:43:14 +0200 |
|---|---|---|
| committer | Josh Chen | 2020-05-22 15:43:14 +0200 |
| commit | 720da0f918118388d114e09664b129d2b29be2b1 (patch) | |
| tree | e4411cceae3a790544e7bebb4eb7717c31e0fa63 /spartan/lib/elimination.ML | |
| parent | 1571e03b7dc5c7e6f2a46be57a12dd0d25fea452 (diff) | |
some tweaks and comments, in preparation for general inductive type elimination
Diffstat (limited to 'spartan/lib/elimination.ML')
| -rw-r--r-- | spartan/lib/elimination.ML | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/spartan/lib/elimination.ML b/spartan/lib/elimination.ML index 85ce669..bd23c94 100644 --- a/spartan/lib/elimination.ML +++ b/spartan/lib/elimination.ML @@ -6,6 +6,7 @@ Type elimination automation. structure Elim = struct +(** Context data **) (* Elimination rule data *) structure Rules = Generic_Data ( type T = thm Termtab.table @@ -30,4 +31,8 @@ val _ = Theory.setup ( fn context => (rules (Context.proof_of context))) ) +(** General elimination-induction tactic **) + + + end |