ex/Rec.ML

HOL/ROOT/HOL_dup_cs: removed as obsolete
HOL/ROOT: now passes "classical" to Classical_Fun
HOL/ROOT: no longer proves rev_cut_eq for hyp_subst_tac

open Rec;

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