Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/ZF/ex/LList.thy
changeset 11316 b4e71bd751e4
parent 1478 2b8c2a7547ab
child 11354 9b80fe19407f 
--- a/src/ZF/ex/LList.thy	Mon May 21 14:35:54 2001 +0200
+++ b/src/ZF/ex/LList.thy	Mon May 21 14:36:24 2001 +0200
@@ -20,7 +20,7 @@
   llist  :: i=>i
 
 codatatype
-  "llist(A)" = LNil | LCons ("a: A", "l: llist(A)")
+  "llist(A)" = LNil | LCons ("a \\<in> A", "l \\<in> llist(A)")
 
 
 (*Coinductive definition of equality*)
@@ -33,8 +33,8 @@
 coinductive
   domains "lleq(A)" <= "llist(A) * llist(A)"
   intrs
-    LNil  "<LNil, LNil> : lleq(A)"
-    LCons "[| a:A; <l,l'>: lleq(A) |] ==> <LCons(a,l), LCons(a,l')>: lleq(A)"
+    LNil  "<LNil, LNil> \\<in> lleq(A)"
+    LCons "[| a \\<in> A; <l,l'>: lleq(A) |] ==> <LCons(a,l), LCons(a,l')>: lleq(A)"
   type_intrs  "llist.intrs"
 
 
@@ -49,7 +49,7 @@
 rules
   flip_LNil   "flip(LNil) = LNil"
 
-  flip_LCons  "[| x:bool; l: llist(bool) |] ==> 
+  flip_LCons  "[| x \\<in> bool; l \\<in> llist(bool) |] ==> 
               flip(LCons(x,l)) = LCons(not(x), flip(l))"
 
 end
isabelle