diff -r 7c6a970f0808 -r de0f4a63baa5 src/HOLCF/Fun1.ML
--- a/src/HOLCF/Fun1.ML	Sat Dec 01 18:51:46 2001 +0100
+++ b/src/HOLCF/Fun1.ML	Sat Dec 01 18:52:32 2001 +0100
@@ -10,19 +10,19 @@
 (* less_fun is a partial order on 'a => 'b                                  *)
 (* ------------------------------------------------------------------------ *)
 
-val prems = goalw thy [less_fun_def] "(f::'a::term =>'b::po) << f";
+val prems = goalw thy [less_fun_def] "(f::'a::type =>'b::po) << f";
 by (fast_tac (HOL_cs addSIs [refl_less]) 1);
 qed "refl_less_fun";
 
 val prems = goalw Fun1.thy [less_fun_def] 
-        "[|(f1::'a::term =>'b::po) << f2; f2 << f1|] ==> f1 = f2";
+        "[|(f1::'a::type =>'b::po) << f2; f2 << f1|] ==> f1 = f2";
 by (cut_facts_tac prems 1);
 by (stac expand_fun_eq 1);
 by (fast_tac (HOL_cs addSIs [antisym_less]) 1);
 qed "antisym_less_fun";
 
 val prems = goalw Fun1.thy [less_fun_def] 
-        "[|(f1::'a::term =>'b::po) << f2; f2 << f3 |] ==> f1 << f3";
+        "[|(f1::'a::type =>'b::po) << f2; f2 << f3 |] ==> f1 << f3";
 by (cut_facts_tac prems 1);
 by (strip_tac 1);
 by (rtac trans_less 1);