--- a/Quot/quotient_def.ML	Tue Jan 12 16:12:54 2010 +0100
+++ b/Quot/quotient_def.ML	Tue Jan 12 16:21:42 2010 +0100
@@ -24,17 +24,17 @@
 end
 
 
-(* interface and syntax setup *)
+(** interface and syntax setup **)
+
+(* the ML-interface takes
 
-(* the ML-interface takes a 4-tuple consisting of     *)
-(*                                                    *)
-(* - the mixfix annotation                            *)
-(* - name and attributes                              *)
-(* - the new constant as term                         *)
-(* - the rhs of the definition as term                *)
-(*                                                    *)
-(* it returns the defined constant and its definition *)
-(* theorem; stores the data in the qconsts slot       *)
+ - the mixfix annotation
+ - name and attributes
+ - the new constant as term
+ - the rhs of the definition as term
+
+ it returns the defined constant and its definition
+ theorem; stores the data in the qconsts slot       *)
 
 fun quotient_def mx attr lhs rhs lthy =
 let

--- a/Quot/quotient_info.ML	Tue Jan 12 16:12:54 2010 +0100
+++ b/Quot/quotient_info.ML	Tue Jan 12 16:21:42 2010 +0100
@@ -65,9 +65,8 @@
 
 exception NotFound
 
-(*******************)
-(* data containers *)
-(*******************)
+
+(** data containers **)
 
 (* info about map- and rel-functions for a type *)
 type maps_info = {mapfun: string, relmap: string}