diff -r 9ef65be6bb2a -r 9886802cbbd6 doc-src/IsarAdvanced/Codegen/Thy/examples/collect_duplicates.ML
--- a/doc-src/IsarAdvanced/Codegen/Thy/examples/collect_duplicates.ML	Tue Jun 05 15:16:10 2007 +0200
+++ b/doc-src/IsarAdvanced/Codegen/Thy/examples/collect_duplicates.ML	Tue Jun 05 15:16:11 2007 +0200
@@ -1,19 +1,18 @@
 structure ROOT = 
 struct
 
-structure Code_Generator = 
+structure HOL = 
 struct
 
 type 'a eq = {eq : 'a -> 'a -> bool};
 fun eq (A_:'a eq) = #eq A_;
 
-end; (*struct Code_Generator*)
+end; (*struct HOL*)
 
 structure List = 
 struct
 
-fun memberl A_ x (y :: ys) =
-  Code_Generator.eq A_ x y orelse memberl A_ x ys
+fun memberl A_ x (y :: ys) = HOL.eq A_ x y orelse memberl A_ x ys
   | memberl A_ x [] = false;
 
 end; (*struct List*)