CookBook/infix_conv.ML
changeset 142 c06885c36575
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/CookBook/infix_conv.ML	Wed Feb 25 11:07:43 2009 +0100
@@ -0,0 +1,9 @@
+signature INFIX_CONV =
+sig
+  val then_conv : Thm.conv * Thm.conv -> Thm.conv
+  val else_conv : Thm.conv * Thm.conv -> Thm.conv
+end
+
+structure InfixConv : INFIX_CONV = Conv
+
+open InfixConv