src/HOL/Induct/QuoDataType.thy
changeset 80914 d97fdabd9e2b
parent 80067 c40bdfc84640
child 82248 e8c96013ea8a
--- a/src/HOL/Induct/QuoDataType.thy	Fri Sep 20 19:07:10 2024 +0200
+++ b/src/HOL/Induct/QuoDataType.thy	Fri Sep 20 19:51:08 2024 +0200
@@ -30,7 +30,7 @@
 
 inductive_set
   msgrel :: "(freemsg * freemsg) set"
-  and msg_rel :: "[freemsg, freemsg] => bool"  (infixl "\<sim>" 50)
+  and msg_rel :: "[freemsg, freemsg] => bool"  (infixl \<open>\<sim>\<close> 50)
   where
     "X \<sim> Y == (X,Y) \<in> msgrel"
   | CD:    "CRYPT K (DECRYPT K X) \<sim> X"