branch for universe

[helm.git] / matita / contribs / assembly / freescale / freescale_ocaml / matita_logic_connectives.ml

diff --git a/matita/contribs/assembly/freescale/freescale_ocaml/matita_logic_connectives.ml b/matita/contribs/assembly/freescale/freescale_ocaml/matita_logic_connectives.ml
new file mode 100644 (file)
index 0000000..8af935a
--- /dev/null
+++ b/matita/contribs/assembly/freescale/freescale_ocaml/matita_logic_connectives.ml
@@ -0,0 +1,24 @@
+let true_rec =
+(function p -> p)
+;;
+
+let true_rect =
+(function p -> p)
+;;
+
+let false_rec () =
+assert false
+;;
+
+let false_rect () =
+assert false
+;;
+
+let and_rec =
+(function f -> (f))
+;;
+
+let and_rect =
+(function f -> (f))
+;;
+