diff -r d32201f08e98 -r 6fb4a0829cc4 src/HOL/Orderings.thy --- a/src/HOL/Orderings.thy Mon Jun 20 11:06:33 2022 +0200 +++ b/src/HOL/Orderings.thy Tue Jun 21 13:39:06 2022 +0200 @@ -1060,15 +1060,6 @@ subsection \Monotonicity\ -definition monotone :: "('a \ 'a \ bool) \ ('b \ 'b \ bool) \ ('a \ 'b) \ bool" - where "monotone orda ordb f \ (\x y. orda x y \ ordb (f x) (f y))" - -lemma monotoneI[intro?]: "(\x y. orda x y \ ordb (f x) (f y)) \ monotone orda ordb f" - unfolding monotone_def by iprover - -lemma monotoneD[dest?]: "monotone orda ordb f \ orda x y \ ordb (f x) (f y)" - unfolding monotone_def by iprover - context order begin