src/ZF/ex/Data.thy
author clasohm
Sat, 09 Dec 1995 13:36:11 +0100
changeset 1401 0c439768f45c
parent 935 a94ef3eed456
child 1478 2b8c2a7547ab
permissions -rw-r--r--
removed quotes from consts and syntax sections
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
515
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
     1
(*  Title: 	ZF/ex/Data.thy
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
     2
    ID:         $Id$
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
     3
    Author: 	Lawrence C Paulson, Cambridge University Computer Laboratory
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
     4
    Copyright   1994  University of Cambridge
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
     5
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
     6
Sample datatype definition.  
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
     7
It has four contructors, of arities 0-3, and two parameters A and B.
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
     8
*)
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
     9
935
a94ef3eed456 Changed Univ to Datatype in parents
lcp
parents: 515
diff changeset
    10
Data = Datatype +
515
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
    11
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
    12
consts
1401
0c439768f45c removed quotes from consts and syntax sections
clasohm
parents: 935
diff changeset
    13
  data :: [i,i] => i
515
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
    14
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
    15
datatype
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
    16
  "data(A,B)" = Con0
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
    17
              | Con1 ("a: A")
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
    18
              | Con2 ("a: A", "b: B")
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
    19
              | Con3 ("a: A", "b: B", "d: data(A,B)")
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
    20
abcc438e7c27 installation of new inductive/datatype sections
lcp
parents:
diff changeset
    21
end