src/HOL/Hilbert_Choice.thy
changeset 15251 bb6f072c8d10
parent 15140 322485b816ac
child 16417 9bc16273c2d4
     1.1 --- a/src/HOL/Hilbert_Choice.thy	Mon Oct 18 13:40:45 2004 +0200
     1.2 +++ b/src/HOL/Hilbert_Choice.thy	Tue Oct 19 18:18:45 2004 +0200
     1.3 @@ -392,7 +392,7 @@
     1.4  lemma ex_has_greatest_nat_lemma:
     1.5    "P k ==> \<forall>x. P x --> (\<exists>y. P y & ~ ((m y::nat) <= m x))
     1.6      ==> \<exists>y. P y & ~ (m y < m k + n)"
     1.7 -  apply (induct_tac n, force)
     1.8 +  apply (induct n, force)
     1.9    apply (force simp add: le_Suc_eq)
    1.10    done
    1.11