src/HOL/Data_Structures/Less_False.thy
changeset 69597 ff784d5a5bfb
parent 67406 23307fd33906
child 78099 4d9349989d94
--- a/src/HOL/Data_Structures/Less_False.thy	Sat Jan 05 17:00:43 2019 +0100
+++ b/src/HOL/Data_Structures/Less_False.thy	Sat Jan 05 17:24:33 2019 +0100
@@ -14,7 +14,7 @@
 
     fun prove_less_False ((less as Const(_,T)) $ r $ s) =
       let val prems = Simplifier.prems_of ctxt;
-          val le = Const (@{const_name less_eq}, T);
+          val le = Const (\<^const_name>\<open>less_eq\<close>, T);
           val t = HOLogic.mk_Trueprop(le $ s $ r);
       in case find_first (prp t) prems of
            NONE =>