--- a/src/ZF/Resid/Confluence.thy Tue Sep 27 17:54:20 2022 +0100
+++ b/src/ZF/Resid/Confluence.thy Tue Sep 27 18:02:34 2022 +0100
@@ -22,7 +22,7 @@
lemma strip_lemma_r:
"\<lbrakk>confluence(Spar_red1)\<rbrakk>\<Longrightarrow> strip"
-apply (unfold confluence_def strip_def)
+ unfolding confluence_def strip_def
apply (rule impI [THEN allI, THEN allI])
apply (erule Spar_red.induct, fast)
apply (fast intro: Spar_red.trans)
@@ -31,7 +31,7 @@
lemma strip_lemma_l:
"strip\<Longrightarrow> confluence(Spar_red)"
-apply (unfold confluence_def strip_def)
+ unfolding confluence_def strip_def
apply (rule impI [THEN allI, THEN allI])
apply (erule Spar_red.induct, blast)
apply clarify