From 4f147cba894baa9e372e2b67211140b1a6f7b16c Mon Sep 17 00:00:00 2001
From: Josh Chen
Date: Fri, 19 Jun 2020 12:41:54 +0200
Subject: reorganize

---
 hott/More_Nat.thy | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 hott/More_Nat.thy

(limited to 'hott/More_Nat.thy')

diff --git a/hott/More_Nat.thy b/hott/More_Nat.thy
new file mode 100644
index 0000000..8177170
--- /dev/null
+++ b/hott/More_Nat.thy
@@ -0,0 +1,43 @@
+theory More_Nat
+imports Nat Spartan.More_Types
+
+begin
+
+section \<open>Equality on Nat\<close>
+
+text \<open>Via the encode-decode method.\<close>
+
+context begin
+
+Lemma (derive) eq: shows "Nat \<rightarrow> Nat \<rightarrow> U O"
+  apply intro focus vars m apply elim
+    \<comment> \<open>m \<equiv> 0\<close>
+    apply intro focus vars n apply elim
+      \<guillemotright> by (rule TopF) \<comment> \<open>n \<equiv> 0\<close>
+      \<guillemotright> by (rule BotF) \<comment> \<open>n \<equiv> suc _\<close>
+      \<guillemotright> by (rule U_in_U)
+    done
+    \<comment> \<open>m \<equiv> suc k\<close>
+    apply intro focus vars k k_eq n apply (elim n)
+      \<guillemotright> by (rule BotF) \<comment> \<open>n \<equiv> 0\<close>
+      \<guillemotright> prems vars l proof - show "k_eq l: U O" by typechk qed
+      \<guillemotright> by (rule U_in_U)
+    done
+    by (rule U_in_U)
+  done
+
+text \<open>
+\<^term>\<open>eq\<close> is defined by
+  eq 0 0 \<equiv> \<top>
+  eq 0 (suc k) \<equiv> \<bottom>
+  eq (suc k) 0 \<equiv> \<bottom>
+  eq (suc k) (suc l) \<equiv> eq k l
+\<close>
+
+
+
+
+end
+
+
+end
-- 
cgit v1.2.3