equal
deleted
inserted
replaced
1071 str_of_isa_term_with_type ctxt const ^ " :=\n " ^ |
1071 str_of_isa_term_with_type ctxt const ^ " :=\n " ^ |
1072 space_implode ";\n " (map (Syntax.string_of_term ctxt) props); |
1072 space_implode ";\n " (map (Syntax.string_of_term ctxt) props); |
1073 |
1073 |
1074 fun str_of_isa_rec_spec ctxt {const, props, pat_complete} = |
1074 fun str_of_isa_rec_spec ctxt {const, props, pat_complete} = |
1075 str_of_isa_term_with_type ctxt const ^ (if pat_complete then " [pat_complete]" else "") ^ |
1075 str_of_isa_term_with_type ctxt const ^ (if pat_complete then " [pat_complete]" else "") ^ |
1076 " :=\n " ^ space_implode ";\n " (map (Syntax.string_of_term ctxt) props); |
1076 " :=\n " ^ space_implode ";\n " (map (Syntax.string_of_term ctxt) props); |
1077 |
1077 |
1078 fun str_of_isa_consts_spec ctxt {consts, props} = |
1078 fun str_of_isa_consts_spec ctxt {consts, props} = |
1079 space_implode " and\n " (map (str_of_isa_term_with_type ctxt) consts) ^ " :=\n " ^ |
1079 space_implode " and\n " (map (str_of_isa_term_with_type ctxt) consts) ^ " :=\n " ^ |
1080 space_implode ";\n " (map (Syntax.string_of_term ctxt) props); |
1080 space_implode ";\n " (map (Syntax.string_of_term ctxt) props); |
1081 |
1081 |