X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Fassembly%2Ffreescale%2Ffreescale_ocaml%2Fmatita_logic_equality.ml;fp=matita%2Fmatita%2Fcontribs%2Fassembly%2Ffreescale%2Ffreescale_ocaml%2Fmatita_logic_equality.ml;h=d51d09d42ae8abcb46876fce0bb9e3778a838fb8;hb=2c01ff6094173915e7023076ea48b5804dca7778;hp=0000000000000000000000000000000000000000;hpb=a050e3f80d7ea084ce0184279af98e8251c7d2a6;p=helm.git

diff --git a/matita/matita/contribs/assembly/freescale/freescale_ocaml/matita_logic_equality.ml b/matita/matita/contribs/assembly/freescale/freescale_ocaml/matita_logic_equality.ml
new file mode 100644
index 000000000..d51d09d42
--- /dev/null
+++ b/matita/matita/contribs/assembly/freescale/freescale_ocaml/matita_logic_equality.ml
@@ -0,0 +1,20 @@
+let eq_rec =
+(function a -> (function p -> (function a1 -> p)))
+;;
+
+let eq_rect =
+(function a -> (function p -> (function a1 -> p)))
+;;
+
+let eq_rect' =
+(function x -> (function p -> (function y -> p)))
+;;
+
+let eq_elim_r' =
+(function x -> (function p -> (function y -> p)))
+;;
+
+let eq_elim_r'' =
+(function x -> (function p -> (function y -> p)))
+;;
+