explicit code equation for equality
authorhaftmann
Mon Jul 11 18:44:58 2011 +0200 (2011-07-11)
changeset 43764366d5726de09
parent 43758 52310132063b
child 43765 24b8244d672b
explicit code equation for equality
src/HOL/Library/Dlist.thy
     1.1 --- a/src/HOL/Library/Dlist.thy	Mon Jul 11 17:22:31 2011 +0200
     1.2 +++ b/src/HOL/Library/Dlist.thy	Mon Jul 11 18:44:58 2011 +0200
     1.3 @@ -125,6 +125,8 @@
     1.4  
     1.5  end
     1.6  
     1.7 +declare equal_dlist_def [code]
     1.8 +
     1.9  lemma [code nbe]:
    1.10    "HOL.equal (dxs :: 'a::equal dlist) dxs \<longleftrightarrow> True"
    1.11    by (fact equal_refl)