diff -r cccbfa567117 -r b69e4da2604b src/HOL/Predicate_Compile_Examples/Hotel_Example_Prolog.thy --- a/src/HOL/Predicate_Compile_Examples/Hotel_Example_Prolog.thy Fri Jun 06 18:36:29 2025 +0100 +++ b/src/HOL/Predicate_Compile_Examples/Hotel_Example_Prolog.thy Mon Jun 09 22:14:38 2025 +0200 @@ -57,10 +57,10 @@ unfolding hotel.simps issuedp_def cardsp_def isinp_def by (auto split: event.split) -declare List.member_rec[code_pred_def] +declare List.member_code [code_pred_def] lemma [code_pred_def]: "no_Check_in s r = (\ (\g c. List.member s (Check_in g r c)))" -unfolding no_Check_in_def member_def by auto + by (simp add: no_Check_in_def) lemma [code_pred_def]: "feels_safe s r = (\s\<^sub>1 s\<^sub>2 s\<^sub>3 g c c'.