doc-src/TutorialI/Datatype/unfoldnested.thy
author nipkow
Wed, 24 Jan 2001 12:29:10 +0100
changeset 10971 6852682eaf16
parent 8751 9ed0548177fb
child 16417 9bc16273c2d4
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8751
9ed0548177fb *** empty log message ***
nipkow
parents:
diff changeset
     1
(*<*)
9ed0548177fb *** empty log message ***
nipkow
parents:
diff changeset
     2
theory unfoldnested = Main:;
9ed0548177fb *** empty log message ***
nipkow
parents:
diff changeset
     3
(*>*)
10971
6852682eaf16 *** empty log message ***
nipkow
parents: 8751
diff changeset
     4
datatype ('v,'f)"term" = Var 'v | App 'f "('v,'f)term_list"
6852682eaf16 *** empty log message ***
nipkow
parents: 8751
diff changeset
     5
and ('v,'f)term_list = Nil | Cons "('v,'f)term" "('v,'f)term_list"
8751
9ed0548177fb *** empty log message ***
nipkow
parents:
diff changeset
     6
(*<*)
9ed0548177fb *** empty log message ***
nipkow
parents:
diff changeset
     7
end
9ed0548177fb *** empty log message ***
nipkow
parents:
diff changeset
     8
(*>*)