FSet.thy
changeset 495 76fa93b1fe8b
parent 489 2b7b349e470f
child 496 8f1bf5266ebc
equal deleted inserted replaced
494:abafefa0d58b 495:76fa93b1fe8b
   479 
   479 
   480 lemma "fset_case (f1::'t) f2 (INSERT a xa) = f2 a xa"
   480 lemma "fset_case (f1::'t) f2 (INSERT a xa) = f2 a xa"
   481 apply (tactic {* lift_tac_fset @{context} @{thm list.cases(2)} 1 *})
   481 apply (tactic {* lift_tac_fset @{context} @{thm list.cases(2)} 1 *})
   482 done
   482 done
   483 
   483 
   484 thm all_prs
       
   485 
       
   486 end
   484 end