src/HOL/Tools/ATP/reduce_axiomsN.ML
changeset 19035 678ef6658a0e
parent 19009 bb29bf9d3a72
child 19200 1da6b9a1575d
     1.1 --- a/src/HOL/Tools/ATP/reduce_axiomsN.ML	Sun Feb 12 21:34:28 2006 +0100
     1.2 +++ b/src/HOL/Tools/ATP/reduce_axiomsN.ML	Mon Feb 13 14:05:43 2006 +0100
     1.3 @@ -232,7 +232,7 @@
     1.4  fun uni_constants (c1,ctp1) (c2,ctp2) = (c1 = c2) andalso (uni_types ctp1 ctp2);
     1.5  
     1.6  fun uni_mem _ [] = false
     1.7 -  | uni_mem (c,c_typ) ((c1,c_typ1)::ctyps) = (uni_constants (c,c_typ) (c1,c_typ1)) orelse (uni_mem (c,c_typ) ctyps);
     1.8 +  | uni_mem (c,c_typ) ((c1,c_typ1)::ctyps) = (uni_constants (c1,c_typ1) (c,c_typ)) orelse (uni_mem (c,c_typ) ctyps);
     1.9  
    1.10  
    1.11