src/HOL/Library/Code_Index.thy
changeset 28351 abfc66969d1f
parent 28346 b8390cd56b8f
child 28562 4e74209f113e
     1.1 --- a/src/HOL/Library/Code_Index.thy	Thu Sep 25 09:28:08 2008 +0200
     1.2 +++ b/src/HOL/Library/Code_Index.thy	Thu Sep 25 10:17:22 2008 +0200
     1.3 @@ -114,6 +114,10 @@
     1.4    "eq_class.eq k l \<longleftrightarrow> eq_class.eq (nat_of_index k) (nat_of_index l)"
     1.5    by (cases k, cases l) (simp add: eq)
     1.6  
     1.7 +lemma [code nbe]:
     1.8 +  "eq_class.eq (k::index) k \<longleftrightarrow> True"
     1.9 +  by (rule HOL.eq_refl)
    1.10 +
    1.11  
    1.12  subsection {* Indices as datatype of ints *}
    1.13