diff options
| author | Josh Chen | 2020-07-31 14:56:24 +0200 |
|---|---|---|
| committer | Josh Chen | 2020-07-31 14:56:24 +0200 |
| commit | ff5454812f9e2720bd90c3a5437505644f63b487 (patch) | |
| tree | 2df5f45de006c56391118db75e2f185036b02cd7 /hott/List+.thy | |
| parent | 2b0e14b16dcef0e829da95800b3c0af1975bb1ce (diff) | |
(FEAT) Term elaboration of assumption and goal statements.
. spartan/core/goals.ML
. spartan/core/elaboration.ML
. spartan/core/elaborated_statement.ML
(FEAT) More context tacticals and search tacticals.
. spartan/core/context_tactical.ML
(FEAT) Improved subgoal focus.
Moves fully elaborated assumptions into the context (MINOR INCOMPATIBILITY).
. spartan/core/focus.ML
(FIX) Normalize facts in order to be able to resolve properly.
. spartan/core/typechecking.ML
(MAIN) New definitions.
(MAIN) Renamed theories and theorems.
(MAIN) Refactor theories to fit new features.
Diffstat (limited to 'hott/List+.thy')
| -rw-r--r-- | hott/List+.thy | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/hott/List+.thy b/hott/List+.thy new file mode 100644 index 0000000..b73cc24 --- /dev/null +++ b/hott/List+.thy @@ -0,0 +1,18 @@ +theory "List+" +imports + Spartan.List + Nat + +begin + +section \<open>Length\<close> + +definition [implicit]: "len \<equiv> ListRec ? Nat 0 (fn _ _ rec. suc rec)" + +experiment begin + Lemma "len [] \<equiv> ?n" by (subst comp) + Lemma "len [0, suc 0, suc (suc 0)] \<equiv> ?n" by (subst comp) +end + + +end |