src/HOL/Tools/function_package/fundef_common.ML
changeset 28524 644b62cf678f
parent 28287 c86fa4e0aedb
child 28883 0f5b1accfb94
equal deleted inserted replaced
28523:5818d9cfb2e7 28524:644b62cf678f
   187     FundefConfig {sequential=sequential, default=default, domintros=true,tailrec=tailrec}
   187     FundefConfig {sequential=sequential, default=default, domintros=true,tailrec=tailrec}
   188   | apply_opt Tailrec (FundefConfig {sequential, default, domintros,tailrec}) =
   188   | apply_opt Tailrec (FundefConfig {sequential, default, domintros,tailrec}) =
   189     FundefConfig {sequential=sequential, default=default, domintros=domintros,tailrec=true}
   189     FundefConfig {sequential=sequential, default=default, domintros=domintros,tailrec=true}
   190 
   190 
   191 val default_config =
   191 val default_config =
   192   FundefConfig { sequential=false, default="%x. arbitrary", domintros=false, tailrec=false }
   192   FundefConfig { sequential=false, default="%x. undefined" (*FIXME dynamic scoping*), domintros=false, tailrec=false }
   193 
   193 
   194 
   194 
   195 (* Analyzing function equations *)
   195 (* Analyzing function equations *)
   196 
   196 
   197 fun split_def ctxt geq =
   197 fun split_def ctxt geq =