changeset 35028 | 108662d50512 |
parent 33142 | edab304696ec |
child 36176 | 3fe7e97ccca8 |
--- a/src/HOL/ex/RPred.thy Fri Feb 05 14:33:31 2010 +0100 +++ b/src/HOL/ex/RPred.thy Fri Feb 05 14:33:50 2010 +0100 @@ -25,7 +25,7 @@ (* (infixl "\<squnion>" 80) *) where "supp RP1 RP2 = (\<lambda>s. let (P1, s') = RP1 s; (P2, s'') = RP2 s' - in (upper_semilattice_class.sup P1 P2, s''))" + in (semilattice_sup_class.sup P1 P2, s''))" definition if_rpred :: "bool \<Rightarrow> unit rpred" where