notation < "hvbox(x \nbsp ∈ \nbsp l)"
non associative with precedence 30 for @{ 'inlist $x $l }.
*)
-interpretation "item in list" 'mem x l = (in_list _ x l).
+interpretation "item in list" 'mem x l = (in_list ? x l).
lemma max_case : \forall m,n.(max m n) = match (leb m n) with
[ true \Rightarrow n