doc-src/TutorialI/Datatype/unfoldnested.thy
author nipkow
Wed, 19 Apr 2000 13:40:42 +0200
changeset 8751 9ed0548177fb
child 10971 6852682eaf16
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
(*>*)
9ed0548177fb *** empty log message ***
nipkow
parents:
diff changeset
     4
datatype ('a,'b)"term" = Var 'a | App 'b "('a,'b)term_list"
9ed0548177fb *** empty log message ***
nipkow
parents:
diff changeset
     5
and ('a,'b)term_list = Nil | Cons "('a,'b)term" "('a,'b)term_list"
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
(*>*)