max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2
lean4-htt/tests/elab/timeAPI.lean
Garmelon 08eb78a5b2
chore: switch to new test/bench suite (#12590) 
This PR sets up the new integrated test/bench suite. It then migrates
all benchmarks and some related tests to the new suite. There's also
some documentation and some linting.

For now, a lot of the old tests are left alone so this PR doesn't become
even larger than it already is. Eventually, all tests should be migrated
to the new suite though so there isn't a confusing mix of two systems.
2026-02-25 13:51:53 +00:00

908 lines
34 KiB
Text
Raw Blame History

import Std.Time
import Init
open Std.Time
def sao_paulo : TimeZone.ZoneRules :=
{
initialLocalTimeType :=
{
gmtOffset := { second := -11188 },
isDst := false,
abbreviation := "LMT",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
},
transitions := #[
{
time := 782276400,
localTimeType := {
gmtOffset := { second := -7200 },
isDst := true,
abbreviation := "-02",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 793159200,
localTimeType := {
gmtOffset := { second := -10800 },
isDst := false,
abbreviation := "-03",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 813726000,
localTimeType := {
gmtOffset := { second := -7200 },
isDst := true,
abbreviation := "-02",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 824004000,
localTimeType := {
gmtOffset := { second := -10800 },
isDst := false,
abbreviation := "-03",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 844570800,
localTimeType := {
gmtOffset := { second := -7200 },
isDst := true,
abbreviation := "-02",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 856058400,
localTimeType := {
gmtOffset := { second := -10800 },
isDst := false,
abbreviation := "-03",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 876106800,
localTimeType := {
gmtOffset := { second := -7200 },
isDst := true,
abbreviation := "-02",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 888717600,
localTimeType := {
gmtOffset := { second := -10800 },
isDst := false,
abbreviation := "-03",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 908074800,
localTimeType := {
gmtOffset := { second := -7200 },
isDst := true,
abbreviation := "-02",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 919562400,
localTimeType := {
gmtOffset := { second := -10800 },
isDst := false,
abbreviation := "-03",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 938919600,
localTimeType := {
gmtOffset := { second := -7200 },
isDst := true,
abbreviation := "-02",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 951616800,
localTimeType := {
gmtOffset := { second := -10800 },
isDst := false,
abbreviation := "-03",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 970974000,
localTimeType := {
gmtOffset := { second := -7200 },
isDst := true,
abbreviation := "-02",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 982461600,
localTimeType := {
gmtOffset := { second := -10800 },
isDst := false,
abbreviation := "-03",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 1003028400,
localTimeType := {
gmtOffset := { second := -7200 },
isDst := true,
abbreviation := "-02",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 1013911200,
localTimeType := {
gmtOffset := { second := -10800 },
isDst := false,
abbreviation := "-03",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 1036292400,
localTimeType := {
gmtOffset := { second := -7200 },
isDst := true,
abbreviation := "-02",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 1045360800,
localTimeType := {
gmtOffset := { second := -10800 },
isDst := false,
abbreviation := "-03",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
},
{ time := 1066532400,
localTimeType := {
gmtOffset := { second := -7200 },
isDst := true,
abbreviation := "-02",
wall := Std.Time.TimeZone.StdWall.standard,
utLocal := Std.Time.TimeZone.UTLocal.ut,
identifier := "America/Sao_Paulo"
}
}
]
}
/-
Unit conversion tests.
-/
/--
info: --- nanosecond
nanoseconds: 1209600000000000
milliseconds: 1209600000
seconds: 1209600
minutes: 20160
hours: 336
days: 14
weeks: 2
--- millisecond
nanoseconds: 1209600000000000
seconds: 1209600
milliseconds: 1209600000
minutes: 20160
hours: 336
days: 14
weeks: 2
--- second
nanoseconds: 1209600000000000
milliseconds: 1209600000
seconds: 1209600
minutes: 20160
hours: 336
days: 14
weeks: 2
--- minute
nanoseconds: 1209600000000000
milliseconds: 1209600000
seconds: 1209600
minutes: 20160
hours: 336
days: 14
weeks: 2
--- hour
nanoseconds: 1209600000000000
milliseconds: 1209600000
seconds: 1209600
minutes: 20160
hours: 336
days: 14
weeks: 2
--- day
nanoseconds: 1209600000000000
milliseconds: 1209600000
seconds: 1209600
minutes: 20160
hours: 336
days: 14
weeks: 2
--- week
nanoseconds: 1209600000000000
milliseconds: 1209600000
seconds: 1209600
minutes: 20160
hours: 336
days: 14
weeks: 2
-/
#guard_msgs in
#eval do
let nanosecond: Nanosecond.Offset := 1209600000000000
println! s!"--- nanosecond"
println! s!"nanoseconds: {nanosecond}"
println! s!"milliseconds: {nanosecond.toMilliseconds}"
println! s!"seconds: {nanosecond.toSeconds}"
println! s!"minutes: {nanosecond.toMinutes}"
println! s!"hours: {nanosecond.toHours}"
println! s!"days: {nanosecond.toDays}"
println! s!"weeks: {nanosecond.toWeeks}"
-- Cannot do this for months or years because sizes are variable.
let millisecond: Millisecond.Offset := 1209600000
println! s!"--- millisecond"
println! s!"nanoseconds: {millisecond.toNanoseconds}"
println! s!"seconds: {millisecond.toSeconds}"
println! s!"milliseconds: {millisecond}"
println! s!"minutes: {millisecond.toMinutes}"
println! s!"hours: {millisecond.toHours}"
println! s!"days: {millisecond.toDays}"
println! s!"weeks: {millisecond.toWeeks}"
-- Cannot do this for months or years because sizes are variable.
let second : Second.Offset := 1209600
println! s!"--- second"
println! s!"nanoseconds: {second.toNanoseconds}"
println! s!"milliseconds: {second.toMilliseconds}"
println! s!"seconds: {second}"
println! s!"minutes: {second.toMinutes}"
println! s!"hours: {second.toHours}"
println! s!"days: {second.toDays}"
println! s!"weeks: {second.toWeeks}"
-- Cannot do this for months or years because sizes are variable.
let minute: Minute.Offset := 20160
println! s!"--- minute"
println! s!"nanoseconds: {minute.toNanoseconds}"
println! s!"milliseconds: {minute.toMilliseconds}"
println! s!"seconds: {minute.toSeconds}"
println! s!"minutes: {minute}"
println! s!"hours: {minute.toHours}"
println! s!"days: {minute.toDays}"
println! s!"weeks: {minute.toWeeks}"
-- Cannot do this for months or years because sizes are variable.
let hour: Hour.Offset := 336
println! s!"--- hour"
println! s!"nanoseconds: {hour.toNanoseconds}"
println! s!"milliseconds: {hour.toMilliseconds}"
println! s!"seconds: {hour.toSeconds}"
println! s!"minutes: {hour.toMinutes}"
println! s!"hours: {hour}"
println! s!"days: {hour.toDays}"
println! s!"weeks: {hour.toWeeks}"
-- Cannot do this for months or years because sizes are variable.
let day: Day.Offset := 14
println! s!"--- day"
println! s!"nanoseconds: {day.toNanoseconds}"
println! s!"milliseconds: {day.toMilliseconds}"
println! s!"seconds: {day.toSeconds}"
println! s!"minutes: {day.toMinutes}"
println! s!"hours: {day.toHours}"
println! s!"days: {day}"
println! s!"weeks: {day.toWeeks}"
-- Cannot do this for months or years because sizes are variable.
let week: Week.Offset := 2
println! s!"--- week"
println! s!"nanoseconds: {week.toNanoseconds}"
println! s!"milliseconds: {week.toMilliseconds}"
println! s!"seconds: {week.toSeconds}"
println! s!"minutes: {week.toMinutes}"
println! s!"hours: {week.toHours}"
println! s!"days: {week.toDays}"
println! s!"weeks: {week}"
-- Cannot do this for months or years because sizes are variable.
theorem nano_nano_nano : (1 : Nanosecond.Offset) + (1 : Nanosecond.Offset) = (2 : Nanosecond.Offset) := rfl
theorem nano_milli_nano : (1 : Nanosecond.Offset) + (1 : Millisecond.Offset) = (1000001 : Nanosecond.Offset) := rfl
theorem nano_sec_nano : (1 : Nanosecond.Offset) + (1 : Second.Offset) = (1000000001 : Nanosecond.Offset) := rfl
theorem nano_min_nano : (1 : Nanosecond.Offset) + (1 : Minute.Offset) = (60000000001 : Nanosecond.Offset) := rfl
theorem nano_hour_nano : (1 : Nanosecond.Offset) + (1 : Hour.Offset) = (3600000000001 : Nanosecond.Offset) := rfl
theorem nano_day_nano : (1 : Nanosecond.Offset) + (1 : Day.Offset) = (86400000000001 : Nanosecond.Offset) := rfl
theorem nano_week_nano : (1 : Nanosecond.Offset) + (1 : Week.Offset) = (604800000000001 : Nanosecond.Offset) := rfl
theorem milli_nano_nano : (1 : Millisecond.Offset) + (1 : Nanosecond.Offset) = (1000001 : Nanosecond.Offset) := rfl
theorem milli_milli_milli : (1 : Millisecond.Offset) + (1 : Millisecond.Offset) = (2 : Millisecond.Offset) := rfl
theorem milli_sec_milli : (1 : Millisecond.Offset) + (1 : Second.Offset) = (1001 : Millisecond.Offset) := rfl
theorem milli_min_milli : (1 : Millisecond.Offset) + (1 : Minute.Offset) = (60001 : Millisecond.Offset) := rfl
theorem milli_hour_milli : (1 : Millisecond.Offset) + (1 : Hour.Offset) = (3600001 : Millisecond.Offset) := rfl
theorem milli_day_milli : (1 : Millisecond.Offset) + (1 : Day.Offset) = (86400001 : Millisecond.Offset) := rfl
theorem milli_week_milli : (1 : Millisecond.Offset) + (1 : Week.Offset) = (604800001 : Millisecond.Offset) := rfl
theorem sec_nano_nano : (1 : Second.Offset) + (1 : Nanosecond.Offset) = (1000000001 : Nanosecond.Offset) := rfl
theorem sec_milli_milli : (1 : Second.Offset) + (1 : Millisecond.Offset) = (1001 : Millisecond.Offset) := rfl
theorem sec_sec_sec : (1 : Second.Offset) + (1 : Second.Offset) = (2 : Second.Offset) := rfl
theorem sec_min_sec : (1 : Second.Offset) + (1 : Minute.Offset) = (61 : Second.Offset) := rfl
theorem sec_hour_sec : (1 : Second.Offset) + (1 : Hour.Offset) = (3601 : Second.Offset) := rfl
theorem sec_day_sec : (1 : Second.Offset) + (1 : Day.Offset) = (86401 : Second.Offset) := rfl
theorem sec_week_sec : (1 : Second.Offset) + (1 : Week.Offset) = (604801 : Second.Offset) := rfl
theorem min_nano_nano : (1 : Minute.Offset) + (1 : Nanosecond.Offset) = (60000000001 : Nanosecond.Offset) := rfl
theorem min_milli_milli : (1 : Minute.Offset) + (1 : Millisecond.Offset) = (60001 : Millisecond.Offset) := rfl
theorem min_sec_sec : (1 : Minute.Offset) + (1 : Second.Offset) = (61 : Second.Offset) := rfl
theorem min_min_min : (1 : Minute.Offset) + (1 : Minute.Offset) = (2 : Minute.Offset) := rfl
theorem min_hour_min : (1 : Minute.Offset) + (1 : Hour.Offset) = (61 : Minute.Offset) := rfl
theorem min_day_min : (1 : Minute.Offset) + (1 : Day.Offset) = (1441 : Minute.Offset) := rfl
theorem min_week_min : (1 : Minute.Offset) + (1 : Week.Offset) = (10081 : Minute.Offset) := rfl
theorem hour_nano_nano : (1 : Hour.Offset) + (1 : Nanosecond.Offset) = (3600000000001 : Nanosecond.Offset) := rfl
theorem hour_milli_milli : (1 : Hour.Offset) + (1 : Millisecond.Offset) = (3600001 : Millisecond.Offset) := rfl
theorem hour_sec_sec : (1 : Hour.Offset) + (1 : Second.Offset) = (3601 : Second.Offset) := rfl
theorem hour_min_min : (1 : Hour.Offset) + (1 : Minute.Offset) = (61 : Minute.Offset) := rfl
theorem hour_hour_hour : (1 : Hour.Offset) + (1 : Hour.Offset) = (2 : Hour.Offset) := rfl
theorem hour_day_hour : (1 : Hour.Offset) + (1 : Day.Offset) = (25 : Hour.Offset) := rfl
theorem hour_week_hour : (1 : Hour.Offset) + (1 : Week.Offset) = (169 : Hour.Offset) := rfl
theorem day_nano_nano : (1 : Day.Offset) + (1 : Nanosecond.Offset) = (86400000000001 : Nanosecond.Offset) := rfl
theorem day_milli_milli : (1 : Day.Offset) + (1 : Millisecond.Offset) = (86400001 : Millisecond.Offset) := rfl
theorem day_sec_sec : (1 : Day.Offset) + (1 : Second.Offset) = (86401 : Second.Offset) := rfl
theorem day_min_min : (1 : Day.Offset) + (1 : Minute.Offset) = (1441 : Minute.Offset) := rfl
theorem day_hour_hour : (1 : Day.Offset) + (1 : Hour.Offset) = (25 : Hour.Offset) := rfl
theorem day_day_day : (1 : Day.Offset) + (1 : Day.Offset) = (2 : Day.Offset) := rfl
theorem day_week_day : (1 : Day.Offset) + (1 : Week.Offset) = (8 : Day.Offset) := rfl
theorem week_nano_nano : (1 : Week.Offset) + (1 : Nanosecond.Offset) = (604800000000001 : Nanosecond.Offset) := rfl
theorem week_milli_milli : (1 : Week.Offset) + (1 : Millisecond.Offset) = (604800001 : Millisecond.Offset) := rfl
theorem week_sec_sec : (1 : Week.Offset) + (1 : Second.Offset) = (604801 : Second.Offset) := rfl
theorem week_min_min : (1 : Week.Offset) + (1 : Minute.Offset) = (10081 : Minute.Offset) := rfl
theorem week_hour_hour : (1 : Week.Offset) + (1 : Hour.Offset) = (169 : Hour.Offset) := rfl
theorem week_day_day : (1 : Week.Offset) + (1 : Day.Offset) = (8 : Day.Offset) := rfl
theorem week_week_week : (1 : Week.Offset) + (1 : Week.Offset) = (2 : Week.Offset) := rfl
theorem nano_nano_nano_sub : (1 : Nanosecond.Offset) - (1 : Nanosecond.Offset) = (0 : Nanosecond.Offset) := rfl
theorem nano_milli_nano_sub : (1 : Nanosecond.Offset) - (1 : Millisecond.Offset) = (-999999 : Nanosecond.Offset) := rfl
theorem nano_sec_nano_sub : (1 : Nanosecond.Offset) - (1 : Second.Offset) = (-999999999 : Nanosecond.Offset) := rfl
theorem nano_min_nano_sub : (1 : Nanosecond.Offset) - (1 : Minute.Offset) = (-59999999999 : Nanosecond.Offset) := rfl
theorem nano_hour_nano_sub : (1 : Nanosecond.Offset) - (1 : Hour.Offset) = (-3599999999999 : Nanosecond.Offset) := rfl
theorem nano_day_nano_sub : (1 : Nanosecond.Offset) - (1 : Day.Offset) = (-86399999999999 : Nanosecond.Offset) := rfl
theorem nano_week_nano_sub : (1 : Nanosecond.Offset) - (1 : Week.Offset) = (-604799999999999 : Nanosecond.Offset) := rfl
theorem milli_nano_nano_sub : (1 : Millisecond.Offset) - (1 : Nanosecond.Offset) = (999999 : Nanosecond.Offset) := rfl
theorem milli_milli_milli_sub : (1 : Millisecond.Offset) - (1 : Millisecond.Offset) = (0 : Millisecond.Offset) := rfl
theorem milli_sec_milli_sub : (1 : Millisecond.Offset) - (1 : Second.Offset) = (-999 : Millisecond.Offset) := rfl
theorem milli_min_milli_sub : (1 : Millisecond.Offset) - (1 : Minute.Offset) = (-59999 : Millisecond.Offset) := rfl
theorem milli_hour_milli_sub : (1 : Millisecond.Offset) - (1 : Hour.Offset) = (-3599999 : Millisecond.Offset) := rfl
theorem milli_day_milli_sub : (1 : Millisecond.Offset) - (1 : Day.Offset) = (-86399999 : Millisecond.Offset) := rfl
theorem milli_week_milli_sub : (1 : Millisecond.Offset) - (1 : Week.Offset) = (-604799999 : Millisecond.Offset) := rfl
theorem sec_nano_nano_sub : (1 : Second.Offset) - (1 : Nanosecond.Offset) = (999999999 : Nanosecond.Offset) := rfl
theorem sec_milli_milli_sub : (1 : Second.Offset) - (1 : Millisecond.Offset) = (999 : Millisecond.Offset) := rfl
theorem sec_sec_sec_sub : (1 : Second.Offset) - (1 : Second.Offset) = (0 : Second.Offset) := rfl
theorem sec_min_sec_sub : (1 : Second.Offset) - (1 : Minute.Offset) = (-59 : Second.Offset) := rfl
theorem sec_hour_sec_sub : (1 : Second.Offset) - (1 : Hour.Offset) = (-3599 : Second.Offset) := rfl
theorem sec_day_sec_sub : (1 : Second.Offset) - (1 : Day.Offset) = (-86399 : Second.Offset) := rfl
theorem sec_week_sec_sub : (1 : Second.Offset) - (1 : Week.Offset) = (-604799 : Second.Offset) := rfl
theorem min_nano_nano_sub : (1 : Minute.Offset) - (1 : Nanosecond.Offset) = (59999999999 : Nanosecond.Offset) := rfl
theorem min_milli_milli_sub : (1 : Minute.Offset) - (1 : Millisecond.Offset) = (59999 : Millisecond.Offset) := rfl
theorem min_sec_sec_sub : (1 : Minute.Offset) - (1 : Second.Offset) = (59 : Second.Offset) := rfl
theorem min_min_min_sub : (1 : Minute.Offset) - (1 : Minute.Offset) = (0 : Minute.Offset) := rfl
theorem min_hour_min_sub : (1 : Minute.Offset) - (1 : Hour.Offset) = (-59 : Minute.Offset) := rfl
theorem min_day_min_sub : (1 : Minute.Offset) - (1 : Day.Offset) = (-1439 : Minute.Offset) := rfl
theorem min_week_min_sub : (1 : Minute.Offset) - (1 : Week.Offset) = (-10079 : Minute.Offset) := rfl
theorem hour_nano_nano_sub : (1 : Hour.Offset) - (1 : Nanosecond.Offset) = (3599999999999 : Nanosecond.Offset) := rfl
theorem hour_milli_milli_sub : (1 : Hour.Offset) - (1 : Millisecond.Offset) = (3599999 : Millisecond.Offset) := rfl
theorem hour_sec_sec_sub : (1 : Hour.Offset) - (1 : Second.Offset) = (3599 : Second.Offset) := rfl
theorem hour_min_min_sub : (1 : Hour.Offset) - (1 : Minute.Offset) = (59 : Minute.Offset) := rfl
theorem hour_hour_hour_sub : (1 : Hour.Offset) - (1 : Hour.Offset) = (0 : Hour.Offset) := rfl
theorem hour_day_hour_sub : (1 : Hour.Offset) - (1 : Day.Offset) = (-23 : Hour.Offset) := rfl
theorem hour_week_hour_sub : (1 : Hour.Offset) - (1 : Week.Offset) = (-167 : Hour.Offset) := rfl
theorem day_nano_nano_sub : (1 : Day.Offset) - (1 : Nanosecond.Offset) = (86399999999999 : Nanosecond.Offset) := rfl
theorem day_milli_milli_sub : (1 : Day.Offset) - (1 : Millisecond.Offset) = (86399999 : Millisecond.Offset) := rfl
theorem day_sec_sec_sub : (1 : Day.Offset) - (1 : Second.Offset) = (86399 : Second.Offset) := rfl
theorem day_min_min_sub : (1 : Day.Offset) - (1 : Minute.Offset) = (1439 : Minute.Offset) := rfl
theorem day_hour_hour_sub : (1 : Day.Offset) - (1 : Hour.Offset) = (23 : Hour.Offset) := rfl
theorem day_day_day_sub : (1 : Day.Offset) - (1 : Day.Offset) = (0 : Day.Offset) := rfl
theorem day_week_day_sub : (1 : Day.Offset) - (1 : Week.Offset) = (-6 : Day.Offset) := rfl
theorem week_nano_nano_sub : (1 : Week.Offset) - (1 : Nanosecond.Offset) = (604799999999999 : Nanosecond.Offset) := rfl
theorem week_milli_milli_sub : (1 : Week.Offset) - (1 : Millisecond.Offset) = (604799999 : Millisecond.Offset) := rfl
theorem week_sec_sec_sub : (1 : Week.Offset) - (1 : Second.Offset) = (604799 : Second.Offset) := rfl
theorem week_min_min_sub : (1 : Week.Offset) - (1 : Minute.Offset) = (10079 : Minute.Offset) := rfl
theorem week_hour_hour_sub : (1 : Week.Offset) - (1 : Hour.Offset) = (167 : Hour.Offset) := rfl
theorem week_day_day_sub : (1 : Week.Offset) - (1 : Day.Offset) = (6 : Day.Offset) := rfl
theorem week_week_week_sub : (1 : Week.Offset) - (1 : Week.Offset) = (0 : Week.Offset) := rfl
/-
Of and To basic units
-/
example : (1 : Nanosecond.Offset).toInt = (1 : Int) := rfl
example : (1 : Millisecond.Offset).toInt = (1 : Int) := rfl
example : (1 : Second.Offset).toInt = (1 : Int) := rfl
example : (1 : Minute.Offset).toInt = (1 : Int) := rfl
example : (1 : Hour.Offset).toInt = (1 : Int) := rfl
example : (1 : Day.Offset).toInt = (1 : Int) := rfl
example : (1 : Week.Offset).toInt = (1 : Int) := rfl
example : Nanosecond.Offset.ofInt 1 = (1 : Nanosecond.Offset) := rfl
example : Millisecond.Offset.ofInt 1 = (1 : Millisecond.Offset) := rfl
example : Second.Offset.ofInt 1 = (1 : Second.Offset) := rfl
example : Minute.Offset.ofInt 1 = (1 : Minute.Offset) := rfl
example : Hour.Offset.ofInt 1 = (1 : Hour.Offset) := rfl
example : Day.Offset.ofInt 1 = (1 : Day.Offset) := rfl
example : Week.Offset.ofInt 1 = (1 : Week.Offset) := rfl
example : Nanosecond.Offset.ofNat 1 = (1 : Nanosecond.Offset) := rfl
example : Millisecond.Offset.ofNat 1 = (1 : Millisecond.Offset) := rfl
example : Second.Offset.ofNat 1 = (1 : Second.Offset) := rfl
example : Minute.Offset.ofNat 1 = (1 : Minute.Offset) := rfl
example : Hour.Offset.ofNat 1 = (1 : Hour.Offset) := rfl
example : Day.Offset.ofNat 1 = (1 : Day.Offset) := rfl
example : Week.Offset.ofNat 1 = (1 : Week.Offset) := rfl
example := Nanosecond.Ordinal.ofInt 1 (by decide)
example := Millisecond.Ordinal.ofInt 1 (by decide)
example := Second.Ordinal.ofInt (leap := false) 59 (by decide)
example := Second.Ordinal.ofInt (leap := true) 60 (by decide)
example := Minute.Ordinal.ofInt 1 (by decide)
example := Hour.Ordinal.ofInt 1 (by decide)
example := Day.Ordinal.ofInt 1 (by decide)
example := Week.Ordinal.ofInt 1 (by decide)
example := Nanosecond.Ordinal.ofFin 1
example := Millisecond.Ordinal.ofFin 1
example := Second.Ordinal.ofFin (leap := false) 37
example := Second.Ordinal.ofFin (leap := true) 37
example := Minute.Ordinal.ofFin 1
example := Hour.Ordinal.ofFin 1
example := Day.Ordinal.ofFin 1
example := Week.Ordinal.ofFin 1
example := Nanosecond.Ordinal.ofNat 1
example := Millisecond.Ordinal.ofNat 1
example := Second.Ordinal.ofNat (leap := false) 1
example := Second.Ordinal.ofNat (leap := true) 1
example := Minute.Ordinal.ofNat 1
example := Hour.Ordinal.ofNat 1
example := Day.Ordinal.ofNat 1
example := Week.Ordinal.ofNat 1
example := Nanosecond.Ordinal.toOffset 1
example := Millisecond.Ordinal.toOffset 1
example := Second.Ordinal.toOffset (leap := false) 1
example := Second.Ordinal.toOffset (leap := true) 1
example := Minute.Ordinal.toOffset 1
example := Hour.Ordinal.toOffset 1
example := Day.Ordinal.toOffset 1
example := Week.Ordinal.toOffset 1
example : (1 : Nanosecond.Ordinal).toInt = (1 : Int) := rfl
example : (1 : Millisecond.Ordinal).toInt = (1 : Int) := rfl
example : (1 : Second.Ordinal false).toInt = (1 : Int) := rfl
example : (1 : Second.Ordinal true).toInt = (1 : Int) := rfl
example : (1 : Minute.Ordinal).toInt = (1 : Int) := rfl
example : (1 : Hour.Ordinal).toInt = (1 : Int) := rfl
example : (1 : Day.Ordinal).toInt = (1 : Int) := rfl
example : (1 : Week.Ordinal).toInt = (1 : Int) := rfl
example : ((1 : Nanosecond.Ordinal).toFin (by decide) |>.val) = 1 := rfl
example : ((1 : Millisecond.Ordinal).toFin (by decide) |>.val) = 1 := rfl
example : ((1 : Second.Ordinal false).toFin (by decide) |>.val) = 1 := rfl
example : ((1 : Second.Ordinal true).toFin (by decide) |>.val) = 1 := rfl
example : ((1 : Minute.Ordinal).toFin (by decide) |>.val) = 1 := rfl
example : ((1 : Hour.Ordinal).toFin (by decide) |>.val) = 1 := rfl
example : ((1 : Day.Ordinal).toFin (by decide) |>.val) = 1 := rfl
example : ((1 : Week.Ordinal).toFin (by decide) |>.val) = 1 := rfl
example : (1 : Nanosecond.Ordinal).toNat = 1 := rfl
example : (1 : Millisecond.Ordinal).toNat = 1 := rfl
example : (1 : Second.Ordinal false).toNat = 1 := rfl
example : (1 : Second.Ordinal true).toNat = 1 := rfl
example : (1 : Minute.Ordinal).toNat = 1 := rfl
example : (1 : Hour.Ordinal).toNat = 1 := rfl
example : (1 : Day.Ordinal).toNat = 1 := rfl
example : (1 : Week.Ordinal).toNat = 1 := rfl
/--
info: 9
2023-06-10
2023-06-16
2023-07-09
2023-07-09
2024-06-09
2024-06-09
2023-06-08
2023-06-02
2023-05-09
2023-05-09
2022-06-09
2022-06-09
2023-06-01
2023-06-01
2023-06-11
2023-01-09
2023-01-09
0001-06-09
0001-06-09
23 2023 2023 2023 23 2023 2023 23 J
false
160
CE
2
2
Std.Time.Weekday.friday
23
2
06-09-2023
2023-06-09
2023-06-09
19517
1686268800
1970-01-02
-/
#guard_msgs in
#eval do
-- :>
let date := date("2023-06-09")
println! repr date.day
println! date.addDays 1
println! date.addWeeks 1
println! date.addMonthsClip 1
println! date.addMonthsRollOver 1
println! date.addYearsClip 1
println! date.addYearsRollOver 1
println! date.subDays 1
println! date.subWeeks 1
println! date.subMonthsClip 1
println! date.subMonthsRollOver 1
println! date.subYearsClip 1
println! date.subYearsRollOver 1
println! date.withDaysClip 1
println! date.withDaysRollOver 1
println! date.withWeekday .sunday
println! date.withMonthClip 1
println! date.withMonthRollOver 1
println! date.withYearClip 1
println! date.withYearRollOver 1
println! date.format "yy yyyy yyy yyy yy uuuu uuu uu MMMMM"
println! date.inLeapYear
println! date.dayOfYear
println! date.era
println! repr date.quarter
println! repr date.alignedWeekOfMonth
println! repr date.weekday
println! repr date.weekOfYear
println! repr date.weekOfMonth
println! date.toAmericanDateString
println! date.toLeanDateString
println! date.toSQLDateString
println! date.toDaysSinceUNIXEpoch
println! date.toTimestampAssumingUTC
println! PlainDate.ofDaysSinceUNIXEpoch 1
/--
info: 1997-03-19T02:03:04.000000000
1997-03-25T02:03:04.000000000
1997-04-18T02:03:04.000000000
1997-04-18T02:03:04.000000000
1998-03-18T02:03:04.000000000
1998-03-18T02:03:04.000000000
1997-03-17T02:03:04.000000000
1997-03-11T02:03:04.000000000
1997-02-18T02:03:04.000000000
1997-02-18T02:03:04.000000000
1996-03-18T02:03:04.000000000
1996-03-18T02:03:04.000000000
1997-03-01T02:03:04.000000000
1997-03-01T02:03:04.000000000
1997-03-23T02:03:04.000000000
1997-01-18T02:03:04.000000000
1997-01-18T02:03:04.000000000
0001-03-18T02:03:04.000000000
0001-03-18T02:03:04.000000000
97 1997 1997 1997 97 1997 1997 97 M
false
77
CE
1
4
Std.Time.Weekday.tuesday
12
3
9938
858650584
1970-01-02T00:00:00.000000000
-/
#guard_msgs in
#eval do
let plaindatetime := datetime("1997-03-18T02:03:04")
println! plaindatetime.addDays 1
println! plaindatetime.addWeeks 1
println! plaindatetime.addMonthsClip 1
println! plaindatetime.addMonthsRollOver 1
println! plaindatetime.addYearsClip 1
println! plaindatetime.addYearsRollOver 1
println! plaindatetime.subDays 1
println! plaindatetime.subWeeks 1
println! plaindatetime.subMonthsClip 1
println! plaindatetime.subMonthsRollOver 1
println! plaindatetime.subYearsClip 1
println! plaindatetime.subYearsRollOver 1
println! plaindatetime.withDaysClip 1
println! plaindatetime.withDaysRollOver 1
println! plaindatetime.withWeekday .sunday
println! plaindatetime.withMonthClip 1
println! plaindatetime.withMonthRollOver 1
println! plaindatetime.withYearClip 1
println! plaindatetime.withYearRollOver 1
println! plaindatetime.format "yy yyyy yyy yyy yy uuuu uuu uu MMMMM"
println! plaindatetime.inLeapYear
println! plaindatetime.dayOfYear
println! plaindatetime.era
println! repr plaindatetime.quarter
println! repr plaindatetime.alignedWeekOfMonth
println! repr plaindatetime.weekday
println! repr plaindatetime.weekOfYear
println! repr plaindatetime.weekOfMonth
println! plaindatetime.toDaysSinceUNIXEpoch
println! plaindatetime.toTimestampAssumingUTC
println! PlainDateTime.ofDaysSinceUNIXEpoch 1 PlainTime.midnight
/--
info: 2024-09-13T02:01:02.000000000-03:00
2024-09-19T02:01:02.000000000-03:00
2024-10-12T02:01:02.000000000-03:00
2024-10-12T02:01:02.000000000-03:00
2025-09-12T02:01:02.000000000-03:00
2025-09-12T02:01:02.000000000-03:00
2024-09-11T02:01:02.000000000-03:00
2024-09-05T02:01:02.000000000-03:00
2024-08-12T02:01:02.000000000-03:00
2024-08-12T02:01:02.000000000-03:00
2023-09-12T02:01:02.000000000-03:00
2023-09-12T02:01:02.000000000-03:00
2024-09-01T02:01:02.000000000-03:00
2024-09-01T02:01:02.000000000-03:00
2024-09-15T02:01:02.000000000-03:00
2024-01-12T02:01:02.000000000-03:00
2024-01-12T02:01:02.000000000-03:00
0001-09-12T02:01:02.000000000-03:00
0001-09-12T02:01:02.000000000-03:00
24 2024 2024 2024 24 2024 2024 24 S
true
256
CE
3
3
Std.Time.Weekday.thursday
37
2
19978
1726117262
1970-01-02T00:00:00.000000000Z
-/
#guard_msgs in
#eval do
let zoned := DateTime.ofPlainDateTimeAssumingUTC datetime("2024-09-12T05:01:02") timezone("America/Sao_Paulo -03:00")
println! zoned.addDays 1
println! zoned.addWeeks 1
println! zoned.addMonthsClip 1
println! zoned.addMonthsRollOver 1
println! zoned.addYearsClip 1
println! zoned.addYearsRollOver 1
println! zoned.subDays 1
println! zoned.subWeeks 1
println! zoned.subMonthsClip 1
println! zoned.subMonthsRollOver 1
println! zoned.subYearsClip 1
println! zoned.subYearsRollOver 1
println! zoned.withDaysClip 1
println! zoned.withDaysRollOver 1
println! zoned.withWeekday .sunday
println! zoned.withMonthClip 1
println! zoned.withMonthRollOver 1
println! zoned.withYearClip 1
println! zoned.withYearRollOver 1
println! zoned.format "yy yyyy yyy yyy yy uuuu uuu uu MMMMM"
println! zoned.inLeapYear
println! zoned.dayOfYear
println! zoned.era
println! repr zoned.quarter
println! repr zoned.alignedWeekOfMonth
println! repr zoned.weekday
println! repr zoned.weekOfYear
println! repr zoned.weekOfMonth
println! zoned.toDaysSinceUNIXEpoch
println! zoned.toTimestamp
println! DateTime.ofDaysSinceUNIXEpoch 1 PlainTime.midnight .UTC
/--
info: 1997-03-19T02:03:04.000000000[America/Sao_Paulo]
1997-03-25T02:03:04.000000000[America/Sao_Paulo]
1997-04-18T02:03:04.000000000[America/Sao_Paulo]
1997-04-18T02:03:04.000000000[America/Sao_Paulo]
1998-03-18T02:03:04.000000000[America/Sao_Paulo]
1998-03-18T02:03:04.000000000[America/Sao_Paulo]
1997-03-17T02:03:04.000000000[America/Sao_Paulo]
1997-03-17T02:03:04.000000000[America/Sao_Paulo]
1997-03-11T02:03:04.000000000[America/Sao_Paulo]
1997-02-18T02:03:04.000000000[America/Sao_Paulo]
1997-02-18T02:03:04.000000000[America/Sao_Paulo]
1996-03-18T02:03:04.000000000[America/Sao_Paulo]
1996-03-18T02:03:04.000000000[America/Sao_Paulo]
1997-03-01T02:03:04.000000000[America/Sao_Paulo]
1997-03-01T02:03:04.000000000[America/Sao_Paulo]
1997-03-23T02:03:04.000000000[America/Sao_Paulo]
1997-01-18T02:03:04.000000000[America/Sao_Paulo]
1997-01-18T02:03:04.000000000[America/Sao_Paulo]
0001-03-18T02:03:04.000000000[America/Sao_Paulo]
0001-03-18T02:03:04.000000000[America/Sao_Paulo]
97 1997 1997 1997 97 1997 1997 97 M
false
77
CE
1
4
Std.Time.Weekday.tuesday
12
3
9938
858661384
-/
#guard_msgs in
#eval do
let zoned := zoned("1997-03-18T02:03:04", sao_paulo)
println! zoned.addDays 1
println! zoned.addWeeks 1
println! zoned.addMonthsClip 1
println! zoned.addMonthsRollOver 1
println! zoned.addYearsClip 1
println! zoned.addYearsRollOver 1
println! zoned.subDays 1
println! zoned.subDays 1
println! zoned.subWeeks 1
println! zoned.subMonthsClip 1
println! zoned.subMonthsRollOver 1
println! zoned.subYearsClip 1
println! zoned.subYearsRollOver 1
println! zoned.withDaysClip 1
println! zoned.withDaysRollOver 1
println! zoned.withWeekday .sunday
println! zoned.withMonthClip 1
println! zoned.withMonthRollOver 1
println! zoned.withYearClip 1
println! zoned.withYearRollOver 1
println! zoned.format "yy yyyy yyy yyy yy uuuu uuu uu MMMMM"
println! zoned.inLeapYear
println! zoned.dayOfYear
println! zoned.era
println! repr zoned.quarter
println! repr zoned.alignedWeekOfMonth
println! repr zoned.weekday
println! repr zoned.weekOfYear
println! repr zoned.weekOfMonth
println! zoned.toDaysSinceUNIXEpoch
println! zoned.toTimestamp
/--
info: 2023-06-09T00:00:00.000000000
0001-01-01T12:32:43.000000000
2033-11-18T12:32:43.000000000
-/
#guard_msgs in
#eval do
println! PlainDateTime.ofPlainDate date("2023-06-09")
println! PlainDateTime.ofPlainTime time("12:32:43")
println! PlainDateTime.ofDaysSinceUNIXEpoch 23332 time("12:32:43")
/--
info: 1970-01-02T00:00:00.000000000Z
1997-03-18T00:00:00.000000000Z
1997-03-18T00:01:02.000000000Z
1997-03-18T00:01:02.000000000Z
2024-02-16T22:07:14.000000000Z
-/
#guard_msgs in
#eval do
println! DateTime.ofDaysSinceUNIXEpoch 1 PlainTime.midnight .UTC
println! DateTime.ofPlainDate date("1997-03-18") .UTC
println! DateTime.ofPlainDateTime datetime("1997-03-18T00:01:02") .UTC
println! DateTime.ofPlainDateTimeAssumingUTC datetime("1997-03-18T00:01:02") .UTC
println! DateTime.ofTimestamp 1708121234 .UTC
/--
info: 1970-01-02T00:00:00.000000000[UTC]
1997-03-18T00:00:00.000000000[UTC]
1997-03-18T00:00:00.000000000[UTC]
1997-03-18T00:01:02.000000000[UTC]
1997-03-18T00:01:02.000000000[UTC]
1997-03-18T00:01:02.000000000[UTC]
2024-02-16T22:07:14.000000000[UTC]
2024-02-16T22:07:14.000000000[UTC]
-/
#guard_msgs in
#eval do
println! ZonedDateTime.ofDaysSinceUNIXEpoch 1 PlainTime.midnight .UTC
println! ZonedDateTime.ofPlainDate date("1997-03-18") .UTC
println! ZonedDateTime.ofPlainDateWithZone date("1997-03-18") .UTC
println! ZonedDateTime.ofPlainDateTime datetime("1997-03-18T00:01:02") .UTC
println! ZonedDateTime.ofPlainDateTimeAssumingUTC datetime("1997-03-18T00:01:02") .UTC
println! ZonedDateTime.ofPlainDateTimeWithZone datetime("1997-03-18T00:01:02") .UTC
println! ZonedDateTime.ofTimestamp 1708121234 .UTC
println! ZonedDateTime.ofTimestampWithZone 1708121234 .UTC
Reference in a new issue View git blame Copy permalink