ex/puzzle.thy
author lcp
Wed, 01 Dec 1993 13:05:25 +0100
changeset 22 17b6487e1ac7
parent 0 7949f97df77a
permissions -rw-r--r--
HOL/llist/LList_corec_subset1: does not need induction

(*  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