changeset 41067 | c78a2d402736 |
parent 40722 | 441260986b63 |
child 42083 | e1209fc7ecdc |
--- a/src/Pure/pattern.ML Tue Dec 07 16:27:07 2010 +0100 +++ b/src/Pure/pattern.ML Tue Dec 07 17:23:14 2010 +0100 @@ -365,7 +365,7 @@ and cases(binders,env as (iTs,itms),pat,obj) = let val (ph,pargs) = strip_comb pat fun rigrig1(iTs,oargs) = fold (mtch binders) (pargs~~oargs) (iTs,itms) - handle ListPair.UnequalLengths => raise MATCH + handle ListPair.UnequalLengths => raise MATCH fun rigrig2((a:string,Ta),(b,Tb),oargs) = if a <> b then raise MATCH else rigrig1(typ_match thy (Ta,Tb) iTs, oargs)