diff -r 3bcbc4d12916 -r ec86cb2418e1 src/HOL/Library/FuncSet.thy --- a/src/HOL/Library/FuncSet.thy Mon Feb 14 16:41:48 2022 +0100 +++ b/src/HOL/Library/FuncSet.thy Tue Feb 15 13:00:05 2022 +0000 @@ -190,9 +190,12 @@ lemma restrict_UNIV: "restrict f UNIV = f" by (simp add: restrict_def) -lemma inj_on_restrict_eq [simp]: "inj_on (restrict f A) A = inj_on f A" +lemma inj_on_restrict_eq [simp]: "inj_on (restrict f A) A \ inj_on f A" by (simp add: inj_on_def restrict_def) +lemma inj_on_restrict_iff: "A \ B \ inj_on (restrict f B) A \ inj_on f A" + by (metis inj_on_cong restrict_def subset_iff) + lemma Id_compose: "f \ A \ B \ f \ extensional A \ compose A (\y\B. y) f = f" by (auto simp add: fun_eq_iff compose_def extensional_def Pi_def)