--- a/Quot/QuotMain.thy Tue Dec 08 17:43:32 2009 +0100
+++ b/Quot/QuotMain.thy Tue Dec 08 20:34:00 2009 +0100
@@ -1043,10 +1043,11 @@
(* 1. conversion (is not a pattern) *)
thm lambda_prs
(* 2. folding of definitions: (rep ---> abs) oldConst == newconst *)
+(* prservation lemma *)
(* and simplification with *)
thm all_prs ex_prs
(* 3. simplification with *)
-thm fun_map.simps Quotient_abs_rep Quotient_rel_rep id_simps
+thm fun_map.simps Quotient_abs_rep Quotient_rel_rep id_simps
(* 4. Test for refl *)
ML {*
--- a/Quot/quotient_info.ML Tue Dec 08 17:43:32 2009 +0100
+++ b/Quot/quotient_info.ML Tue Dec 08 20:34:00 2009 +0100
@@ -220,6 +220,7 @@
val _ = Context.>> (Context.map_theory
(EquivRules.setup #>
RspRules.setup #>
+ PrsRules.setup #>
IdSimps.setup #>
QuotientRules.setup))