src/HOL/ex/Puzzle.thy

fixed unfold of facts;

(*  Title:      HOL/ex/Puzzle.thy
    ID:         $Id$
    Author:     Tobias Nipkow
    Copyright   1993 TU Muenchen

A question from "Bundeswettbewerb Mathematik"
*)

Puzzle = Nat +
consts f :: nat => nat
rules  f_ax "f(f(n)) < f(Suc(n))"
end