# HG changeset patch
# User nipkow
# Date 858670938 -3600
# Node ID 9741c4c6b62b2c193a2eaa7e260fe16982ad4ae4
# Parent  1857b7e2e0958e9f95354726902bd9592564cd07
Added P&P&Q = P&Q and P|P|Q = P|Q.

diff -r 1857b7e2e095 -r 9741c4c6b62b src/HOL/simpdata.ML
--- a/src/HOL/simpdata.ML	Mon Mar 17 15:38:26 1997 +0100
+++ b/src/HOL/simpdata.ML	Tue Mar 18 08:42:18 1997 +0100
@@ -96,9 +96,11 @@
    "(P --> True) = True", "(P --> P) = True",
    "(P --> False) = (~P)", "(P --> ~P) = (~P)",
    "(P & True) = P", "(True & P) = P", 
-   "(P & False) = False", "(False & P) = False", "(P & P) = P",
+   "(P & False) = False", "(False & P) = False",
+   "(P & P) = P", "(P & (P & Q)) = (P & Q)",
    "(P | True) = True", "(True | P) = True", 
-   "(P | False) = P", "(False | P) = P", "(P | P) = P",
+   "(P | False) = P", "(False | P) = P",
+   "(P | P) = P", "(P | (P | Q)) = (P | Q)",
    "((~P) = (~Q)) = (P=Q)",
    "(!x.P) = P", "(? x.P) = P", "? x. x=t", "? x. t=x", 
    "(? x. x=t & P(x)) = P(t)", "(? x. t=x & P(x)) = P(t)",