src/HOL/Tools/refute.ML
changeset 16366 6ff17d08c3d5
parent 16331 386ce655d694
child 16424 18a07ad8fea8
     1.1 --- a/src/HOL/Tools/refute.ML	Sat Jun 11 22:15:50 2005 +0200
     1.2 +++ b/src/HOL/Tools/refute.ML	Sat Jun 11 22:15:51 2005 +0200
     1.3 @@ -507,7 +507,7 @@
     1.4  					| _               => raise REFUTE ("collect_axioms", "type " ^ Sign.string_of_typ (sign_of thy) T ^ " is not a variable"))
     1.5  				(* obtain all superclasses of classes in 'sort' *)
     1.6  				(* string list *)
     1.7 -				val superclasses = Graph.all_succs ((#classes o Type.rep_tsig o Sign.tsig_of o sign_of) thy) sort
     1.8 +				val superclasses = Graph.all_succs ((#2 o #classes o Type.rep_tsig o Sign.tsig_of o sign_of) thy) sort
     1.9  			in
    1.10  				Library.foldl collect_class_axioms (axs, superclasses)
    1.11  			end