1.1 --- a/src/HOL/Fact.thy	Sun Mar 07 17:33:01 2010 -0800
     1.2 +++ b/src/HOL/Fact.thy	Mon Mar 08 09:38:58 2010 +0100
     1.3 @@ -58,7 +58,7 @@
     1.4    "x >= (0::int) \<Longrightarrow> fact x >= 0"
     1.5    by (auto simp add: fact_int_def)
     1.6  
     1.7 -declare TransferMorphism_nat_int[transfer add return: 
     1.8 +declare transfer_morphism_nat_int[transfer add return: 
     1.9      transfer_nat_int_factorial transfer_nat_int_factorial_closure]
    1.10  
    1.11  lemma transfer_int_nat_factorial:
    1.12 @@ -69,7 +69,7 @@
    1.13    "is_nat x \<Longrightarrow> fact x >= 0"
    1.14    by (auto simp add: fact_int_def)
    1.15  
    1.16 -declare TransferMorphism_int_nat[transfer add return: 
    1.17 +declare transfer_morphism_int_nat[transfer add return: 
    1.18      transfer_int_nat_factorial transfer_int_nat_factorial_closure]
    1.19  
    1.20