X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fassembly%2Ffreescale%2Ffreescale_ocaml%2Fmatita_logic_connectives.ml;fp=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fassembly%2Ffreescale%2Ffreescale_ocaml%2Fmatita_logic_connectives.ml;h=8af935a4e2e808d7b01f2de3e5fa3cd3300eb240;hb=ecdb00b94db5abc2f7df2dcbaa76b1b5639ebaee;hp=0000000000000000000000000000000000000000;hpb=dc58e20b610718080da9a4bdb4db4ac7780be8f9;p=helm.git

diff --git a/helm/software/matita/contribs/assembly/freescale/freescale_ocaml/matita_logic_connectives.ml b/helm/software/matita/contribs/assembly/freescale/freescale_ocaml/matita_logic_connectives.ml
new file mode 100644
index 000000000..8af935a4e
--- /dev/null
+++ b/helm/software/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))
+;;
+