src/HOLCF/Holcfb.thy

replaced pair_ss by prod_ss

(*  Title: 	HOLCF/holcfb.thy
    ID:         $Id$
    Author: 	Franz Regensburger
    Copyright   1993  Technische Universitaet Muenchen

Basic definitions for the embedding of LCF into HOL.

*)

Holcfb = Nat + 

consts

theleast     :: "(nat=>bool)=>nat"

rules

theleast_def    "theleast(P) == (@z.(P(z) & (!n.P(n)-->z<=n)))"

end