src/ZF/ex/Data.thy

removed lookup_const (use Sign.const_type instead);

(*  Title: 	ZF/ex/Data.thy
    ID:         $Id$
    Author: 	Lawrence C Paulson, Cambridge University Computer Laboratory
    Copyright   1994  University of Cambridge

Sample datatype definition.  
It has four contructors, of arities 0-3, and two parameters A and B.
*)

Data = Univ +

consts
  data :: "[i,i] => i"

datatype
  "data(A,B)" = Con0
              | Con1 ("a: A")
              | Con2 ("a: A", "b: B")
              | Con3 ("a: A", "b: B", "d: data(A,B)")

end