# HG changeset patch
# User nipkow
# Date 1427815784 -7200
# Node ID c777743294e100250c24a4ecea97594e5e63f3da
# Parent  30519ff3dffb45ebe02864f8f12409c8510e904a
added lemmas

diff -r 30519ff3dffb -r c777743294e1 src/HOL/HOL.thy
--- a/src/HOL/HOL.thy	Tue Mar 31 15:01:06 2015 +0100
+++ b/src/HOL/HOL.thy	Tue Mar 31 17:29:44 2015 +0200
@@ -1264,6 +1264,12 @@
   then show "PROP P" .
 qed
 
+lemma implies_True_equals: "(PROP P \<Longrightarrow> True) \<equiv> Trueprop True"
+by default (intro TrueI)
+
+lemma False_implies_equals: "(False \<Longrightarrow> P) \<equiv> Trueprop True"
+by default simp_all
+
 lemma ex_simps:
   "!!P Q. (EX x. P x & Q)   = ((EX x. P x) & Q)"
   "!!P Q. (EX x. P & Q x)   = (P & (EX x. Q x))"