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/HOL/Lattice/Orders.thy
changeset 39246 9e58f0499f57
parent 37678 0040bafffdef
child 40702 cf26dd7395e4 
--- a/src/HOL/Lattice/Orders.thy	Wed Sep 08 13:25:22 2010 +0200
+++ b/src/HOL/Lattice/Orders.thy	Wed Sep 08 19:21:46 2010 +0200
@@ -48,9 +48,7 @@
 
 datatype 'a dual = dual 'a
 
-consts
-  undual :: "'a dual \<Rightarrow> 'a"
-primrec
+primrec undual :: "'a dual \<Rightarrow> 'a" where
   undual_dual: "undual (dual x) = x"
 
 instantiation dual :: (leq) leq
isabelle