src/HOL/ex/Puzzle.thy
author paulson
Thu, 09 May 1996 11:45:00 +0200
changeset 1740 b50755328aad
parent 1476 608483c2122a
child 2222 a3fb552f10e3
permissions -rw-r--r--
Updated for new form of induction rules

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

An question from "Bundeswettbewerb Mathematik"
*)

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