recovered some odd two-dimensional layout;

--- a/src/Pure/thm.ML	Mon Oct 25 11:16:23 2010 +0200
+++ b/src/Pure/thm.ML	Mon Oct 25 11:22:30 2010 +0200
@@ -335,14 +335,14 @@
 (*** Derivations and Theorems ***)
 
 abstype thm = Thm of
- deriv *                                        (*derivation*)
- {thy_ref: theory_ref,                          (*dynamic reference to theory*)
-  tags: Properties.T,                           (*additional annotations/comments*)
-  maxidx: int,                                  (*maximum index of any Var or TVar*)
-  shyps: sort Ord_List.T,                        (*sort hypotheses*)
-  hyps: term Ord_List.T,                         (*hypotheses*)
-  tpairs: (term * term) list,                   (*flex-flex pairs*)
-  prop: term}                                   (*conclusion*)
+ deriv *                        (*derivation*)
+ {thy_ref: theory_ref,          (*dynamic reference to theory*)
+  tags: Properties.T,           (*additional annotations/comments*)
+  maxidx: int,                  (*maximum index of any Var or TVar*)
+  shyps: sort Ord_List.T,       (*sort hypotheses*)
+  hyps: term Ord_List.T,        (*hypotheses*)
+  tpairs: (term * term) list,   (*flex-flex pairs*)
+  prop: term}                   (*conclusion*)
 and deriv = Deriv of
  {promises: (serial * thm future) Ord_List.T,
   body: Proofterm.proof_body}

--- a/src/Pure/variable.ML	Mon Oct 25 11:16:23 2010 +0200
+++ b/src/Pure/variable.ML	Mon Oct 25 11:22:30 2010 +0200
@@ -77,7 +77,7 @@
   binds: (typ * term) Vartab.table,     (*term bindings*)
   type_occs: string list Symtab.table,  (*type variables -- possibly within term variables*)
   maxidx: int,                          (*maximum var index*)
-  sorts: sort Ord_List.T,                (*declared sort occurrences*)
+  sorts: sort Ord_List.T,               (*declared sort occurrences*)
   constraints:
     typ Vartab.table *                  (*type constraints*)
     sort Vartab.table};                 (*default sorts*)