# HG changeset patch # User haftmann # Date 1749717477 -7200 # Node ID 81f64077eaabfcbed85bc3265523bd85c9678dd2 # Parent 8f0b2daa7eaab6beda448da39a48271b5d49535b tuned whitespace diff -r 8f0b2daa7eaa -r 81f64077eaab src/HOL/List.thy --- a/src/HOL/List.thy Thu Jun 12 08:03:05 2025 +0200 +++ b/src/HOL/List.thy Thu Jun 12 10:37:57 2025 +0200 @@ -7945,7 +7945,7 @@ text \Executable checks for relations on sets\ definition listrel1p :: \('a \ 'a \ bool) \ 'a list \ 'a list \ bool\ \ \only for code generation\ - where \listrel1p r xs ys \ (xs, ys) \ listrel1 {(x, y). r x y}\ + where \listrel1p r xs ys \ (xs, ys) \ listrel1 {(x, y). r x y}\ lemma [code_unfold]: \(xs, ys) \ listrel1 r \ listrel1p (\x y. (x, y) \ r) xs ys\