ex/rec.ML

used ~= for "not equals" and ~: for "not in"

open Rec;

goalw thy [mono_def,Domf_def] "mono(Domf(F))";
by (DEPTH_SOLVE (slow_step_tac set_cs 1));
val mono_Domf = result();