diff -r 15f868460de9 -r 3fc92362fbb5 src/HOL/Relation.thy --- a/src/HOL/Relation.thy Mon Nov 21 13:48:58 2022 +0100 +++ b/src/HOL/Relation.thy Mon Nov 21 13:53:04 2022 +0100 @@ -246,8 +246,8 @@ "refl_on A r \ (\(x, y) \ r. x \ A \ y \ A) \ (\x \ A. (x, x) \ r)" by (auto intro: refl_onI dest: refl_onD refl_onD1 refl_onD2) -lemma reflp_equality [simp]: "reflp (=)" - by (simp add: reflp_def) +lemma reflp_on_equality [simp]: "reflp_on A (=)" + by (simp add: reflp_on_def) lemma reflp_on_mono: "reflp_on A R \ (\x y. x \ A \ y \ A \ R x y \ Q x y) \ reflp_on A Q"