src/HOL/thy_syntax.ML
changeset 1465 5d7a7e439cec
parent 1430 439e1476a7f8
child 1475 7f5a4cd08209
equal deleted inserted replaced
1464:a608f83e3421 1465:5d7a7e439cec
    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\