1.1 --- a/src/HOL/Lifting.thy	Wed Apr 18 14:59:04 2012 +0200
     1.2 +++ b/src/HOL/Lifting.thy	Wed Apr 18 15:09:07 2012 +0200
     1.3 @@ -296,6 +296,10 @@
     1.4  lemma Quotient_rel_eq_transfer: "(T ===> T ===> op =) R (op =)"
     1.5    using 1 unfolding Quotient_alt_def fun_rel_def by simp
     1.6  
     1.7 +lemma Quotient_abs_induct:
     1.8 +  assumes "\<And>y. R y y \<Longrightarrow> P (Abs y)" shows "P x"
     1.9 +  using 1 assms unfolding Quotient_def by metis
    1.10 +
    1.11  end
    1.12  
    1.13  text {* Generating transfer rules for total quotients. *}