diff --git a/src/SI/SI_Accepted.thy b/src/SI/SI_Accepted.thy index ab8c9b3..bb91b64 100644 --- a/src/SI/SI_Accepted.thy +++ b/src/SI/SI_Accepted.thy @@ -23,7 +23,6 @@ abbreviation "tonne \ 10^3 \ kilogram" subsection \ Examples \ -declare[[show_types]] lemma "watt \<^bold>\ hour \\<^sub>Q 3600 \ joule" by (si_calc) diff --git a/src/SI/SI_Prefix.thy b/src/SI/SI_Prefix.thy index 5a1976b..603c5d1 100644 --- a/src/SI/SI_Prefix.thy +++ b/src/SI/SI_Prefix.thy @@ -50,11 +50,34 @@ definition zepto :: "'a" where [si_eq]: "zepto = 1/10^21" definition yocto :: "'a" where [si_eq]: "yocto = 1/10^24" -default_sort type - subsection \ Examples \ -lemma "2.3 \ (centi \ meter)\<^sup>\ \\<^sub>Q 2.3 \ 1/10^6 \ meter\<^sup>\" +lemma "2.3 \ (centi \ meter)\<^sup>\ = 2.3 \ 1/10^6 \ meter\<^sup>\" by (si_simp) +lemma "1 \ (centi \ meter)\<^sup>-\<^sup>\ = 100 \ meter\<^sup>-\<^sup>\" + by (si_simp) + +subsection \ Binary Prefixes \ + +default_sort ring_char_0 + +definition kibi :: "'a" where [si_eq]: "kibi = 2^10" + +definition mebi :: "'a" where [si_eq]: "mebi = 2^20" + +definition gibi :: "'a" where [si_eq]: "gibi = 2^30" + +definition tebi :: "'a" where [si_eq]: "tebi = 2^40" + +definition pebi :: "'a" where [si_eq]: "pebi = 2^50" + +definition exbi :: "'a" where [si_eq]: "exbi = 2^60" + +definition zebi :: "'a" where [si_eq]: "zebi = 2^70" + +definition yobi :: "'a" where [si_eq]: "yobi = 2^80" + +default_sort type + end \ No newline at end of file