src/Pure/theory.ML
changeset 19482 9f11af8f7ef9
parent 19428 43bfe55759b0
child 19570 f199cb2295fd
     1.1 --- a/src/Pure/theory.ML	Thu Apr 27 12:11:56 2006 +0200
     1.2 +++ b/src/Pure/theory.ML	Thu Apr 27 15:06:35 2006 +0200
     1.3 @@ -144,7 +144,7 @@
     1.4  val oracle_space = #1 o #oracles o rep_theory;
     1.5  
     1.6  val axioms_of = Symtab.dest o #2 o #axioms o rep_theory;
     1.7 -fun all_axioms_of thy = List.concat (map axioms_of (thy :: ancestors_of thy));
     1.8 +fun all_axioms_of thy = maps axioms_of (thy :: ancestors_of thy);
     1.9  
    1.10  val defs_of = #defs o rep_theory;
    1.11