src/Tools/induct.ML
changeset 33957 e9afca2118d4
parent 33955 fff6f11b1f09
child 34907 b0aaec87751c
     1.1 --- a/src/Tools/induct.ML	Tue Nov 24 17:28:44 2009 +0100
     1.2 +++ b/src/Tools/induct.ML	Wed Nov 25 09:13:46 2009 +0100
     1.3 @@ -280,11 +280,11 @@
     1.4  
     1.5  fun align_left msg xs ys =
     1.6    let val m = length xs and n = length ys
     1.7 -  in if m < n then error msg else ((uncurry take) (n, xs) ~~ ys) end;
     1.8 +  in if m < n then error msg else (take n xs ~~ ys) end;
     1.9  
    1.10  fun align_right msg xs ys =
    1.11    let val m = length xs and n = length ys
    1.12 -  in if m < n then error msg else ((uncurry drop) (m - n, xs) ~~ ys) end;
    1.13 +  in if m < n then error msg else (drop (m - n) xs ~~ ys) end;
    1.14  
    1.15  
    1.16  (* prep_inst *)