X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fcontribs%2Fassembly%2Ffreescale%2Ffreescale_ocaml%2Fmatita_datatypes_bool.ml;fp=matita%2Fcontribs%2Fassembly%2Ffreescale%2Ffreescale_ocaml%2Fmatita_datatypes_bool.ml;h=2fead65e0a6cab2afa3edbb18d75945f382f874a;hp=0000000000000000000000000000000000000000;hb=f61af501fb4608cc4fb062a0864c774e677f0d76;hpb=58ae1809c352e71e7b5530dc41e2bfc834e1aef1

diff --git a/matita/contribs/assembly/freescale/freescale_ocaml/matita_datatypes_bool.ml b/matita/contribs/assembly/freescale/freescale_ocaml/matita_datatypes_bool.ml
new file mode 100644
index 000000000..2fead65e0
--- /dev/null
+++ b/matita/contribs/assembly/freescale/freescale_ocaml/matita_datatypes_bool.ml
@@ -0,0 +1,45 @@
+type bool =
+True
+ | False
+;;
+
+let bool_rec =
+(function p -> (function p1 -> (function b -> 
+(match b with 
+   True -> p
+ | False -> p1)
+)))
+;;
+
+let bool_rect =
+(function p -> (function p1 -> (function b -> 
+(match b with 
+   True -> p
+ | False -> p1)
+)))
+;;
+
+let notb =
+(function b -> 
+(match b with 
+   True -> False
+ | False -> True)
+)
+;;
+
+let andb =
+(function b1 -> (function b2 -> 
+(match b1 with 
+   True -> b2
+ | False -> False)
+))
+;;
+
+let orb =
+(function b1 -> (function b2 -> 
+(match b1 with 
+   True -> True
+ | False -> b2)
+))
+;;
+