# HG changeset patch
# User haftmann
# Date 1160469281 -7200
# Node ID beedcae49096c169a52ff345ebff991717868d96
# Parent  2526ef41a1895cdf4ca7ae492ab73641534403b1
added eq_True eq_False True_implies_equals to extraction_expand

diff -r 2526ef41a189 -r beedcae49096 src/HOL/Extraction.thy
--- a/src/HOL/Extraction.thy	Tue Oct 10 10:24:24 2006 +0200
+++ b/src/HOL/Extraction.thy	Tue Oct 10 10:34:41 2006 +0200
@@ -51,10 +51,11 @@
 lemmas [extraction_expand] =
   atomize_eq atomize_all atomize_imp atomize_conj
   allE rev_mp conjE Eq_TrueI Eq_FalseI eqTrueI eqTrueE eq_cong2
-  notE' impE' impE iffE imp_cong simp_thms
+  notE' impE' impE iffE imp_cong simp_thms eq_True eq_False
   induct_forall_eq induct_implies_eq induct_equal_eq induct_conj_eq
   induct_forall_def induct_implies_def induct_equal_def induct_conj_def
   induct_atomize induct_rulify induct_rulify_fallback
+  True_implies_equals
 
 datatype sumbool = Left | Right