Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strengthened and renamed transp_reflclp
authordesharna
Mon, 19 Dec 2022 16:05:57 +0100
changeset 76750 f70a7ff13b10
parent 76749 11a24dab1880
child 76751 66f17783913b
strengthened and renamed transp_reflclp
NEWS file | annotate | diff | comparison | revisions
src/HOL/Transitive_Closure.thy file | annotate | diff | comparison | revisions 
--- a/NEWS	Mon Dec 19 16:00:49 2022 +0100
+++ b/NEWS	Mon Dec 19 16:05:57 2022 +0100
@@ -131,7 +131,7 @@
       antisymp_on_reflcp[simp]
       reflclp_ident_if_reflp[simp]
       reflp_on_reflclp[simp]
-      transp_reflclp[simp]
+      transp_on_reflclp[simp]
 
 * Theory "HOL.Wellfounded":
   - Added lemmas.
--- a/src/HOL/Transitive_Closure.thy	Mon Dec 19 16:00:49 2022 +0100
+++ b/src/HOL/Transitive_Closure.thy	Mon Dec 19 16:05:57 2022 +0100
@@ -85,8 +85,8 @@
 lemma trans_reflclI[simp]: "trans r \<Longrightarrow> trans (r\<^sup>=)"
   unfolding trans_def by blast
 
-lemma transp_reflclp[simp]: "transp R \<Longrightarrow> transp R\<^sup>=\<^sup>="
-  unfolding transp_def by blast
+lemma transp_on_reflclp[simp]: "transp_on A R \<Longrightarrow> transp_on A R\<^sup>=\<^sup>="
+  by (auto intro: transp_onI dest: transp_onD)
 
 lemma reflclp_idemp [simp]: "(P\<^sup>=\<^sup>=)\<^sup>=\<^sup>= = P\<^sup>=\<^sup>="
   by blast
isabelle