36 lines
1.1 KiB
Plaintext
Executable File
36 lines
1.1 KiB
Plaintext
Executable File
section \<open> Non-SI Units Accepted for SI use \<close>
|
|
|
|
theory SI_Accepted
|
|
imports SI_Derived
|
|
begin
|
|
|
|
definition [si_def, si_eq]: "minute = 60 \<odot> second"
|
|
|
|
definition [si_def, si_eq]: "hour = 60 \<odot> minute"
|
|
|
|
definition [si_def, si_eq]: "day = 24 \<odot> hour"
|
|
|
|
definition [si_def, si_eq]: "astronomical_unit = 149597870700 \<odot> meter"
|
|
|
|
definition degree :: "'a::real_field[L/L]" where
|
|
[si_def, si_eq]: "degree = (2\<cdot>(of_real pi) / 180) \<odot> radian"
|
|
|
|
abbreviation degrees ("_\<degree>" [999] 999) where "n\<degree> \<equiv> n \<odot> degree"
|
|
|
|
definition [si_def, si_eq]: "litre = 1/1000 \<odot> meter\<^sup>\<three>"
|
|
|
|
definition [si_def, si_eq]: "tonne = 10^3 \<odot> kilogram"
|
|
|
|
definition [si_def, si_eq]: "dalton = 1.66053906660 * (1 / 10^27) \<odot> kilogram"
|
|
|
|
subsection \<open> Example Unit Equations \<close>
|
|
|
|
lemma "1 \<odot> hour = 3600 \<odot> second"
|
|
by (si_simp)
|
|
|
|
lemma "watt \<^bold>\<cdot> hour \<cong>\<^sub>Q 3600 \<odot> joule" by (si_calc)
|
|
|
|
lemma "25 \<odot> meter \<^bold>/ second = 90 \<odot> (kilo \<odot> meter) \<^bold>/ hour"
|
|
by (si_calc)
|
|
|
|
end |