src/HOLCF/Fun3.ML
author paulson
Mon Dec 07 18:26:25 1998 +0100 (1998-12-07)
changeset 6019 0e55c2fb2ebb
parent 3842 b55686a7b22c
child 9245 428385c4bc50
permissions -rw-r--r--
tidying
     1 (*  Title:      HOLCF/fun3.ML
     2     ID:         $Id$
     3     Author:     Franz Regensburger
     4     Copyright   1993 Technische Universitaet Muenchen
     5 *)
     6 
     7 open Fun3;
     8 
     9 (* for compatibility with old HOLCF-Version *)
    10 qed_goal "inst_fun_pcpo" thy "UU = (%x. UU)"
    11  (fn prems => 
    12         [
    13         (simp_tac (HOL_ss addsimps [UU_def,UU_fun_def]) 1)
    14         ]);