src/HOL/Ctr_Sugar.thy
changeset 58188 cc71d2be4f0a
parent 58177 166131276380
child 58659 6c9821c32dd5
--- a/src/HOL/Ctr_Sugar.thy	Fri Sep 05 00:41:01 2014 +0200
+++ b/src/HOL/Ctr_Sugar.thy	Fri Sep 05 00:41:01 2014 +0200
@@ -30,12 +30,12 @@
 ML_file "Tools/Ctr_Sugar/case_translation.ML"
 
 lemma iffI_np: "\<lbrakk>x \<Longrightarrow> \<not> y; \<not> x \<Longrightarrow> y\<rbrakk> \<Longrightarrow> \<not> x \<longleftrightarrow> y"
-by (erule iffI) (erule contrapos_pn)
+  by (erule iffI) (erule contrapos_pn)
 
 lemma iff_contradict:
-"\<not> P \<Longrightarrow> P \<longleftrightarrow> Q \<Longrightarrow> Q \<Longrightarrow> R"
-"\<not> Q \<Longrightarrow> P \<longleftrightarrow> Q \<Longrightarrow> P \<Longrightarrow> R"
-by blast+
+  "\<not> P \<Longrightarrow> P \<longleftrightarrow> Q \<Longrightarrow> Q \<Longrightarrow> R"
+  "\<not> Q \<Longrightarrow> P \<longleftrightarrow> Q \<Longrightarrow> P \<Longrightarrow> R"
+  by blast+
 
 ML_file "Tools/Ctr_Sugar/local_interpretation.ML"
 ML_file "Tools/Ctr_Sugar/ctr_sugar_util.ML"