--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/src/CTT/Bool.thy Thu Sep 16 12:20:38 1993 +0200
@@ -0,0 +1,19 @@
+(* Title: CTT/bool
+ ID: $Id$
+ Author: Lawrence C Paulson, Cambridge University Computer Laboratory
+ Copyright 1991 University of Cambridge
+
+The two-element type (booleans and conditionals)
+*)
+
+Bool = CTT +
+
+consts Bool :: "t"
+ true,false :: "i"
+ cond :: "[i,i,i]=>i"
+rules
+ Bool_def "Bool == T+T"
+ true_def "true == inl(tt)"
+ false_def "false == inr(tt)"
+ cond_def "cond(a,b,c) == when(a, %u.b, %u.c)"
+end