src/HOL/simpdata.ML
changeset 3448 8a79e27ac53b
parent 3446 a14e5451f613
child 3518 6e11c7bfb9c7
--- a/src/HOL/simpdata.ML	Wed Jun 18 15:38:35 1997 +0200
+++ b/src/HOL/simpdata.ML	Thu Jun 19 11:23:31 1997 +0200
@@ -175,6 +175,10 @@
 prove "imp_conjL" "((P&Q) -->R)  = (P --> (Q --> R))";
 prove "imp_disjL" "((P|Q) --> R) = ((P-->R)&(Q-->R))";
 
+(*These two are specialized, but imp_disj_not1 is useful in Auth/Yahalom.ML*)
+prove "imp_disj_not1" "((P --> Q | R)) = (~Q --> P --> R)";
+prove "imp_disj_not2" "((P --> Q | R)) = (~R --> P --> Q)";
+
 prove "de_Morgan_disj" "(~(P | Q)) = (~P & ~Q)";
 prove "de_Morgan_conj" "(~(P & Q)) = (~P | ~Q)";
 prove "not_imp" "(~(P --> Q)) = (P & ~Q)";