equal
deleted
inserted
replaced
948 in |
948 in |
949 |
949 |
950 fun check_typs ctxt raw_tys = |
950 fun check_typs ctxt raw_tys = |
951 let |
951 let |
952 val (sorting_report, tys) = Proof_Context.prepare_sortsT ctxt raw_tys; |
952 val (sorting_report, tys) = Proof_Context.prepare_sortsT ctxt raw_tys; |
953 val _ = if Context_Position.is_visible ctxt then Output.report sorting_report else (); |
953 val _ = if Context_Position.reports_enabled ctxt then Output.report sorting_report else (); |
954 in |
954 in |
955 tys |
955 tys |
956 |> apply_typ_check ctxt |
956 |> apply_typ_check ctxt |
957 |> Term_Sharing.typs (Proof_Context.theory_of ctxt) |
957 |> Term_Sharing.typs (Proof_Context.theory_of ctxt) |
958 end; |
958 end; |
972 cons (Position.reported_text pos Markup.typing |
972 cons (Position.reported_text pos Markup.typing |
973 (Syntax.string_of_typ ctxt (Logic.dest_type ty))) |
973 (Syntax.string_of_typ ctxt (Logic.dest_type ty))) |
974 else I) ps tys' []; |
974 else I) ps tys' []; |
975 |
975 |
976 val _ = |
976 val _ = |
977 if Context_Position.is_visible ctxt then Output.report (sorting_report @ typing_report) |
977 if Context_Position.reports_enabled ctxt |
978 else (); |
978 then Output.report (sorting_report @ typing_report) else (); |
979 in Term_Sharing.terms (Proof_Context.theory_of ctxt) ts' end; |
979 in Term_Sharing.terms (Proof_Context.theory_of ctxt) ts' end; |
980 |
980 |
981 fun check_props ctxt = map (Type.constraint propT) #> check_terms ctxt; |
981 fun check_props ctxt = map (Type.constraint propT) #> check_terms ctxt; |
982 |
982 |
983 val uncheck_typs = apply_typ_uncheck; |
983 val uncheck_typs = apply_typ_uncheck; |