branch for universe

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

diff --git a/matita/contribs/assembly/freescale/freescale_ocaml/matita_logic_equality.ml b/matita/contribs/assembly/freescale/freescale_ocaml/matita_logic_equality.ml
new file mode 100644 (file)
index 0000000..d51d09d
--- /dev/null
+++ b/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)))
+;;
+