--- a/src/HOL/Library/Lub_Glb.thy Sat Jan 05 17:00:43 2019 +0100
+++ b/src/HOL/Library/Lub_Glb.thy Sat Jan 05 17:24:33 2019 +0100
@@ -10,10 +10,10 @@
text \<open>Thanks to suggestions by James Margetson\<close>
-definition setle :: "'a set \<Rightarrow> 'a::ord \<Rightarrow> bool" (infixl "*<=" 70)
+definition setle :: "'a set \<Rightarrow> 'a::ord \<Rightarrow> bool" (infixl \<open>*<=\<close> 70)
where "S *<= x = (\<forall>y\<in>S. y \<le> x)"
-definition setge :: "'a::ord \<Rightarrow> 'a set \<Rightarrow> bool" (infixl "<=*" 70)
+definition setge :: "'a::ord \<Rightarrow> 'a set \<Rightarrow> bool" (infixl \<open><=*\<close> 70)
where "x <=* S = (\<forall>y\<in>S. x \<le> y)"