delete also predicates on relations when hiding an implementation of an abstract type
authorkuncar
Tue, 19 Feb 2013 15:03:36 +0100
changeset 52322145d76c35f8b
parent 52321 e2569dde59c8
child 52323 c8721406511a
delete also predicates on relations when hiding an implementation of an abstract type
src/HOL/Int.thy
src/HOL/Rat.thy
src/HOL/RealDef.thy
     1.1 --- a/src/HOL/Int.thy	Tue Feb 19 13:37:07 2013 +0100
     1.2 +++ b/src/HOL/Int.thy	Tue Feb 19 15:03:36 2013 +0100
     1.3 @@ -1656,7 +1656,7 @@
     1.4    int.id_abs_transfer int.rel_eq_transfer zero_int.transfer one_int.transfer
     1.5    plus_int.transfer uminus_int.transfer minus_int.transfer times_int.transfer
     1.6    int_transfer less_eq_int.transfer less_int.transfer of_int.transfer
     1.7 -  nat.transfer
     1.8 +  nat.transfer int.right_unique int.right_total int.bi_total
     1.9  
    1.10  declare Quotient_int [quot_del]
    1.11  
     2.1 --- a/src/HOL/Rat.thy	Tue Feb 19 13:37:07 2013 +0100
     2.2 +++ b/src/HOL/Rat.thy	Tue Feb 19 15:03:36 2013 +0100
     2.3 @@ -1129,7 +1129,7 @@
     2.4    rat.All_transfer rat.Ex_transfer rat.rel_eq_transfer forall_rat_transfer
     2.5    Fract.transfer zero_rat.transfer one_rat.transfer plus_rat.transfer
     2.6    uminus_rat.transfer times_rat.transfer inverse_rat.transfer
     2.7 -  positive.transfer of_rat.transfer
     2.8 +  positive.transfer of_rat.transfer rat.right_unique rat.right_total
     2.9  
    2.10  text {* De-register @{text "rat"} as a quotient type: *}
    2.11  
     3.1 --- a/src/HOL/RealDef.thy	Tue Feb 19 13:37:07 2013 +0100
     3.2 +++ b/src/HOL/RealDef.thy	Tue Feb 19 15:03:36 2013 +0100
     3.3 @@ -933,7 +933,8 @@
     3.4  lemmas [transfer_rule del] =
     3.5    real.All_transfer real.Ex_transfer real.rel_eq_transfer forall_real_transfer
     3.6    zero_real.transfer one_real.transfer plus_real.transfer uminus_real.transfer
     3.7 -  times_real.transfer inverse_real.transfer positive.transfer
     3.8 +  times_real.transfer inverse_real.transfer positive.transfer real.right_unique
     3.9 +  real.right_total
    3.10  
    3.11  subsection{*More Lemmas*}
    3.12