src/HOL/indrule.ML
changeset 2270 d7513875b2b8
parent 2031 03a843f0f447
child 2637 e9b203f854ae
--- a/src/HOL/indrule.ML	Thu Nov 28 12:28:52 1996 +0100
+++ b/src/HOL/indrule.ML	Thu Nov 28 12:31:33 1996 +0100
@@ -143,7 +143,7 @@
        (big_rec_tm,
         Abs("z", elem_type, 
             fold_bal (app Ind_Syntax.conj) 
-            (map mk_rec_imp (Inductive.rec_tms~~preds)))))
+            (ListPair.map mk_rec_imp (Inductive.rec_tms,preds)))))
 and mutual_induct_concl = 
     Ind_Syntax.mk_Trueprop (fold_bal (app Ind_Syntax.conj) qconcls);