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"