src/HOL/BNF/Tools/bnf_fp_n2m_sugar.ML
changeset 53974 612505263257
parent 53808 b3e2022530e3
child 54006 9fe1bd54d437
     1.1 --- a/src/HOL/BNF/Tools/bnf_fp_n2m_sugar.ML	Sat Sep 28 20:24:13 2013 +0200
     1.2 +++ b/src/HOL/BNF/Tools/bnf_fp_n2m_sugar.ML	Sat Sep 28 22:47:17 2013 +0200
     1.3 @@ -55,7 +55,7 @@
     1.4  
     1.5        val nn = length fpTs;
     1.6  
     1.7 -      fun target_ctr_sugar_of_fp_sugar fpT {T, index, ctr_sugars, ...} =
     1.8 +      fun target_ctr_sugar_of_fp_sugar fpT ({T, index, ctr_sugars, ...} : fp_sugar) =
     1.9          let
    1.10            val rho = Vartab.fold (cons o apsnd snd) (Sign.typ_match thy (T, fpT) Vartab.empty) [];
    1.11            val phi = Morphism.term_morphism (Term.subst_TVars rho);