simplify.assumption.
simplify.
apply (bool_ind (\lambda b:bool.
-(f (S n1) = b) \to (f ([\lambda b:bool.nat] match b in bool with
+(f (S n1) = b) \to (f (match b in bool with
[ true \Rightarrow (S n1)
| false \Rightarrow (max n1 f)])) = true)).
simplify.intro.assumption.
apply (antisym_le a m).assumption.rewrite > (minus_n_O m).assumption.
simplify.
apply (bool_ind (\lambda b:bool.
-(f (m-(S n)) = b) \to (f ([\lambda b:bool.nat] match b in bool with
+(f (m-(S n)) = b) \to (f (match b in bool with
[ true \Rightarrow m-(S n)
| false \Rightarrow (min_aux n m f)])) = true)).
simplify.intro.assumption.