ex/rec.ML

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ex/rec.ML	Thu Sep 16 12:21:07 1993 +0200
@@ -0,0 +1,5 @@
+open Rec;
+
+goalw thy [mono_def,Domf_def] "mono(Domf(F))";
+by (DEPTH_SOLVE (slow_step_tac set_cs 1));
+val mono_Domf = result();