changeset 13268 | 240509babf00 |
parent 13223 | 45be08fbdcff |
child 13382 | b37764a46b16 |
--- a/src/ZF/Constructible/Normal.thy Mon Jul 01 18:10:53 2002 +0200 +++ b/src/ZF/Constructible/Normal.thy Mon Jul 01 18:16:18 2002 +0200 @@ -316,8 +316,7 @@ --"this lemma is @{thm increasing_LimitI [no_vars]}" apply (blast intro: UN_upper_lt [of "1"] Normal_imp_Ord Ord_UN Ord_iterates lt_imp_0_lt - iterates_Normal_increasing) -apply clarify + iterates_Normal_increasing, clarify) apply (rule bexI) apply (blast intro: Ord_in_Ord [OF Ord_iterates_Normal]) apply (rule UN_I, erule nat_succI)