abbrevs for the Uniq quantifier; trying Sup_nat_def to allow zero (experimentally)
authorpaulson <lp15@cam.ac.uk>
Tue, 12 May 2020 15:11:20 +0100
changeset 72054 ff6f3b09b8b4
parent 72053 7a997ead54b0
child 72055 919a55257e62
abbrevs for the Uniq quantifier; trying Sup_nat_def to allow zero (experimentally)
src/HOL/Conditionally_Complete_Lattices.thy
src/HOL/HOL.thy
--- a/src/HOL/Conditionally_Complete_Lattices.thy	Tue May 12 10:59:59 2020 +0200
+++ b/src/HOL/Conditionally_Complete_Lattices.thy	Tue May 12 15:11:20 2020 +0100
@@ -524,7 +524,7 @@
 instantiation nat :: conditionally_complete_linorder
 begin
 
-definition "Sup (X::nat set) = Max X"
+definition "Sup (X::nat set) = (if X={} then 0 else Max X)"
 definition "Inf (X::nat set) = (LEAST n. n \<in> X)"
 
 lemma bdd_above_nat: "bdd_above X \<longleftrightarrow> finite (X::nat set)"
@@ -545,7 +545,7 @@
   show "x \<le> Inf X" if "X \<noteq> {}" "\<And>y. y \<in> X \<Longrightarrow> x \<le> y"
     using that unfolding Inf_nat_def ex_in_conv[symmetric] by (rule LeastI2_ex)
   show "x \<le> Sup X" if "x \<in> X" "bdd_above X"
-    using that by (simp add: Sup_nat_def bdd_above_nat)
+    using that by (auto simp add: Sup_nat_def bdd_above_nat)
   show "Sup X \<le> x" if "X \<noteq> {}" "\<And>y. y \<in> X \<Longrightarrow> y \<le> x"
   proof -
     from that have "bdd_above X"
--- a/src/HOL/HOL.thy	Tue May 12 10:59:59 2020 +0200
+++ b/src/HOL/HOL.thy	Tue May 12 15:11:20 2020 +0100
@@ -10,6 +10,7 @@
   "try" "solve_direct" "quickcheck" "print_coercions" "print_claset"
     "print_induct_rules" :: diag and
   "quickcheck_params" :: thy_decl
+abbrevs "?<" = "\<exists>\<^sub>\<le>\<^sub>1"
 begin
 
 ML_file \<open>~~/src/Tools/misc_legacy.ML\<close>