changeset 73545 | fc72e5ebf9de |
parent 73535 | 0f33c7031ec9 |
child 74007 | df976eefcba0 |
--- a/src/HOL/Rings.thy Wed Apr 07 22:32:43 2021 +0200 +++ b/src/HOL/Rings.thy Wed Apr 07 15:46:06 2021 +0000 @@ -1933,6 +1933,15 @@ class zero_less_one = order + zero + one + assumes zero_less_one [simp]: "0 < 1" +begin + +subclass zero_neq_one + by standard (simp add: less_imp_neq) + +lemma zero_le_one [simp]: + \<open>0 \<le> 1\<close> by (rule less_imp_le) simp + +end class linordered_semiring_1 = linordered_semiring + semiring_1 + zero_less_one begin