src/HOL/Wellfounded.thy
changeset 30430 42ea5d85edcc
parent 29609 a010aab5bed0
child 30988 b53800e3ee47
     1.1 --- a/src/HOL/Wellfounded.thy	Wed Mar 11 08:45:47 2009 +0100
     1.2 +++ b/src/HOL/Wellfounded.thy	Wed Mar 11 08:45:47 2009 +0100
     1.3 @@ -960,4 +960,10 @@
     1.4  
     1.5  declare "prod.size" [noatp]
     1.6  
     1.7 +lemma [code]:
     1.8 +  "size (P :: 'a Predicate.pred) = 0" by (cases P) simp
     1.9 +
    1.10 +lemma [code]:
    1.11 +  "pred_size f P = 0" by (cases P) simp
    1.12 +
    1.13  end