diff -r 89c5afe4139a -r 07cf246f76a3 src/Pure/library.ML
--- a/src/Pure/library.ML	Sun Jul 02 17:27:10 2006 +0200
+++ b/src/Pure/library.ML	Mon Jul 03 16:25:10 2006 +0200
@@ -1228,6 +1228,9 @@
 
 (** misc **)
 
+(* decompose the "problem" x into a list of subproblems ys and a recombination *)
+(* function recomb, solve the subproblems recursively, use recomb to combine   *)
+(* the recursive solutions for ys into an overall "solution" for x             *)
 fun divide_and_conquer decomp x =
   let val (ys, recomb) = decomp x
   in recomb (map (divide_and_conquer decomp) ys) end;