changeset 495 | 76fa93b1fe8b |
parent 489 | 2b7b349e470f |
child 496 | 8f1bf5266ebc |
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 |