diff options
author | Josh Chen | 2020-06-03 13:10:35 +0200 |
---|---|---|
committer | Josh Chen | 2020-06-03 13:10:35 +0200 |
commit | 9050b7414021db31b23a034567ebc6da3f6c5f67 (patch) | |
tree | 2f5928e275c3e8ae7d99fef65e7fddf31f11d2f6 /spartan/data/More_Types.thy | |
parent | ccc26cf8073071698f333107fd7443a6af7fb3de (diff) | |
parent | 515c142828e66dcb1c273e53816ef8b6e1bb3f01 (diff) |
Merge branch 'dev'
Diffstat (limited to '')
-rw-r--r-- | spartan/data/More_Types.thy | 8 |
1 files changed, 8 insertions, 0 deletions
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> |