src/FOL/simpdata.ML
changeset 15570 8d8c70b41bab
parent 15531 08c8dad8e399
child 16019 0e1405402d53
     1.1 --- a/src/FOL/simpdata.ML	Thu Mar 03 09:22:35 2005 +0100
     1.2 +++ b/src/FOL/simpdata.ML	Thu Mar 03 12:43:01 2005 +0100
     1.3 @@ -116,7 +116,7 @@
     1.4               (case head_of p of
     1.5                  Const(a,_) =>
     1.6                    (case assoc(pairs,a) of
     1.7 -                     SOME(rls) => flat (map atoms ([th] RL rls))
     1.8 +                     SOME(rls) => List.concat (map atoms ([th] RL rls))
     1.9                     | NONE => [th])
    1.10                | _ => [th])
    1.11           | _ => [th])