From e513fc2958133e3a00c06ebcd1214741843acf08 Mon Sep 17 00:00:00 2001
From: Josh Chen
Date: Wed, 3 Jun 2020 13:09:30 +0200
Subject: 1. Type information context data 2. Small reformulations of rules 3.
 Bool

---
 spartan/data/More_Types.thy | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'spartan/data/More_Types.thy')

diff --git a/spartan/data/More_Types.thy b/spartan/data/More_Types.thy
index 625f639..1d7abb9 100644
--- a/spartan/data/More_Types.thy
+++ b/spartan/data/More_Types.thy
@@ -90,6 +90,14 @@ definition "Bool \<equiv> \<top> \<or> \<top>"
 definition "true \<equiv> inl \<top> \<top> tt"
 definition "false \<equiv> inr \<top> \<top> tt"
 
+Lemma
+  BoolF: "Bool: U i" and
+  Bool_true: "true: Bool" and
+  Bool_false: "false: Bool"
+  unfolding Bool_def true_def false_def by typechk+
+
+lemmas [intros] = BoolF Bool_true Bool_false
+
 \<comment> \<open>Can define if-then-else etc.\<close>
 
 
-- 
cgit v1.2.3

