src/HOL/Tools/function_package/fundef_common.ML
changeset 23215 20b5558a5419
parent 23206 209e32e7c91e
child 23766 77e796fe89eb
equal deleted inserted replaced
23214:dc23c062b58c 23215:20b5558a5419
     6 Common definitions and other infrastructure.
     6 Common definitions and other infrastructure.
     7 *)
     7 *)
     8 
     8 
     9 structure FundefCommon =
     9 structure FundefCommon =
    10 struct
    10 struct
       
    11 
       
    12 local open FundefLib in
    11 
    13 
    12 (* Profiling *)
    14 (* Profiling *)
    13 val profile = ref false;
    15 val profile = ref false;
    14 
    16 
    15 fun PROFILE msg = if !profile then timeap_msg msg else I
    17 fun PROFILE msg = if !profile then timeap_msg msg else I
   324 
   326 
   325 val default_config = FundefConfig { sequential=false, default="%x. arbitrary", 
   327 val default_config = FundefConfig { sequential=false, default="%x. arbitrary", 
   326                                     target=NONE, domintros=false, tailrec=false }
   328                                     target=NONE, domintros=false, tailrec=false }
   327 
   329 
   328 
   330 
   329 
   331 end
   330 end
   332 end
   331 
   333 
   332 (* Common Abbreviations *)
   334 (* Common Abbreviations *)
   333 
   335 
   334 structure FundefAbbrev =
   336 structure FundefAbbrev =