src/ZF/Main.ML

replaced apply-style proof for instance Multiset :: plus_ac0 by recommended Isar proof style

structure Main =
struct
  val thy = the_context ();
end;

simpset_ref() := simpset() setmksimps (map mk_eq o Ord_atomize o gen_all);