diff options
Diffstat (limited to 'scratch.thy')
-rw-r--r-- | scratch.thy | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/scratch.thy b/scratch.thy new file mode 100644 index 0000000..331b607 --- /dev/null +++ b/scratch.thy @@ -0,0 +1,24 @@ +theory scratch + imports IFOL + +begin + +lemma disj_swap: "P \<or> Q \<Longrightarrow> Q \<or> P" +apply (erule disjE) (* Compare with the less useful \<open>rule disjE\<close> *) + apply (rule disjI2) + apply assumption +apply (rule disjI1) +apply assumption +done + +lemma imp_uncurry: "P \<longrightarrow> (Q \<longrightarrow> R) \<Longrightarrow> P \<and> Q \<longrightarrow> R" +apply (rule impI) +apply (erule conjE) +apply (drule mp) +apply assumption +apply (drule mp) +apply assumption +apply assumption +done + +end
\ No newline at end of file |