src/HOL/Tools/Predicate_Compile/predicate_compile_aux.ML
changeset 33265 01c9c6dbd890
parent 33251 4b13ab778b78
child 33327 9d03957622a2
equal deleted inserted replaced
33263:03c08ce703bf 33265:01c9c6dbd890
     1 (* Author: Lukas Bulwahn, TU Muenchen
     1 (*  Title:      HOL/Tools/Predicate_Compile/predicate_compile_aux.ML
     2 
     2     Author:     Lukas Bulwahn, TU Muenchen
     3 Auxilary functions for predicate compiler
     3 
       
     4 Auxilary functions for predicate compiler.
     4 *)
     5 *)
       
     6 
       
     7 (* FIXME proper signature *)
     5 
     8 
     6 structure Predicate_Compile_Aux =
     9 structure Predicate_Compile_Aux =
     7 struct
    10 struct
     8 
    11 
     9 (* general syntactic functions *)
    12 (* general syntactic functions *)
   232     val intro''''' = map_term thy (maps_premises split_conj) intro''''
   235     val intro''''' = map_term thy (maps_premises split_conj) intro''''
   233   in
   236   in
   234     intro'''''
   237     intro'''''
   235   end
   238   end
   236 
   239 
   237 
       
   238 
       
   239 end;
   240 end;