src/HOL/Tools/Sledgehammer/sledgehammer_util.ML
changeset 62969 9f394a16c557
parent 62826 eb94e570c1a4
child 63692 1bc4bc2c9fd1
equal deleted inserted replaced
62968:4e4738698db4 62969:9f394a16c557
   127   in
   127   in
   128     Source.of_string name
   128     Source.of_string name
   129     |> Symbol.source
   129     |> Symbol.source
   130     |> Token.source keywords Position.start
   130     |> Token.source keywords Position.start
   131     |> Token.source_proper
   131     |> Token.source_proper
   132     |> Source.source Token.stopper (Parse.xthms1 >> get)
   132     |> Source.source Token.stopper (Parse.thms1 >> get)
   133     |> Source.exhaust
   133     |> Source.exhaust
   134   end
   134   end
   135 
   135 
   136 val one_day = seconds (24.0 * 60.0 * 60.0)
   136 val one_day = seconds (24.0 * 60.0 * 60.0)
   137 val one_year = seconds (365.0 * 24.0 * 60.0 * 60.0)
   137 val one_year = seconds (365.0 * 24.0 * 60.0 * 60.0)