src/HOLCF/ex/Fix2.thy
author berghofe
Tue, 30 Jun 1998 20:46:35 +0200
changeset 5099 f6f225a9d5a7
parent 2570 24d7e8fb8261
child 10835 f4745d77e620
permissions -rw-r--r--
Removed old inductive definition package.

(*  Title:      HOLCF/ex/Fix2.thy
    ID:         $Id$
    Author:     Franz Regensburger
    Copyright   1995 Technische Universitaet Muenchen

 Show that fix is the unique least fixed-point operator. 
 From axioms gix1_def,gix2_def it follows that fix = gix

*)

Fix2 = Fix + 

consts

     gix     :: "('a->'a)->'a"

rules

gix1_def "F`(gix`F) = gix`F"
gix2_def "F`y=y ==> gix`F << y"

end