1 files changed, 18 insertions, 0 deletions
diff --git a/hott/List_HoTT.thy b/hott/List_HoTT.thy
new file mode 100644
index 0000000..9bd1517
--- /dev/null
+++ b/hott/List_HoTT.thy
@@ -0,0 +1,18 @@
+theory List_HoTT
+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; typechk?)
+  Lemma "len [0, suc 0, suc (suc 0)] \<equiv> ?n" by (subst comp; typechk?)+
+end
+
+
+end