src/HOL/Tools/Nunchaku/nunchaku_collect.ML
changeset 66635 dbe1dc1f0016
parent 66634 56456f388867
child 66646 383d8e388d1b
equal deleted inserted replaced
66634:56456f388867 66635:dbe1dc1f0016
  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