src/HOL/Tools/refute.ML
changeset 22055 7c81de75d2c3
parent 22024 adf64b316f07
child 22092 ab3dfcef6489
     1.1 --- a/src/HOL/Tools/refute.ML	Wed Jan 10 19:18:29 2007 +0100
     1.2 +++ b/src/HOL/Tools/refute.ML	Wed Jan 10 19:19:24 2007 +0100
     1.3 @@ -1233,7 +1233,7 @@
     1.4  	(* theory -> (string * string) list -> Thm.thm -> int -> unit *)
     1.5  
     1.6  	fun refute_subgoal thy params thm subgoal =
     1.7 -		refute_term thy params (List.nth (prems_of thm, subgoal));
     1.8 +		refute_term thy params (List.nth (Thm.prems_of thm, subgoal));
     1.9  
    1.10  
    1.11  (* ------------------------------------------------------------------------- *)