--- a/src/HOL/Lfp.thy Thu Sep 27 22:26:00 2001 +0200 +++ b/src/HOL/Lfp.thy Thu Sep 27 22:28:16 2001 +0200 @@ -6,7 +6,7 @@ The Knaster-Tarski Theorem *) -Lfp = mono + Product_Type + +Lfp = Product_Type + constdefs lfp :: ['a set=>'a set] => 'a set