src/HOL/Tools/Sledgehammer/sledgehammer_util.ML
changeset 58028 e4250d370657
parent 57882 38bf4de248a6
child 58634 9f10d82e8188
equal deleted inserted replaced
58027:dc58ab4d9f44 58028:e4250d370657
   134   in
   134   in
   135     Source.of_string name
   135     Source.of_string name
   136     |> Symbol.source
   136     |> Symbol.source
   137     |> Token.source {do_recover = SOME false} lex Position.start
   137     |> Token.source {do_recover = SOME false} lex Position.start
   138     |> Token.source_proper
   138     |> Token.source_proper
   139     |> Source.source Token.stopper (Parse_Spec.xthms1 >> get) NONE
   139     |> Source.source Token.stopper (Parse.xthms1 >> get) NONE
   140     |> Source.exhaust
   140     |> Source.exhaust
   141   end
   141   end
   142 
   142 
   143 val one_day = seconds (24.0 * 60.0 * 60.0)
   143 val one_day = seconds (24.0 * 60.0 * 60.0)
   144 val one_year = seconds (365.0 * 24.0 * 60.0 * 60.0)
   144 val one_year = seconds (365.0 * 24.0 * 60.0 * 60.0)