equal
deleted
inserted
replaced
70 \ structure Result = " ^ co ^ "Ind_section_Fun\n\ |
70 \ structure Result = " ^ co ^ "Ind_section_Fun\n\ |
71 \\t (open " ^ stri_name ^ "\n\ |
71 \\t (open " ^ stri_name ^ "\n\ |
72 \\t val thy\t\t= thy\n\ |
72 \\t val thy\t\t= thy\n\ |
73 \\t val monos\t\t= " ^ monos ^ "\n\ |
73 \\t val monos\t\t= " ^ monos ^ "\n\ |
74 \\t val con_defs\t\t= " ^ con_defs ^ ");\n\n\ |
74 \\t val con_defs\t\t= " ^ con_defs ^ ");\n\n\ |
75 \ in\n\ |
75 \ in\n\ |
76 \ struct\n\ |
76 \ struct\n\ |
77 \ val " ^ mk_list (map mk_intr_name ipairs) ^ " = Result.intrs;\n\ |
77 \ val " ^ mk_list (map mk_intr_name ipairs) ^ " = Result.intrs;\n\ |
78 \ open Result\n\ |
78 \ open Result\n\ |
79 \ end\n\ |
79 \ end\n\ |
80 \ end;\n\n\ |
80 \ end;\n\n\ |