doc-src/TutorialI/Datatype/unfoldnested.thy
author wenzelm
Sun, 15 Oct 2000 19:50:35 +0200
changeset 10220 2a726de6e124
parent 8751 9ed0548177fb
child 10971 6852682eaf16
permissions -rw-r--r--
proper symbol markup with \isamath, \isatext; support sub/super scripts:
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
(*>*)