From ff5454812f9e2720bd90c3a5437505644f63b487 Mon Sep 17 00:00:00 2001
From: Josh Chen
Date: Fri, 31 Jul 2020 14:56:24 +0200
Subject: (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.
---
 hott/List+.thy | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 hott/List+.thy

(limited to 'hott/List+.thy')

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
-- 
cgit v1.2.3